Office中国论坛/Access中国论坛

标题: 倒计时继续 [打印本页]

作者: ZHANGYANGYANG 时间: 2014-1-8 08:45
标题: 倒计时继续
请问各位师傅，倒计时窗体关闭后停止，下次打开时继续就是不要从0开始的代码是什么，怎样写？谢谢了！

作者: 轻风 时间: 2014-1-8 09:55
本来就不会从0开始嘛，你是否要先说下你是怎么写的。

作者: ZHANGYANGYANG 时间: 2014-1-9 16:38
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，下次打开倒计时窗体时继续这个时间开始，该怎样写代码？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)