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

Industriezeit in normale Zeit

Zeit an dem mehrere Arbeitsplätze belegt sind

Zeiten wie berechnen

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

Zeit Berechnung mit mehreren kriterien (Datum/Uhrzeit)

Runden bei Zeiten

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