VBA 怎样进行时间比较大小？

清泉石上流shm · 发表于 2011-9-19 21:43

本帖最后由清泉石上流shm 于 2011-9-21 21:43 编辑

有俩个时间2011-10-8 12：11：12 和2011-10-5 13：15：16用VBA 比较时间大小，正确的程序是什么？请前辈们指教！比较的时间是个变量！！

livewire · 发表于 2011-9-19 22:20

如果是date类型，那么就是数值之前比较大小。

gdfcx · 发表于 2011-9-19 22:20

MsgBox #10/8/2011 12:11:12 PM# - #10/5/2011 1:15:16 PM#

wisdom100 · 发表于 2011-9-19 22:32

本帖最后由 wisdom100 于 2011-9-19 22:42 编辑

Sub checkTime()
Dim t1, t2 As Date
t1 = "2011-10-6 12：11：12 "
t2 = "2011-10-5 13：15：16"
If t2 > t1 Then
MsgBox t2 & "比" & t1 & "大"
ElseIf t2 = t1 Then
If DiffADate(t1, t2) > 0 Then
      MsgBox t2 & "比" & t1 & "大"
Else
      MsgBox t2 & "比" & t1 & "小"
End If
Else
MsgBox t2 & "比" & t1 & "小"
End If
End Sub

Function DiffADate(ByVal t1 As Date, ByVal t2 As Date) As Integer
DiffADate = DateDiff("s", t1, t2)
End Function
更新了  没有考虑清楚刚才

清泉石上流shm · 发表于 2011-9-21 21:43

wisdom100 发表于 2011-9-19 22:32
Sub checkTime()
Dim t1, t2 As Date
t1 = "2011-10-6 12：11：12 "

非常感谢！！！很有用~~

wisoper · 发表于 2018-7-17 16:15

wisdom100 发表于 2011-9-19 22:32
Sub checkTime()
Dim t1, t2 As Date
t1 = "2011-10-6 12：11：12 "

谢谢分享！！！！！！

		自动登录	找回密码
密码			免费注册

[已解决] VBA 怎样进行时间比较大小？

评分

评分