「VB.NET」IsDate関数でyyyymmdd形式の文字列の日付をチェックする

関数
1.IsDate(チェック対象文字列)
IsDate関数では、正しい日付である場合は”True”,日付として認識できない場合は”False”を返します。
IsDate関数を使用して、「yyyymmdd」の形式で使用している文字列型の日付が、日付として正しいかどうかをチェックします。
2. Integer.Parse(文字列)
“yyyymmdd”形式の文字列をInteger型に変換します

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Module Module1
Public Sub Main()
'文字列cftの宣言
Dim cft As String = "20220315"
Dim resDay As Integer
'日付の形式yyyymmdd
Dim Fmt As String = "0000/00/00"
'文字列をIntegerに変換する
resDay = Integer.Parse(cft)
'IsDate関数で文字列をチェックする
If IsDate(resDay.ToString(Fmt)) Then
'正しい日付True
Console.WriteLine(IsDate(resDay.ToString(Fmt)))
Console.WriteLine("文字列「20220315」が正しい日付です")
Else
'日付認識できない場合False
Console.WriteLine(IsDate(resDay.ToString(Fmt)))
Console.WriteLine("文字列「20220315」が不正な日付です")
End If
Console.ReadKey()
End Sub
End Module
Module Module1 Public Sub Main() '文字列cftの宣言 Dim cft As String = "20220315" Dim resDay As Integer '日付の形式yyyymmdd Dim Fmt As String = "0000/00/00" '文字列をIntegerに変換する resDay = Integer.Parse(cft) 'IsDate関数で文字列をチェックする If IsDate(resDay.ToString(Fmt)) Then '正しい日付True Console.WriteLine(IsDate(resDay.ToString(Fmt))) Console.WriteLine("文字列「20220315」が正しい日付です") Else '日付認識できない場合False Console.WriteLine(IsDate(resDay.ToString(Fmt))) Console.WriteLine("文字列「20220315」が不正な日付です") End If Console.ReadKey() End Sub End Module
Module Module1

    Public Sub Main()
        '文字列cftの宣言
        Dim cft As String = "20220315"
        Dim resDay As Integer
        '日付の形式yyyymmdd
        Dim Fmt As String = "0000/00/00"

        '文字列をIntegerに変換する
        resDay = Integer.Parse(cft)

        'IsDate関数で文字列をチェックする
        If IsDate(resDay.ToString(Fmt)) Then
            '正しい日付True
            Console.WriteLine(IsDate(resDay.ToString(Fmt)))
            Console.WriteLine("文字列「20220315」が正しい日付です")
        Else
            '日付認識できない場合False
            Console.WriteLine(IsDate(resDay.ToString(Fmt)))
            Console.WriteLine("文字列「20220315」が不正な日付です")
        End If

        Console.ReadKey()

    End Sub

End Module

 

VB.net

Posted by arkgame