Office: (Office 2003) Zeit Lang ( hh:mm:ss ) umrechnen in Sekunden

Marsu65 · 2. Oktober 2013

# gelöscht

User · 2. Oktober 2013

Hallo Eberhard

Hätte ich genau hingesehen, klar die if Anweisung gibt es ja vor.

Danke u. Schönen Feiertag
Gruß
Jürgen

User · 2. Oktober 2013

Hallo Eberhard

Ich wollte nur kurz berichten, dass ich es geschafft habe meine Zeit in "nn:ss" umzustellen. Dank deiner Hilfe und der Hilfe von Josef seinem Beispiel wurde mir die ganze Sache klar.

Hier die Lösung für alle:

Code:

Public Function Timestring2Seconds(ByVal Timestring As String) As Currency
' Timestring: 01:00,9
Dim vArr As Variant
vArr = Split(Timestring, ",")
Timestring2Seconds = CDate(vArr(0)) * 86400 / 60 + vArr(1) / 10 ^ Len(vArr(1))
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Public Function Seconds2Timestring(ByVal MySeconds As Currency, _
Optional ByVal PosDec As Integer = 1) As String
' Sekunden: 60,9

Dim lSec As Long
Dim iDec As Integer

lSec = Fix(MySeconds)
iDec = Fix((MySeconds - lSec) * 10 ^ PosDec)
Seconds2Timestring = Format(CDate(lSec / 86400), "nn:ss")
If PosDec > 0 Then _
Seconds2Timestring = Seconds2Timestring & "," & iDec

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

@ Eberhard ist es so richtig ??? falls ich einen Fehler drin habe, wäre ich dankbar wenn du mir noch eine kurze Info geben würdest.

Schönen Feiertag
Gruß
Jürgen

Office: (Office 2003) Zeit Lang ( hh:mm:ss ) umrechnen in Sekunden

Zeit Lang ( hh:mm:ss ) umrechnen in Sekunden

Zeit Lang ( hh:mm:ss ) umrechnen in Sekunden

Zeit Lang ( hh:mm:ss ) umrechnen in Sekunden - Similar Threads - Zeit Lang umrechnen

Daten aus anderer Tabelle zwischen Zeiten einfügen (Office 365)

Zeit Berechnung mit mehreren kriterien (Datum/Uhrzeit)

Runden bei Zeiten

Bedingte Formatierung, Leere Zelle ab best. Zeit einfärben und bei Eintrag Farbe weg.

Datum und Zeit aus einer Zelle extrahieren

Sollarbeitszeit mit SVERWEIS

Temperatur-Kurve über längere Zeit -> Achsbeschriftung