'单元格A1为时间来值
'时间相同
If Range("A1") = Now() Then
'DO 时间相同源
Else
MsgBox ("时间不知同")
End If
'日相同
If Day(Range("A1")) = Day(Now()) Then
MsgBox ("与当前时间的日期相同")
Else
MsgBox ("不同")
Exit Sub
End If
'月份道相同
If month(Range("A1")) = month(Now()) Then
MsgBox ("月份相同"))
Else
MsgBox ("月份不同")
Exit Sub
end if
'年份相同
If year(Range("A1")) = year(Now()) Then
' do 年相同
Else
MsgBox ("不同")
Exit Sub
end if