Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Zeitwert in serieller Zahl, auch halben Tage
Autor: Michael_HU
Datum: 07.04.13 09:59
Ich habe hier eine ähnliche Berechnung gefunden: '** Zeit-Differenz berechnen '** http://www.vbarchiv.net/tipps/tipp_571-zeit-differenz-berechnen.html Dim lngMin As Long Dim lngStd As Long Dim sTime1 As String Dim sTime2 As String sTime1 = "12:00" sTime2 = "00:00" ' Zeitdifferen lässt sich nur berechnen, wenn man ' auch ein gültiges Datum mit angibt Dim sDate1 As String Dim sDate2 As String sDate1 = CDate(Format$(Now, "m-d-yy")) ' Wenn sTime2 < sTime1 sDate2 = DateAdd("d", IIf(sTime2 < sTime1, 1, 0), sDate1) ' Zeit-Differenz in Minuten lngMin = DateDiff("n", CDate(sDate1 & " " & sTime1), _ CDate(sDate2 & " " & sTime2)) / 60 / 24 MsgBox "lngMin: " & lngMin Gibt mir Null aus, obwohl beim Haltepunkt setzen am lngMin ohne Dividierungen stimmt die Zeit: lngmin=720 Min. Wenn ich diese dann dividiere durch 60 und durch 24 dann müsste ich 0,5 Tag bekommen lt. taschenrechner.

Zeitwert in serieller Zahl, auch halben Tage	1.856	Michael_HU	07.04.13 09:25
Re: Zeitwert in serieller Zahl, auch halben Tage	1.071	Blackbox	07.04.13 09:58
Re: Zeitwert in serieller Zahl, auch halben Tage	1.137	Michael_HU	07.04.13 09:59
Re: Zeitwert in serieller Zahl, auch halben Tage	1.053	Michael_HU	07.04.13 10:50

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen