Format

Nopes .. sorry .. Windows måler ikke ms til brug i VB.
Men der er en funktion der hedder GetTicks(), den tæller \"ticks\". Lige et sec ..

GetTickCount hedder den .. den returnerer antal MS siden Windows blev startet.

Private|Public Declare Function GetTickCount Lib \"kernel32.dll\" () As Long

Alt efter om du smider den i toppen af din form kode eller i et modul skal der stå hhv. Private Declare og Public Declare.

Desværre så kan man ikke regne et klokkeslæt ud fra det :-(

Lavede lige noget for sjov. Denne her viser hvor lang tid Windows har været oppe. Dog resetter den efter ca. 47,5 dage pga. at MS tallet bliver for højt til en 32-Bit long.

Lav en timer og sæt interval til 10, smid en label go sæt AutoSize = True.
i form koden:
----
Private Declare Function GetTickCount Lib \"kernel32.dll\" () As Long

Private Sub Timer1_Timer()
    Label1.Caption = GetTime
End Sub

Function GetTime() As String
    Dim ticks As Long
    Dim hours As Long
    Dim minutes As Long
    Dim seconds As Long
    Dim ms As Long
    Dim days
   
    ticks = GetTickCount()

    seconds = ticks \\ 1000: ticks = ticks - (seconds * 1000)
    minutes = seconds \\ 60: seconds = seconds - (minutes * 60)
    hours = minutes \\ 60: minutes = minutes - (hours * 60)
    ms = ticks
    If hours > 24 Then days = hours \\ 24: hours = hours - (days * 24): days = days & \" days \"

    GetTime = days & hours & \":\" & minutes & \":\" & seconds & \",\" & ms
End Function