Hallo,
ich würde einen anderen Ansatz wählen. Ich definiere eine ParkZeit analog zu TDateTime. Ein ParkTag dauert dann genau so lange, wie die auf der Parkuhr bekannt gegebene gebührenpflichtige Zeit. Der Einfachheit nehme ich an, dass die gebührenpflichtige Zeit ein einziger zusammenhängender Tageszeitraum ist. Wäre das die Zeit von morgens 9:00 Uhr bis abends 18:00 Uhr und hätte ich für zwanzig Stunden bezahlt, dann liefert mir DateTimeToStr(ParkzeitEnde(20/24, 9/24, 18/24)) den Aufdruck für mein Park-Ticket:
Delphi-Quellcode:
function ParkzeitEnde(dtBezahlt, dtBeginn, dtEnde: TDateTime): TDateTime;
begin
// Berechne Beginn der gebührenpflichtigen Parkzeit
if TimeOf(Now) < dtBeginn then Result := DateOf(Now) + dtBeginn
else if TimeOf(Now) >= dtEnde then Result := DateOf(Now) + dtBeginn + 1
else Result := Now;
// Wandle von DateTime in "ParkTage"
Result := Trunc(Result) + (Frac(Result) - dtBeginn) / (dtEnde - dtBeginn);
// Berechne Ende der Parkzeit
Result := Result + dtBezahlt / (dtEnde - dtBeginn);
// Wandle "ParkTage" in DateTime
Result := Trunc(Result) + Frac(Result) * (dtEnde - dtBeginn) + dtBeginn;
end;
Getippt und nicht getestet.
Grüße vom marabu