「VB.NET」CompareToで日付DateTimeの前後を調べる

2014年12月15日2021年9月30日

書式
Public Function CompareTo (value As DateTime) As Integer
このインスタンスの値と指定した DateTime の値を比較し、このインスタンスの値が指定した
DateTime の値よりも前か、同じか、または後かを示す整数を返します。
使用例

Module Module1

    Sub Main()

        'DateTiem型変数
        Dim dtA As DateTime = New DateTime(2021, 9, 28)
        Dim dtB As DateTime = New DateTime(2021, 10, 29)
        Dim dtC As DateTime = New DateTime(2021, 9, 30)


        Dim td As DateTime = DateTime.Today
        Console.WriteLine("日付: " + td.ToString)
        '今日と指定DateTimeの値を比較
        Dim res1 As Integer = td.CompareTo(dtA)
        Dim res2 As Integer = td.CompareTo(dtB)
        Dim res3 As Integer = td.CompareTo(dtC)

        Console.WriteLine("値1: " + res1.ToString)
        Console.WriteLine("値2: " + res2.ToString)
        Console.WriteLine("値3: " + res3.ToString)


        Console.ReadKey()

    End Sub

End Module

実行結果
日付: 2021/09/30 0:00:00
値1: 1
値2: -1
値3: 0