如何检查单元格值是否为time - VBA

Dim cellValue As Variant
cellValue = Range("A1").Value

If IsDate(cellValue) Then
    MsgBox "单元格的值是一个有效的日期或时间"
Else
    MsgBox "单元格的值不是一个有效的日期或时间"
End If

Dim cellValue As Variant
cellValue = Range("A1").Value

If IsDate(cellValue) Then
    Dim dt As Date
    dt = CDate(cellValue)
    
    ' 检查时间部分是否为0点
    If Hour(dt) = 0 And Minute(dt) = 0 And Second(dt) = 0 Then
        MsgBox "单元格的值是一个有效的日期"
    Else
        MsgBox "单元格的值是一个有效的时间"
    End If
Else
    MsgBox "单元格的值不是一个有效的日期或时间"
End If