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
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