RadinaV

Hallo,

ich habe folgenden Fall:

Ich muss eine Reisekostenabrechnung erstellen in der man folgende Dinge eingeben kann:

1. Ort

2. Abfahrtezeit + Datum

3. Ankunftszeit + Datum

Dann wird der Tagessatz automatisch berechnet. Ich habe bisher alles in Visual Basic gemacht doch ich habe Probleme bei der Berechnung der Dauer der Reise, denn es soll ein ganzer Tag gezählt werden wenn die Reise länger als 12 Stunden gedauert hat, wenn sie kürzer war sollen die STunden gezählt werden. Ich habe es wie folgt versucht:

AbT = AbTag.Value

AbM = ABMonat.Value

AbJ = AbJahr.Value

AbZ = AbZeit.Value

AnT = AnTag.Value

AnM = AnMonat.Value

AnJ = AnJahr.Value

AnZ = AnZeit.Value

Dauer = DateDiff("h", AbT + " ." + AbM + "." + AbJ + " " + AbZ, AnT + " ." + AnM + "." + AnJ + " " + AnZ)

If Dauer > 12 Then

Stunden = Dauer Mod 24

Tage = (Dauer - Stunden) / 24

Else

Tage = 0

Stunden = Dauer

End If

DAS PROBLEM: hier rechne ich die gesamten Stunden zusammen und teile sie dann in Tage und Stunden auf. Das Problem liegt am Abfahrts- und Ankunftstag. Wenn ich am Abfahrtstag vor 12 Uhr weggefahren bin, soll er einen ganzen Tag zählen umgekehrt genauso und wenn ich am Ankunftstag nach 12 Uhr zurück gekommen bin soll er genauso einen ganzen Tag rechnen. Bsp. Reise war von 01. April 06.00 Uhr bis 05. APril 16.00 Uhr. In meiner bisherigen Variante gibt er 4 Tage und 10 Stunden aus, aber es sind eigentlich 5 Tage und 0 Stunden, da der 06. April als ganzer Tag gezählt wird und nicht als Differenz zwischen 06.00 uhr und 16.00 Uhr.

Ich hoffe jemand kann mir helfen. Ich wäre wirklich sehr dankbar dafür.

Liebe Grüße,

Radina