Kan någon hjälpa mej ?? Hej, här e en funktion där du skickar me sekunder o får ut timmar minuter o sek. Alternativ funktion:Beräkning av tid
Jag vill räkna ut antal minuter mellan två klockslag.
Finns det några färdiga fuktioner i VB eller måste man "slå isär" klockslagen och sedan lägga till mellanliggande timmar*60 för att få totalt antal minuterSv: Beräkning av tid
sekunder får du me :
dina_sekunder = DateDiff("S", starttid, stoptid)
Function convertTime(seconds)
convsec = seconds Mod 60
If Len(convsec) = 1 Then
convsec = "0" & convsec
End If
convmin = (seconds Mod 3600) \ 60
If Len(convmin) = 1 Then
convmin = "0" & convmin
End If
convhour = seconds \ 3600
If Len(convhour) = 1 Then
convhour = "0" & convhour
End If
convertTime = convhour & ":" & convmin & ":" & convsec
End Function
sen anropar du:
msgbox converttime(dina_sekunder)Sv: Beräkning av tid
<code>
Function convertTime(Value)
Dim lngSeconds As Long
Dim lngMinutes As Long
Dim lngHours As Long
lngSeconds = Value Mod 60
lngMinutes = (Value Mod 3600) \ 60
lngHours = Value \ 3600
convertTime = lngHours & ":" & Right("0" & lngMinutes, 2) & ":" & Right("0" & lngSeconds, 2)
End Function
</code>