Dauer Errechnung

Forumthread: Dauer Errechnung
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Dauer Errechnung

Dauer Errechnung

03.12.2003 13:05:20

Susanne

Hallo,

Ich habe da ein Problem:
Ich möchte verschiedene Stundenangaben wie "352:45:32" und weitere zusammenrechnen und dann als Gesamtdauer in ein Feld schreiben.
Mein Problem ist nun, das die Angaben das Format String haben und ich es als Date brauche um damit weiter rechnen zu können. Da es aber im grunde keine richtige Uhrzeit ist, sonderen eine Stundenangabe, klappt das mit der CDate Funktion nicht.

Bin für jede Hilfe dankbar

Grüße
Susanne

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dauer Errechnung

03.12.2003 14:05:43

Harald Kapp

AW: Dauer Errechnung

03.12.2003 14:05:43

Harald Kapp

Hallo Susanne,
etwa so:


Sub test()
Dim stunden, minuten, sekunden As Integer
Dim strzeit As String
strzeit = Cells(1, 1)
stunden = Left(strzeit, InStr(1, strzeit, ":") - 1)
strzeit = Right(strzeit, Len(strzeit) - InStr(strzeit, ":"))
minuten = Left(strzeit, InStr(1, strzeit, ":") - 1)
strzeit = Right(strzeit, Len(strzeit) - InStr(strzeit, ":"))
sekunden = strzeit
MsgBox stunden & ":" & minuten & ":" & sekunden
End Sub

Gruß Harald

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!