BitplusPROで取得したメールヘッダー内のDate（文字列）を日付型に変換する『header_date』関数を作成しました。

例）Jul 2009 08:09:43 -0700 -- (変換) -->> 2009/7/3/ 0:09

以下のモジュールをACCESS、または、エクセルにて、標準モジュールに貼り付けてご利用下さい。


||||| header_date モジュール ||||||||

Public Function header_date(strdate As String) As Date
'-----------------------------------------------------
'メールのヘッダー情報の日付情報をもとに
'日本時間の表記をかえす関数
'引数：strdate　メールヘッダーの日付文字列
'-----------------------------------------------------

Dim wkarray() As String 'ヘッダの文字列の配列
Dim in_date As Date 'ヘッダの日時
Dim interval_hour As Integer 'ヘッダの日時 日本時間との時差


'半角スペースが2個つながる部分は1つにする
strdate = Replace(strdate, Chr(32) & Chr(32), Chr(32))

'改行以降は削除
If InStr(strdate, Chr(10)) > 0 Then
strdate = Left(strdate, InStr(strdate, Chr(10)))
End If

'半角スペースをキーに配列に保存
wkarray = Split(strdate, Chr(32))

'ヘッダーの日時を取得
in_date = Format(wkarray(0) & "-" & wkarray(1) & "-" & wkarray(2) & " " & wkarray(3))

'日本時間との時差を取得
interval_hour = 9 - CInt(wkarray(4)) / 100

'日本時間表示

header_date = in_date + interval_hour / 24

End Function

||||| header_date モジュール (EOF)||||||||


■使い方(エクセルの場合)
1）ツール→マクロ→Visuial basi Editorと選択してVBAの画面を開いて
　添付したモジュールの『関数』をコピーペストしてください。
　（『関数』をクリックしてドラッグするとコピーペーストできます。）

2）header_dateという関数が使えるようになります。

header_date関数利用例