サイトについて      連絡先   検索

VBA CDate 関数

はじめに

Excel VBA の CDate 関数を紹介します。

CDate 関数は、指定した値を日付型 (Date) に変換します。

文字列を日付型に変換したいときに使用します。

構文

CDate(値)

名前 説明
引数「値」文字列など日付型に変換したい値を指定します。
戻り値日付型 (Date)

解説

日付型に変換できるは日付型の範囲、西暦100年1月1日 ~ 西暦9999年12月31日の間です。

値に数値を指定したときは、日付型の初期値 1899/12/30 0:0:0 にその数値の日を足した日付に変換します。

日付型に変換できない値を渡されたときはエラーが発生します。

日付型に変換できるかどうかは「IsDate 関数」で判定できます。

使用例

Dim d As Date
d = CDate("2013/1/2")
Debug.Print (d) ' 2013/01/02

d = CDate("2013年3月4日")
Debug.Print (d) ' 2013/03/04

d = CDate(1)
Debug.Print (d) ' 1899/12/31

d = CDate(2)
Debug.Print (d) ' 1900/01/01

d = CDate("1:2:3")
Debug.Print (d) ' 1:02:03

d = CDate("2013/1/2 3:4:5")
Debug.Print (d) ' 2013/01/02 3:04:05

Dim s As String
s = "Tips"
d = CDate(s) ' エラー

If IsDate(s) = True Then ' 変換できるときだけ実行する
    d = CDate(s)
End If

関連ページ