新人请教时间累积的问题

新人请教：需要编个小程序，关于时间累积的，启动程序后。时间会一秒一秒的走动，60秒就显示1分钟，60分钟就显示一小时，格式如：XX小时XX分钟XX秒一直累积。当程序中断后，显示的时间会以秒为单位记录在一个 txt文本里面，再次启动程序时，将会读取这个txt文本文件，时间将接这上次停止的地方继续累积。
请大家帮帮忙，谢谢了！

没人帮忙吗

不感兴趣

开通SVIP免广告

这是要限制程序使用时间吗？

Option Explicit
Dim SecondCount As Long, RecPath As String
Private Sub Form_Load()
RecPath = App.Path & "\TimeRecord.txt"
If Dir(RecPath) = "" Then
SecondCount = 0
Else
Open RecPath For Input As #1
Input #1, SecondCount
Close #1
End If
Timer1.Interval = 1000
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open RecPath For Output As #1
Print #1, SecondCount
Close #1
End Sub
Private Sub Timer1_Timer()
Dim h%, m%, s%, sh$, sm$, ss$
h = SecondCount \ 3600
sh = IIf(h = 0, "", h & "小时")
m = SecondCount \ 60
sm = IIf(m = 0 And h = 0, "", m & "分钟")
s = SecondCount Mod 60
ss = IIf(s = 0, "", s & "秒")
Label1.Caption = sh & sm & ss
SecondCount = SecondCount + 1
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

4回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六