环游中国 东海嘉措:VB 获取系统启动时间的方法

来源:百度文库 编辑:偶看新闻 时间:2024/05/04 19:53:42

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