VB.NET DateTime Compare()用法及代码示例

Compare() 方法用于比较两个日期对象，并返回一个整数值来指定比较的结果。

用法:

Function Compare(ByVal date1 as Date, ByVal date2 as Date) as Integer

参数：

• Date1:第一个指定的日期对象。
• Date2:第二个指定的日期对象。

返回值：它返回一个整数值，

• 0: 两个日期相等。
• 1: 第一个日期早于第二个日期。
• -1: 第二个日期早于第一个日期。

程序/源代码：

下面给出了演示 DateTime 类的 Compare() 方法的源代码。给定的程序已成功编译并执行。

'VB.NET program to demonstrate Compare() 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 Integer = 0

        ret = DateTime.Compare(date1, date2)
        If (ret < 0) Then
            Console.WriteLine("{0} is earlier than {1}", date1, date2)
        ElseIf (ret = 0) Then
            Console.WriteLine("{0} and {1} are equal", date1, date2)
        Else
            Console.WriteLine("{0} is earlier than {1}", date2, date1)
        End If

        ret = DateTime.Compare(date2, date3)
        If (ret < 0) Then
            Console.WriteLine("{0} is earlier than {1}", date1, date2)
        ElseIf (ret = 0) Then
            Console.WriteLine("{0} and {1} are equal", date1, date2)
        Else
            Console.WriteLine("{0} is earlier than {1}", date2, date1)
        End If
    End Sub
End Module

输出：

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

说明：

在上面的程序中，我们创建了一个包含 Main() 函数的模块 Module1。 Main() 函数是程序的入口点。

在 Main() 函数中，我们创建了三个用日期值初始化的 DateTime 类对象。然后我们比较日期对象并在控制台屏幕上打印相应的消息。

---