这么简单的一个换算 ,給忘了, 用timer控件来计算机 一个程序运行了 多久!!

Question

要求显示的格式是 00时00分00秒    60秒后分种加1, 秒变为0   60分种后小时加1,分变为0. 谢谢!!!!

Answer 1

程序运行时记下程序运行的开始时间，然后在Timer控件的Timer事件中用DateDiff函数自动计算程序的运行时间

Answer 2

private tcount as long 
private str as string
private sub form_load()
 Timer1.Interval=1000
end subPrivate Sub Timer1_Timer()
tcount=tcount+1
str=Format(tcount\3600,"00") & ":" & Format((tcount Mod 3600)\60,"00") & ":" & Format(tcount Mod 60,"00")End Substr就是你要的格式