title image


Smiley Zeitenformatierung VBA > 24 Stunden
Hallo Armin,



probiere es mal so:









Sub summeZeit()



Dim Zeit1, Zeit2 As Date



Zeit1 = CDate("15:10:05")

Zeit2 = CDate("15:51:56")



MsgBox TimeString(Zeit1 + Zeit2)



End Sub



Function TimeString(ByVal Zeit As Variant) As String

Dim Stunden As Long

Dim Minuten As Long

Dim Sekunden As Long



'In (gerundete) Gesamtsekunden konvertieren:

Zeit = Int(Zeit * 86400 + 0.5)



'Stunden-, Minuten- und Sekundenanteil bestimmen:

Stunden = Zeit \ 3600

Minuten = CLng(Zeit - Int(Zeit \ 3600) * 3600) \ 60

Sekunden = Zeit - (Stunden * 3600) - (Minuten * 60)



'Formatierung:

TimeString = Format$(Stunden, "00") _

  & ":" & Format$(Minuten, "00") _

  & ":" & Format$(Sekunden, "00")



End Function







Code eingefügt mit Syntaxhighlighter 4.0









geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: