3个回答
展开全部
用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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
为了表达三种不同的情况,也就是大于,等于,小于给你举个例子,
因为日期和时间值,直接比较
试验(+)
点心A,B
B =范围(“B1”)=范围(“A1”)
如果A> b然后
MSGBOX“单元格A1大于B1单元格中 BR /> elseif的为a = b然后
MSGBOX“单元格A1等于单元格B1”
品
MSGBOX“单元格A1是不到小区B1”
结束如果结束小组
因为日期和时间值,直接比较
试验(+)
点心A,B
B =范围(“B1”)=范围(“A1”)
如果A> b然后
MSGBOX“单元格A1大于B1单元格中 BR /> elseif的为a = b然后
MSGBOX“单元格A1等于单元格B1”
品
MSGBOX“单元格A1是不到小区B1”
结束如果结束小组
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
为了表示三种不同的情况,即,大于、等于和小于,给你个例子,
因为日期和时间都是数值,直接对比即可
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
因为日期和时间都是数值,直接对比即可
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |