Datum berechnen

[Zuckerberg]

Hmmm ich glaube das klappt jedoch kriege ich immer als Wert irgendwas über 40000 ...
liegt das daran das Delphi ab 1900 mit den Tagen beginnt zu zählen ??!

[mkinzler]

Ja, wie bei Windows üblich

[Zuckerberg]

Zitat von mkinzler:

Ja, wie bei Windows üblich

Aha
und wie bekomme ich den genauen Tageswert ?

[mkinzler]

Ein Windows Timestamp enthält die Sekunden seit dem 31.12.1899 23:59.59

[rollstuhlfahrer]

Zitat von Zuckerberg:

Aha
und wie bekomme ich den genauen Tageswert ?

Da gibt es doch die Funktion DecodeDate.

Bernhard

[Zuckerberg]

Zitat von rollstuhlfahrer:

Zitat von Zuckerberg:

Aha
und wie bekomme ich den genauen Tageswert ?

Da gibt es doch die Funktion DecodeDate.

Bernhard

Ok gut hier wird mir nur Bruchhaft weiter geholfen ...
Wenn ich nun DecodeDate nutze habe ich 3 variablen:
Jahr Monat und Tag

sowie das Aktuelle Datum ...

Ersteres Datum liegt in der Zukunft ...

Hmmm dann müsste es doch so klappen das ich einfach die aktuelle Anzahl der Tage raus finde und die von der Differenz abziehe ???

oder ?

[sx2008]

Zitat von Zuckerberg:

Hmmm ich glaube das klappt jedoch kriege ich immer als Wert irgendwas über 40000 ...
liegt das daran das Delphi ab 1900 mit den Tagen beginnt zu zählen ??!

Das liegt daran, dass eines der beiden "Datümer" = 0.0 (entspricht dem 31.12.1899) ist.
Du hast also etwas falsch gemacht.
Hier ein Beispiel wie man DaysBetween verwenden kann:

Delphi-Quellcode:

var
  heute, Anfang2000 : TDateTime;
  anzahltage : Integer;
begin
  heute := SysUtils.Date;
  Anfang2000 := EncodeDate(2000, 1, 1); // 1.Jan.2000
  anzahltage := DaysBetween(heute, Anfang2000);
  ShowMessageFmt('Zwischen Heute und Anfang 2000 sind %d Tage', [anzahltage]);
end;

[Luckie]

Die Mehrzahl von Datum ist Daten.