アクセスのフィールド内のテキストデータ（一部）を日付の型に変更。

質問

こんにちは。質問です。
とあるシステムのログを分析するにあたって、ログとして送られてきたデータ（csv)が大量にあり、（１００個のファイルに分割して送られてきました）合計約82万件（200M）をアクセスのテーブルに手作業で追加していきました。
その後、フィールド１のデータが"Tue Jul 27 09:57:01 2004 JST"となっているのを、日付（標準）の形"2004/07/27 09:57:01"にすることになりました。
もともとの"Tue Jul 27 09:57:01 2004 JST"はテキストデータです。

エクスポートして、エクセルなどにしてデータを操作しようとしたところ、データが大きすぎてエクスポートもできませんでした。（テキストファイルにはなりました。が、テキストファイルからエクセルファイルには変更できませんでした）

こんなことが可能かどうかもわかりませんが、
このテキストデータを日付型に替えられるようでしたら、方法を教えてください。よろしくお願いします。

回答No.2

pppc88

いちばん手っ取り早い方法は
Tue Jul 27 09:57:01 2004 JST
を
"Tue","Jul","27","09:57:01","2004","JST",
とでもして、一旦別項目としてバラバラに全部DB化してしまうことです。
一度テーブルになれば、更新クエリなりマクロなりで、指定日付にしたい項目を追加して、あとからどうとでもなります。

補足

もともとのデータ量が多くて（82万件）、とてもひとつひとつを手直しできません。エクセルにエクスポートできる件数も超えています。アクセスで一機にばらばらに分けられる方法があったら教えてください。

回答No.1

palmmy

こんな関数で変換するとか…
メモ帳で作ったので自信なしです。
(case文は埋めてください…)

Function chgDate(strDateFrom as string)as date
Dim strBuff as String
Dim strMonth as String

strBuff = mid(strDateFrom,31,4)

Select Case mid(strDateFrom,5,3)
Case "Jan"
strMonth = "/01/"
Case "Feb"
strMonth = "/02/"

…

Case "Dec"
strMonth = "/12/"
End Select

strBuff = strBuff & strMonth & mid(strDateFrom,9,11)

chgDate = cdate(strBuff)

End Function

お礼

junは一月っていう風に変換していくのですね。
どうもありがとうございました。