Zeitliche Differenz berechnen

[athomas]

Hallo,

hab' mal ne Frage, weil irgendwie auf keine Lösung komme.

Ich habe vor aus einem Datum (bestehend aus day, month, year: integer) die Zeit bis "jetzt" zu berechnen (in Tagen).
Beispiel:
Datum: 20.04.2008
Jetzt: 01.04.2008
Ausgabe: noch 19 Tage

Ich hoffe ihr findet 'ne Lösung

Mfg. athomas

[DeddyH]

Wo ist denn Dein konkretes Problem?

P.S.: Willkommen in der DP :dp:

[Die Muhkuh]

DaysBetween

[edit] Wie sagtest Du gestern? Steht da, nur nicht eindeutig formuliert :tongue: [/edit]

[DeddyH]

Aber vorher EncodeDate :mrgreen:

[athomas]

Danke für die schnellen Antworten, aber:
ist die Fuction DaysBetween schon bei delphi 5 dabei?
wenn ich nämlich die fucntion aufrufen will, heißt es Undefinierter Bezeichner: 'DaysBetween'

[athomas]

hab's!

Delphi-Quellcode:

function DaysBetween(date1, date2: TDateTime): string;
var days, hours, minutes, secs: integer;
  difference: real;
begin
  difference:=date2-date1;
  days:=round(difference-Frac(difference));
  difference:=Frac(difference)*24;
  hours:=round(difference-Frac(difference));
  difference:=Frac(difference)*60;
  minutes:=round(difference-Frac(difference));
  difference:=Frac(difference)*60;
  secs:=round(difference-Frac(difference));
  result:=Format('%2d Tage, (%2dh:%2dmin:%2dsec)',[days,hours,minutes,secs]);
end;

[DeddyH]

Delphi-Quellcode:

uses DateUtils

hätte es auch getan :mrgreen:

[Die Muhkuh]

Zitat:

Zitat von athomas

wenn ich nämlich die fucntion aufrufen will, heißt es Undefinierter Bezeichner: 'DaysBetween'

Oder F1 drücken und in die Hilfe schauen ;)

[DeddyH]

Zitat:

Zitat von Die Muhkuh

Oder F1 drücken und in die Hilfe schauen ;)

Macht doch kein Mensch. :stupid:

[Die Muhkuh]

Wir sind auch Rüsselmopse :stupid: