Någon som har ett tips på hur man omvandlar tex 23415 sek till jämna timmar, minuter och sekunder?

Ett tänk är ju men det vill sig inte pga jag inte vet hur jag skall avrunda h och m nedåt till närmsta heltal...

<code>
Private Sub cmdRun_Click()
Dim x, h, m, s As Integer
x = txtData.Text
h = x / 3600
m = (x / 3600) - h
s = (((((x / 3600) - h) * 60) - m) * 60)
lblH.Caption = h
lblM.Caption = m
lblS.Caption = s
End Sub
/<code>

Hej igen!

Har nu löst det med följande rader:

Private Sub cmdRun_Click()
Dim x, h, m, s As Long

x = txtData.Text
h = Int(x / 3600)
m = Int(((x / 3600) - h) * 60)
s = (((((x / 3600) - h) * 60) - m) * 60)
lblH.Caption = h
lblM.Caption = m
lblS.Caption = s

End Sub

/Jörgen Fransson

Jag har använt mig av en funktion som omvandlar en "massa sekunder" till minut och sekund. (returnerar mm:ss). Kanske kan du infoga för timmar åxå.


<code>
Function TidKonv(ByVal lngTemp As Long) As String
Dim intMin As Integer
Dim strSek As String
intMin = lngTemp \ 60
strSek = CInt(lngTemp - (intMin * 60))
If Len(strSek) < 2 Then TidKonv = intMin & ":" & "0" & strSek Else TidKonv = intMin & ":" & strSek
End Function
</code>

/W

nedanstående funktion returnerar dagar, timmar, sekunder kalkylerat på antal sekunder man skickar in.

Private Sub Command1_Click()'För test
MsgBox FormatSeconds(66327)
End Sub

Public Function FormatSeconds(Count As Long) As String
Dim Days As Integer, Hours As Long, Minutes As Long, Seconds As Long
Days = Count \ (24& * 3600&)
If Days > 0 Then Count = Count - (24& * 3600& * Days)
Hours = Count \ 3600&
If Hours > 0 Then Count = Count - (3600& * Hours)
Minutes = Count \ 60
Seconds = Count Mod 60

FormatSeconds = Days & " days, " & Hours & " hours, " & _
Minutes & " minutes, " & Seconds & " seconds"
End Function