VB.NET DateTime Equals()用法及代碼示例

Equals() 方法用於比較兩個日期對象，並返回一個布爾值來指定比較的結果。

用法:

Function Equals(ByVal date1 as Date, ByVal date2 as Date) as Boolean

參數：

• Date1:第一個指定的日期對象。
• Date2:第二個指定的日期對象。

返回值：當 DateTime 類的兩個對象相等時，它返回 True，否則返回 False。

程序/源代碼：

下麵給出了演示 DateTime 類的 Equals() 方法的源代碼。給定的程序已成功編譯並執行。

'VB.NET program to demonstrate Equals() method of DateTime class.

Imports System

Module Module1
    Sub Main()
        Dim date1 As New DateTime(2020, 4, 27)
        Dim date2 As New DateTime(2021, 3, 28)
        Dim date3 As New DateTime(2021, 3, 28)
        Dim ret As Boolean = False

        ret = DateTime.Equals(date1, date2)
        If (ret = True) Then
            Console.WriteLine("{0} and {1} are equal", date1, date2)
        Else
            Console.WriteLine("{0} and {1} are not equal", date1, date2)
        End If

        ret = DateTime.Equals(date2, date3)
        If (ret = True) Then
            Console.WriteLine("{0} and {1} are equal", date2, date3)
        Else
            Console.WriteLine("{0} and {1} are not equal", date2, date3)
        End If
    End Sub
End Module

輸出：

27-04-2020 00:00:00 and 28-03-2021 00:00:00 are not equal
28-03-2021 00:00:00 and 28-03-2021 00:00:00 are equal
Press any key to continue . . .

說明：

在上麵的程序中，我們創建了一個包含 Main() 函數的模塊 Module1。 Main() 函數是程序的入口點。

在 Main() 函數中，我們創建了三個用日期值初始化的 DateTime 類對象。然後我們使用 DateTime 類的 Equals() 方法比較日期對象並在控製台屏幕上打印相應的消息。

---