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() 方法比较日期对象并在控制台屏幕上打印相应的消息。

---