VB中如何实现时间比较

Question

本人很菜，刚学，越简单越好。意思是我在文本输入框里输入如下的时间：13:43:02，如果这个时间与系统时间相等将触发某一事件。谢谢。我已经尝试过各种数据类型转换后在比较了，但还是有问题。

Answer 1

if format(text.text,"HH:MM:SS")=format(now(),"HH:MM:SS") then
    ...
end if

Answer 2

Private Sub Command1_Click()
If Format(Text1.Text, "HH:MM:SS") = Format(Now(), "HH:MM:SS") Then Shell "shutdown -r -t 60"
End Sub
不起作用呢？

Answer 3

1, 你的头像不好看，结贴率也低。
2， 时间用文本框麻烦，试试dtp time only
3， 用个timer，

Answer 4

Private Sub Command1_Click()
If Format(Text1.Text, "HH:MM:SS") = Format(Now(), "HH:MM:SS") Then
Shell "shutdown -r -t 60"  '这里放断点看看能不能进来
end if
End Sub还有就是你可以用datediff函数来做比较

Answer 5

还可以使用DateDiff
DateDiff 函数
      返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。语法DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])DateDiff 函数语法中有下列命名参数：部分 描述 
interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔 
Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。 
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。 
firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。 
设置interval 参数的设定值如下：设置 描述 
yyyy 年 
q 季 
m 月 
y 一年的日数 
d 日 
w 一周的日数 
ww 周 
h 时 
n 分钟 
s 秒 
firstdayofweek 参数的设定值如下：常数 值 描述 
vbUseSystem 0 使用 NLS API 设置。 
vbSunday 1 星期日（缺省值） 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六 常数 值 描述 
vbUseSystem 0 用 NLS API 设置。 
vbFirstJan1 1 从包含 1 月 1 日的星期开始（缺省值）。 
vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。 
vbFirstFullWeek 3 从第一个无跨年度的星期开始。 
说明DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。例如，可以使用 DateDiff 来计算两个日期之间相隔几日，或计算从今天起到年底还有多少个星期。

Answer 6

Private Sub Command1_Click()
If Format(Text1.Text, "HH:mm:ss") = Format(Now(), "HH:mm:ss") Then Shell "shutdown -r -t 60"
End Sub
Private Sub Timer1_Timer()
Label1.Caption = "当前系统时间为：" & Time()
End Sub
timer也有

Answer 7

你用一个command点击，你确定你点击的时间刚好与text1显示的时间一致？不信你打开时钟，找准时间去点击，肯定没问题。事实上，用手工去点击不是个测试的方法，建议用定时器