【ACCESS VBA】指定したデータが日付または時刻として扱えるかを調べるには？

訪問して頂きありがとうございます。まさふくろーです。

この記事では、指定したデータが日付または時刻として扱えるかを調べる方法をご紹介します。

指定したデータが日付または時刻として扱えるかを調べる
関連記事
- 現在の日付・時刻を取得する

指定したデータが日付または時刻として扱えるかを調べる

使用する関数

IsDate関数

IsDate(expression)

説明

引数expressionに指定した値が日付または時刻として判定できる場合は「True」を、判定できない場合は「False」を返します。

指定項目	必須	説明
expression	〇	判定したい値を指定します。

サンプルプログラム

Private Sub Sample()
    
    Dim value1 As Date
    Dim value2 As String
    Dim value3 As String
    Dim value4 As String
    
    value1 = Date
    value2 = "20201101"
    value3 = "2020/11/01"
    value4 = "13:05:06"
    
    If IsDate(value1) Then
        MsgBox "value1は、日付として扱えます"
    Else
        MsgBox "value1は、日付として扱えません"
    End If
    
    If IsDate(value2) Then
        MsgBox "value2は、日付として扱えます"
    Else
        MsgBox "value2は、日付として扱えません"
    End If
    
    If IsDate(value3) Then
        MsgBox "value3は、日付として扱えます"
    Else
        MsgBox "value3は、日付として扱えません"
    End If

    If IsDate(value4) Then
        MsgBox "value4は、日付として扱えます"
    Else
        MsgBox "value4は、日付として扱えません"
    End If

End Sub

Private Sub Sample()

Dim value1 As Date

Dim value2 As String

Dim value3 As String

Dim value4 As String

value1 = Date

value2 = "20201101"

value3 = "2020/11/01"

value4 = "13:05:06"

If IsDate(value1) Then

MsgBox "value1は、日付として扱えます"

Else

MsgBox "value1は、日付として扱えません"

End If

If IsDate(value2) Then

MsgBox "value2は、日付として扱えます"

Else

MsgBox "value2は、日付として扱えません"

End If

If IsDate(value3) Then

MsgBox "value3は、日付として扱えます"

Else

MsgBox "value3は、日付として扱えません"

End If

If IsDate(value4) Then

MsgBox "value4は、日付として扱えます"

Else

MsgBox "value4は、日付として扱えません"

End If

End Sub

1	Subプロシージャ「Sample」を作成。
8	現在の日付を、日付型変数「value1」に代入します。
9～11	形式の異なる文字列を文字列型変数「value2」「value3」「value4」に代入します。
13、14	変数「value1」が日付または時刻として扱える場合は、メッセージ「日付として扱えます」を表示します。
15、16	変数「value1」が日付または時刻として扱えない場合は、メッセージ「日付として扱えません」を表示します。
19～35	変数「value2」～「value4」も同様に、日付または時刻として扱えるかどうかを判定し、メッセージを表示します。