关于FORMAT函数的问题

huyangbo21 发布于 2015-01-27 21:17， 469 次点击

一个秒表模拟程序，2个按钮用于“开始”和“停止”，问题是用label6.caption表示经过时间的秒是百进制的，如会有这样的：00:02:71，怎么能让他按60进制的显示出来呢？
Private Sub Command1_Click()
   Command1.Enabled = False
   Command2.Enabled = True
   Label4.Caption = Time
End Sub

Private Sub Command2_Click()
   Command2.Enabled = False
   Command1.Enabled = True
   Label5.Caption = Time
   Label6.Caption = Format(DateDiff("s", Label4.Caption, Label5.Caption), "00:00:00")
End Sub

6 回复

xzlxzlxzl2015-01-27 22:02

Private Sub Command2_Click()
   Dim i As Long
   Command2.Enabled = False
   Command1.Enabled = True
   Timer1.Enabled = True
   Label5.Caption = Time
   i = DateDiff("s", Label4.Caption, "00:00:00")
   Label6.Caption = DateAdd("s", i, Label5.Caption)
End Sub
'这样改就可以了，原理是首先计算label4经过的总秒数，用当前时间减去总秒数，就是流经的时间，是时间格式显示，自然就是60进制了，和format无关。

huyangbo212015-01-27 22:54

回复 2楼 xzlxzlxzl

受教了，谢谢！

huyangbo212015-01-27 23:04

回复 2楼 xzlxzlxzl

Timer1.Enabled = True
这句有什么用呢？

xzlxzlxzl2015-01-28 13:14

回复 4楼 huyangbo21

忘了去掉，那是调试用的，需去掉。当时用了个定时器每秒刷新一下，就不用点按钮了。

txxb2015-01-28 19:38

你要的大概是不是这个效果
Private Sub Command1_Click()
t=timer
...

Private Sub Command2_Click()
label6.caption=timer-t'间隔的秒数，取个整什么的就可以了
...

huyangbo212015-01-28 21:41

回复 6楼 txxb

就是点2个按钮，记录下各自的时间，并计算出2次点击的间隔时间，简单的模拟秒表吧，
2楼已经帮我解决了，
多谢热心指点