Date.compare例子

    Private Sub Date_Compare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Date_Compare.Click
        Dim date1 As Date = Date.FromOADate(2013 / 3 / 19)
        Dim date2 As Date = Date.FromOADate(2013 / 4 / 20)
        If Date.Compare(date1, date2) > 0 Then
            MsgBox("data1 > data2")
        Else
            MsgBox("data1 < data2")
        End If
    End Sub