Hallo Zusammen,
ich heiße Mario und leider habe ich auch nach intensiver Suche hier und in anderen Foren nicht die Lösung meines Problems gefunden, deshalb versuche ich es mal mit einem neuen Thread:
Der Sachverhalt ist eigentlich sehr einfach: Ich will die Zeitspanne zwischen zwei Daten mit Uhrzeit berechnen. Das bekomme ich auch hin, solange es sich bei den Daten nicht um einen Monatswechsel handelt!
Hier also meine Methode:
|
Quellcode
|
1
2
3
4
5
6
7
8
9
10
11
12
|
Function Get_Zeitraum(Zeit1 As String, Zeit2 As String, Datum1 As String, Datum 2 As String, Pause AS Integer) AS Double
Dim Minuten As Integer Dim Stunden As Double
Dim Dat1 As String
Dim Dat2 As String
Dat1 = CDate(Format$(Datum1, "m-d-yy"))
Dat2 = CDate(Format$(Datum2, "m-d-yy"))
Minuten = DateDiff("n", CDate(Datum1 & " " & Zeit1), CDate(Datum2 & " " & Zeit2)) - Pause
Stunden = Round(CDbl(Minuten / 60), 2)
Get_Zeitraum = Stunden
End Sub
|
Hier nun zwei Testergebnisse:
Test 1: Richtig
Datum1 = 30.01.2012
Zeit1 = 22:00 Uhr
Datum2 = 31.01.2012
Zeit2 = 06:00
Get_Zeitraum = 8
Test2: Falsch
Datum1 = 31.01.2012
Zeit1 = 22:00 Uhr
Datum2 = 01.02.2012
Zeit2 = 06:00 Uhr
Get_Zeitraum = - 712
Kann mir jemand einen Tip geben, wo mein Denkfehler liegt???
Gruß und Danke fürs Durchlesen,
Mario