Datum / Zeit Vergleichen

[marabu]

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