取得系統時間

使用API

API名稱:GetTickCount
動態連結程式庫: kernel32.dll


程式說明

取得目前系統從開機到現在的時間,以milliseconds為單位,本範例已轉換秒、分、時、天。
最高可計算52天開機時間,並隨著Timer運作動作。


VB6程式碼

Option Explicit

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


Private Sub Timer1_Timer()
Dim i As Integer
Dim lngMS As Long
lngMS = GetTickCount
Text1.Text = lngMS & " milliseconds" & vbNewLine
Text1.Text = Text1.Text & lngMS / 1000 & " Seconds" & vbNewLine
Text1.Text = Text1.Text & lngMS / 1000 / 60 & " Minute" & vbNewLine
Text1.Text = Text1.Text & lngMS / 1000 / 60 / 60 & " Hour" & vbNewLine
Text1.Text = Text1.Text & lngMS / 1000 / 60 / 60 / 24 & " Day" & vbNewLine
End Sub

VB.NET程式碼

Option Explicit On
Public Class Form1

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

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim lngMS As Long
lngMS = GetTickCount
TextBox1.Text = lngMS & " milliseconds" & vbNewLine
TextBox1.Text = TextBox1.Text & lngMS / 1000 & " Seconds" & vbNewLine
TextBox1.Text = TextBox1.Text & lngMS / 1000 / 60 & " Minute" & vbNewLine
TextBox1.Text = TextBox1.Text & lngMS / 1000 / 60 / 60 & " Hour" & vbNewLine
TextBox1.Text = TextBox1.Text & lngMS / 1000 / 60 / 60 / 24 & " Day" & vbNewLine
End Sub
End Class

下載