设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1663|回复: 2
打印 上一主题 下一主题

[模块/函数] 倒计时继续

[复制链接]
跳转到指定楼层
1#
发表于 2014-1-8 08:45:35 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请问各位师傅,倒计时窗体关闭后停止,下次打开时继续就是不要从0开始的代码是什么,怎样写?谢谢了!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2014-1-8 09:55:18 | 只看该作者
本来就不会从0开始嘛,你是否要先说下你是怎么写的。
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,下次打开倒计时窗体时继续这个时间开始,该怎样写代码?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-21 07:08 , Processed in 0.110613 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表