データと時刻の文字列を解析して日付にアクセスする値

Question

特定の日付と時刻の形式のAccess Dateオブジェクトに日付/時刻文字列を解析するにはどうすればよいですか？

私はこのようなCDate関数（）関数を使用することができます。この作品

Dim StrDateTime As String 
    Dim DtTest As Date 

    StrDateTime = "2011-12-31 23:59:59" 

    DtTest = CDate(StrDateTime) 
    MsgBox DtTest 

を、アクセスが細かい、フォーマットを認識しますが、どのように私は絶対にこれは、すべての状況下で起こることを確認することができます（たとえば、日付/時刻設定地域の設定、アクセスバージョン？）。私はCDateに私の特別な日付/時刻形式を "伝えたい"と思います。

Dim StrDateTime As String 
    Dim IntYear As Integer 
    Dim IntMonth As Integer 
    Dim IntDay As Integer 
    Dim IntHour As Integer 
    Dim IntMinute As Integer 
    Dim IntSecond As Integer 

    StrDateTime = "2011-12-31 23:59:59" 

    IntYear = Val(Mid(StrDateTime, 1, 4)) 
    IntMonth = Val(Mid(StrDateTime, 6, 2)) 
    IntDay = Val(Mid(StrDateTime, 9, 2)) 
    IntHour = Val(Mid(StrDateTime, 12, 2)) 
    IntMinute = Val(Mid(StrDateTime, 15, 2)) 
    IntSecond = Val(Mid(StrDateTime, 18, 2)) 

    DtTest = DateSerial(IntYear, IntMonth, IntDay) 
    DtTest = DtTest + TimeSerial(IntHour, IntMinute, IntSecond) 
    MsgBox DtTest 

CDate関数のその他の利点（）：

その他のオプションは、この（しかし、多くのコード）であることは、間違った日付/時刻値の型の不一致エラーを与えます。 DateSerial + TimeSerialは新しい日付と時刻を再計算するので、 "2011-12-31 24:59:59"は01/Jan/2012 0:59:59になります。

Answer 1

フォーマット"YYYY-MM-DD"ISO standardれ、それに遭遇したとき、CDate()は"YYYY"部分は"MM-DD" が続くことを期待、決してによって「DD- mm "。その形式の日付文字列は明白です。ユーザーのロケールに関係なく、同じ日付値を表します。そしてCDate()が準拠します。

さらに、CDate()に「YYYY-DD-MM」としてフォーマットされた日付文字列を与えると、あなたが戻って予定の日付の値を取得する方法はありません。したがってCDate("2011-02-01")は、その文字列が#Jan 2 2011#を表すことを意図していたとしても、日付値#Feb 1 2011#（ロケールに関係なく）を常に提供します。 CDate("2011-31-01")は型の不一致エラーをスローします。

はまた、（Heinziさんのコメントを参照してください。）これが唯一の年100後の日付のために働くことに注意して