Tjena.

Vill konvertera milisekunder eller "microseconds" till vanlig tid i formatet: timmer:minuter:sekunder.
Hur kan man lösa detta?
Har sökt på google fast inte hittat någe :(

Försökte ändra men det gick ej..
Verkar som om koden jag har retunerar "microseconds"..

http://www.convertworld.com/en/time/Milliseconds.html
<code>
Option Explicit
'GetTickCount Function
'Retrieves the number of milliseconds that have elapsed since the system was started, up to 49.7 days.
'In general section
Private Declare Function GetTickCount& Lib "kernel32" ()
Private Sub Form_Load()
Dim ret As Long
ret = GetTickCount
MsgBox ret & " millisekunder ="
End Sub
</code>

Vet inte riktigt vad föregående post hjälpte till med, men så som jag uppfattade frågan så får du microseconds från en metod och vill konvertera till hh:mm:ss. Är det nått fel på att skriva en egen funktion som helt enkelt bara delar med tusen, tar fram överblivna mikrosekunder och sparar undan. Sen dividerar med 1000 gör samma sak igen. Då har du mikrosekunder och millisekunder. Sen bara fortsätta dela med lämpliga värden, dvs 60 och 24 osv, och sparar undan varje del. Var det förståligt?
I VB.NET har man ju en snäll möjlighet att använda en konstruktor på TimeSpan structen som tar in ticks och ger en möjlighet att plocka ut datat snabbt och enkelt. Men i VB tror jag du är fast med att manuellt dela upp dina mikrosekunder i delar... Men jag är ju inte VB utvecklare.

Jag är inte så värst bra på matte. Kan höra ihop med min autism.
Sven Åke Persson svar är så vit jag förstår för milisekunder så tyvär kan jag ej använda det men tack ändå :).
Får klura vidare och se om jag kan få till det.

M.V.H.
Johan A

Dim ms as long
ms = GetMilliseconds()

Dim t as Date
t = TimeSerial(0,0,ms/1000)

msgbox t

Martins svar fungerar säkert alldeled utmärkt men här är ett alternativ (pseudo kod)

long mikrosekunder

long timmar
long minuter
long sekunder

sekunder=mikrosekunder/1000000
timmar=sekunder/3600
sekunder=sekunder-timmar*3600
minuter=sekunder/60
sekunder=sekunder-minuter*60

Detta fungerar bara om man använder en heltalstyp för timmar, minuter och sekunder.

/Ruben

<code>
Function KonverteraTid(Byval Microsekunder As Double) As String
Dim Sekunder As Long
Dim Minuter As Long
Dim Timmar As Long

Sekunder = CLng(Microsekunder/1000000)
Timmar = (Sekunder/3600)
Sekunder = Sekunder - (Timmar * 3600)
Minuter = CLng(Sekunder/60)
Sekunder = Sekunder - (Minuter * 60)

KonverteraTid = Format(Timmar, "00") & ":" & Format(Minuter, "00") & ":" & Format(Sekunder, "00")
End Function
</code>

Koden är otestad så eventuellt kan den innehålla fel.


/Thomas

K, tackar och bugar för hjälpen. ska testa om det funkar :D