VB中如何实现时间比较
本人很菜，刚学，越简单越好。意思是我在文本输入框里输入如下的时间：13:43:02，如果这个时间与系统时间相等将触发某一事件。谢谢。我已经尝试过各种数据类型转换后在比较了，但还是有问题。
[解决办法]
if format(text.text,"HH:MM:SS")=format(now(),"HH:MM:SS") then ...end if
[解决办法]
1, 你的头像不好看，结贴率也低。
2， 时间用文本框麻烦，试试dtp time only
3， 用个timer，
[解决办法]
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函数来做比较
[解决办法]
还可以使用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 来计算两个日期之间相隔几日，或计算从今天起到年底还有多少个星期。
[解决办法]
怎么可能不行呢，放timer中
[解决办法]
