ms-access - 「YYYYMMDD HHMMSS」形式のVBAで日付を変換するにはどうすればよいですか?

Question

日時を文字列として保存しています：

"20120515 061115"

だろう

"May 15, 2012 at 6 hour 11 minutes 15 second"

これを日時に変換するにはどうすればよいですか? たぶん「CDate」機能を使用していますか？

Answer 1

の入力形式はCDateシステム ロケールに依存するため、固定形式の値を解析するには役に立ちません。

ただし、日付コンポーネントは固定位置にあるため、最も簡単な方法は、文字列関数を使用して元の文字列から値を抽出することです。

Dim s As String
Dim d As Date

s = "20120515 061115"
d = DateSerial(Left(s, 4), Mid(s, 5, 2), Mid(s, 7, 2)) _
  + TimeSerial(Mid(s, 10, 2), Mid(s, 12, 2), Mid(s, 14, 2))

Answer 2

または、日付を解析してから再構築することにより、クエリでこれを行うことができます。

この例では、私の UglyDate は次のようになります: Wed Mar 17, 2010 10:07 PM

SELECT [Tbl_UglyDate].[UglyDate], Mid([UglyDate],5,3) AS M, Mid([UglyDate],9,2) AS D,
Mid([UglyDate],13,4) AS Y, Month("1 " & [M]) AS M2, 
([M2] & "/" & [D] & "/" & [Y]) AS date1, CVDate([date1]) AS [date] 
FROM [Tbl_UglyDate];