VBA比较两个日期的大小

在 VBA 中，您可以使用“DateDiff”函数来比较两个日期的大小。以下是一个示例：

Sub CompareDates()
    Dim Date1 As Date
    Dim Date2 As Date

    '设置日期
    Date1 = #6/1/2021#
    Date2 = #6/2/2021#

    '比较两个日期的大小
    If DateDiff("d", Date1, Date2) > 0 Then
        MsgBox "Date2 is greater than Date1"
    ElseIf DateDiff("d", Date1, Date2) < 0 Then
        MsgBox "Date1 is greater than Date2"
    Else
        MsgBox "Date1 and Date2 are equal"
    End If
End Sub

在上述代码中，“DateDiff”函数使用第一个参数指定要比较的单位（例如，“d”表示天），第二个参数是第一个日期，第三个参数是第二个日期。如果第一个日期早于第二个日期，则返回值为负数；如果第一个日期晚于第二个日期，则返回值为正数；如果两个日期相等，则返回值为零。通过比较返回值，您可以确定哪个日期更大。