日付文字列をDate型に変換する（DateValue）

DateValue関数は年月日の文字列からDate型の値を取得することが出来ます。

Date型が許容できる日付は西暦100年1月1日から9999年12月31日の範囲内のため、その範囲外の日付文字列を引数に指定した場合は変換できずに実行時エラー13「型が一致しません。」が発生します。

似た関数で年、月、日の数値からDate型の値を取得するDateSerial関数があります。

Function DateValue(Date As String) As Date

1	Function DateValue(Date As String) As Date

Date As String	日付文字列を指定します。
Date（戻り値）	引数をDate型に変換した結果を返します。

Sub DateValueTest()
    Dim v
    v = DateValue("2017/1/1")
    v = DateValue("平成29年9月28日")
End Sub

Sub DateValueTest()

Dim v

v = DateValue("2017/1/1")

v = DateValue("平成29年9月28日")

End Sub