|
3#
楼主 |
发表于 2014-1-9 16:38:24
|
只看该作者
Private Sub Form_Timer()
s = IIf(ss < 10, "0" & ss, "" & ss)
m = IIf(mm < 10, "0" & mm, "" & mm)
h = IIf(hh < 10, "0" & hh, "" & hh)
Me.T1 = h & ":" & m & ":" & s
ss = ss - 1
If hh = 0 And mm = 0 And ss = -1 Then
msg = "试用期时间已到,按回车键结束!"
DoCmd.Quit acQuitSaveAll
End If
If ss = -1 And mm > 0 Then mm = mm - 1: ss = 59
If mm = 0 And hh > 0 Then hh = hh - 1: mm = 59: ss = 59
End Sub 这是我写的代码,就是当倒计时窗体关闭后,下次打开继续,例如关闭时的时间是00:02:23,下次打开倒计时窗体时继续这个时间开始,该怎样写代码? |
|