这里需要用到一个命令 DateTime.Format,这个命令可以把当前的时间转换成固定的某个格式。比如想要得到 19:20 这样的时间格式,就可以这样写
TracePrint DateTime.Format("%H:%S")
复制代码
根据这个命令,我们就可以进行时间的对比
Function Timing_time(t)
Dim t1 = DateTime.Format("%H:%S")
If t = t1 Then
Timing = true
Else
Timing = false
End If
End Function
If Timing_time("20:30") Then
TracePrint "现在已经20:30了,可以执行任务"
Else
TracePrint "时间还没到"
End If