Rechnen mit Zeit
09.11.2002 15:52:52
volker.r
Ich möchte von einer bestimmten Sartzeit weg- Zeitintervalle
rechnen und dann darstellen.Alles funktioniert bis ich auf
00:00 in der Nacht treffe, dann ist sense???
Hier mein vereinfachtes Beispiel!
Wer kann mir nen Tip geben, Vielen Dank im voraus
mfg.volker
Sub Rech()
Dim ar(10)
' von Startzeit die minuten addieren
Start = CDate(Range("A1")) 'A1 = 20:00
Min = CDate(Range("B1")) 'B1 = 00:20
ar(1) = CDate(Start)
For x = 2 To 8
ar(x) = CDate(ar(x - 1) + Min)
Next
End Sub
'nach 00:00 wird die Datum #31.12.1899#
'statt der Zeit ins Array gestellt.