列标题中的Excell VBA检查日期

Function IsDateValid(dateValue As Variant) As Boolean
    On Error Resume Next
    Dim tempDate As Date
    tempDate = CDate(dateValue)
    If Err.Number = 0 Then
        IsDateValid = True
    Else
        IsDateValid = False
    End If
    On Error GoTo 0
End Function

Function IsDateInRange(dateValue As Variant, startDate As Date, endDate As Date) As Boolean
    Dim tempDate As Date
    tempDate = CDate(dateValue)
    If tempDate >= startDate And tempDate <= endDate Then
        IsDateInRange = True
    Else
        IsDateInRange = False
    End If
End Function

Function IsLeapYear(yearValue As Integer) As Boolean
    If yearValue Mod 4 = 0 And (yearValue Mod 100 <> 0 Or yearValue Mod 400 = 0) Then
        IsLeapYear = True
    Else
        IsLeapYear = False
    End If
End Function