Private Declare Function GetTickCount Lib "kernel32" () As Long Private Declare Function GetTickCount Lib "kernel32" () As Long Private Sub Form_Load() Dim RunTime As Long Dim Hour As Integer ' 时 Dim Minute As Integer ' 分 Dim Second As Integer ' 秒 RunTime = GetTickCount() \ 1000 '获得总共运行的秒数 Hour = RunTime \ 3600 '获得运行的小时数 RunTime = RunTime - 3600 * Hour Minute = RunTime \ 60 '获得分数 Second = RunTime - 60 * Minute '获得秒数 Text1.Text = Hour & "时" & Minute & "分" & Second & "秒" End Sub |
|