目前仅供娱乐使用,现在的问题是只能按小时相减来判断小时数,而不是精确到分秒,计划进一步完善。
Dim MyTime,OldTime,difTime,midTime '代表两时间相减的结果
MsgBox("老大,早上好,一定要记得打卡啊!!O(∩_∩)O")
OldTime = Now
midTime = Now
WScript.sleep 30000
MsgBox("确定打完啦?~...好了,点我吧(>^ω^<)喵")
Do
MyTime = Now
difTime = DateDiff("h", midTime, MyTime)
If difTime>=1 Then
midTime=Now
MsgBox("老大,您已经工作了一个小时了,起来活动活动吧")
End If
difTime = DateDiff("h", OldTime, MyTime)
If difTime>=9 Then
MsgBox("老大,八小时工作时间已经到了,可以去打卡了")
Exit Do
End If
WScript.sleep 30000
loop