Rechnen mit Zeiten zur Berechnung von Spesen

[bluesbear]

Ein Vorschlag:

Delphi-Quellcode:

function DateTimeToMinutes(const aDT : TDateTime) : Integer;
begin
  Result := Round(aDT * 1440 * 60);
  Result := Result div 60;
end;

function MinutesToDateTime(const aMinutes : Integer) : TDateTime;
begin
  Result := aMinutes / 1440;
end;

// Zeitdifferenz in Minuten ginge dann so:
Diff := DateTimeToMinutes((bisD.Date + bisZ.Time) - (vonD.Date + vonZ.Time));