「VB.NET」IsDate関数で日付型かどうかチェックする

2021年10月7日

書式
Public Function IsDate (Expression As Object) As Boolean
式が有効な Boolean 値を表しているかどうかを示す Date 値を返します。

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Module Module1
Sub Main()
'Date型変数の宣言
Dim fstDate, secDate As Date
'String型変数の宣言
Dim timeOnly, dateAndTime, noDate As String
'Boolean型変数の宣言
Dim dateCheck As Boolean
'変数に値をセット
fstDate = CDate("February 12, 2021")
'#MM/DD/YYYY#
secDate = #2/12/2021#
'時間のみ
timeOnly = "6:45 PM"
'日付と時間
dateAndTime = "March 15, 2021 10:22 AM"
noDate = "study skill"
'日付型かどうかチェック True
dateCheck = IsDate(fstDate)
Console.WriteLine("値1: " & dateCheck.ToString)
dateCheck = IsDate(secDate)
Console.WriteLine("値2: " & dateCheck.ToString)
dateCheck = IsDate(timeOnly)
Console.WriteLine("値3: " & dateCheck.ToString)
dateCheck = IsDate(dateAndTime)
Console.WriteLine("値4: " & dateCheck.ToString)
dateCheck = IsDate(noDate)
Console.WriteLine("値5: " & dateCheck.ToString)
Console.ReadKey()
End Sub
End Module
Module Module1 Sub Main() 'Date型変数の宣言 Dim fstDate, secDate As Date 'String型変数の宣言 Dim timeOnly, dateAndTime, noDate As String 'Boolean型変数の宣言 Dim dateCheck As Boolean '変数に値をセット fstDate = CDate("February 12, 2021") '#MM/DD/YYYY# secDate = #2/12/2021# '時間のみ timeOnly = "6:45 PM" '日付と時間 dateAndTime = "March 15, 2021 10:22 AM" noDate = "study skill" '日付型かどうかチェック True dateCheck = IsDate(fstDate) Console.WriteLine("値1: " & dateCheck.ToString) dateCheck = IsDate(secDate) Console.WriteLine("値2: " & dateCheck.ToString) dateCheck = IsDate(timeOnly) Console.WriteLine("値3: " & dateCheck.ToString) dateCheck = IsDate(dateAndTime) Console.WriteLine("値4: " & dateCheck.ToString) dateCheck = IsDate(noDate) Console.WriteLine("値5: " & dateCheck.ToString) Console.ReadKey() End Sub End Module
Module Module1

    Sub Main()

        'Date型変数の宣言
        Dim fstDate, secDate As Date
        'String型変数の宣言
        Dim timeOnly, dateAndTime, noDate As String
        'Boolean型変数の宣言
        Dim dateCheck As Boolean

        '変数に値をセット
        fstDate = CDate("February 12, 2021")
        '#MM/DD/YYYY#
        secDate = #2/12/2021#
        '時間のみ
        timeOnly = "6:45 PM"
        '日付と時間
        dateAndTime = "March 15, 2021 10:22 AM"
        noDate = "study skill"

        '日付型かどうかチェック True
        dateCheck = IsDate(fstDate)
        Console.WriteLine("値1: " & dateCheck.ToString)

        dateCheck = IsDate(secDate)
        Console.WriteLine("値2: " & dateCheck.ToString)

        dateCheck = IsDate(timeOnly)
        Console.WriteLine("値3: " & dateCheck.ToString)

        dateCheck = IsDate(dateAndTime)
        Console.WriteLine("値4: " & dateCheck.ToString)

        dateCheck = IsDate(noDate)
        Console.WriteLine("値5: " & dateCheck.ToString)

        Console.ReadKey()
    End Sub

End Module

実行結果
値1: True
値2: True
値3: True
値4: True
値5: False

VB.net

Posted by arkgame