[分享]【附件已上传】VBA可用的自定义Timer控件

ymwu · 发表于 2009-10-30 15:21

我没时间去深入研究了，现在只好用变通的方法来解决。就是利用系统时钟不受EXCEL的影响的特性，通过计算系统时间差来进行计数。

在计时开始前先记下当前时间
OldTT = Hour(Time) * 3600 + Minute(Time) * 60 + Second(Time)
   Count = 0
   Timer.Enable = True

在时钟事件中计算时差做为计数值
Sub Timer()
NowT = Hour(Time) * 3600 + Minute(Time) * 60 + Second(Time)
Count = NowT - OldT
   '做Count显示
End Sub
这样无论暂停多久，只要一恢愎就能准确计时、计数。
缺点就是精度只能是秒级以上，而且不能跨0点（也不是完全不行，只是我这点程序是不行的，呵呵）。

希望能有做控件的高手提供更好的控件，或有更好的方法解决这一问题，本人将不盛感谢。

winamprose · 发表于 2009-10-30 16:27

very good!!

ehome_gaorp · 发表于 2010-6-1 11:49

找了好久，谢了！

jebbs · 发表于 2010-10-26 16:18

LZ太伟大了,其实还有另一个好处,API的TIMER如果没有清除掉,VBA关闭时,会导致EXCLE也会被结束

jebbs · 发表于 2010-10-26 17:23

只是会提示"可能不安全的activeX控件",有解吗?

sxyclio · 发表于 2011-3-3 15:28

楼主很强！

miaoqq123 · 发表于 2011-3-4 22:43

看看先！！！！1

shaojq123 · 发表于 2011-3-5 15:45

不错！！！学习学习

zhucezy · 发表于 2011-6-29 14:53

真是太有帮助了！多谢楼主！

jebbs · 发表于 2011-12-2 20:48

64位下注册不了，有解吗？

		自动登录	找回密码
密码			免费注册

[分享] [分享]【附件已上传】VBA可用的自定义Timer控件

回复 20楼 Moneky 的帖子

感谢！

回复 1楼 Moneky 的帖子