第1个回答 2013-02-19
用datediff 来判断就可以了
Sub test()
Dim a As Date
Dim b As Date
Dim c
a = "8:40"
b = "8:41"
c = DateDiff("n", a, b)
If c > 0 Then
Else
End If
End Sub
第2个回答 2013-03-08
为了表达三种不同的情况,也就是大于,等于,小于给你举个例子,
因为日期和时间值,直接比较
试验(+)
点心A,B
B =范围(“B1”)=范围(“A1”)
如果A> b然后
MSGBOX“单元格A1大于B1单元格中 BR /> elseif的为a = b然后
MSGBOX“单元格A1等于单元格B1”
品
MSGBOX“单元格A1是不到小区B1”
结束如果结束小组
第3个回答 2013-02-19
为了表示三种不同的情况,即,大于、等于和小于,给你个例子,
因为日期和时间都是数值,直接对比即可
Sub test()
Dim a, b
a = Range("A1")
b = Range("B1")
If a > b Then
MsgBox "单元格A1大于单元格B1"
ElseIf a = b Then
MsgBox "单元格A1等于单元格B1"
Else
MsgBox "单元格A1小于单元格B1"
End If
End Sub本回答被网友采纳