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

本文介绍了一个简单的VB.NET示例程序,用于演示如何比较两个日期。通过使用Date.Compare方法,程序可以判断第一个日期是否晚于第二个日期,并显示相应的消息。
1596

被折叠的 条评论
为什么被折叠?



