利用Api函数计算Windows从启动后所运行的总时间

作者：徐建波

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Timer1_Timer()

Dim hour As Integer

Dim minute As Integer

Dim second As Integer

hour = GetTickCount \ 1000 \ 60 \ 60

Label1.Caption = Str(hour) + "小时"

minute = (GetTickCount - hour * 60 * 60 * 1000) \ 1000 \ 60

Label2.Caption = Str(minute) + "分钟"

second = (GetTickCount - Val(Label1.Caption) * 60 * 60 * 1000 - Val(Label2.Caption) * 60 * 1000) \ 1000

Label3.Caption = Str(second) + "秒钟"

End Sub