Kuinka saa kellon jossa on sekunnin tuhannesosat?
kun ei taida tuolla tavan timerillä saada :/
kun ei taida tuolla tavan timerillä saada :/
Turvaa tilisi vahvistamalla puhelinnumerosi. Voit silloin palauttaa unohtuneen salasanan tekstiviestillä.
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 4
Vanhimmat
Tällä API-funktiolla saat aika tarkan ajan.
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
En saanut toimimaan, voisitko selittää mitenkä tuo pitää tehdä? =)
En tiedä mitä haluat oikein tehdä, mutta ao. koodinpätkä näyttää juoksevan ajan.
Lisää formille Timer- ja Label-kontrolli ja aseta Timer-kontrollin Interval-arvo 1.
Private Sub Timer1_Timer()
Dim sys As SYSTEMTIME
Call GetLocalTime(sys)
Label1.Caption = sys.wHour & ":" & sys.wMinute & ":" & sys.wSecond & ":" & sys.wMilliseconds
End Sub
Print Time & ":" & Replace(Round(Timer - Int(Timer), 3), "0,", "")