Tjena. Försökte ändra men det gick ej.. http://www.convertworld.com/en/time/Milliseconds.html 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? Jag är inte så värst bra på matte. Kan höra ihop med min autism. Dim ms as long Martins svar fungerar säkert alldeled utmärkt men här är ett alternativ (pseudo kod) <code> K, tackar och bugar för hjälpen. ska testa om det funkar :DKonvertera milisekunder till vanlig tid
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 :(Sv: Konvertera milisekunder till vanlig tid
Verkar som om koden jag har retunerar "microseconds"..Sv:Konvertera milisekunder till vanlig tid
<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>Sv: Konvertera milisekunder till vanlig tid
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.Sv:Konvertera milisekunder till vanlig tid
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 ASv: Konvertera milisekunder till vanlig tid
ms = GetMilliseconds()
Dim t as Date
t = TimeSerial(0,0,ms/1000)
msgbox tSv:Konvertera milisekunder till vanlig tid
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.
/RubenSv: Konvertera milisekunder till vanlig tid
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.
/ThomasSv:Konvertera milisekunder till vanlig tid