Datum berechnen

[Zuckerberg]

Hallo Community,

Ich wollte Fragen wie man die Differenz von einem Datum in der Zukunft und dem jetzigen Datum bilden kann um das Ergebnis dann in Tagen anzeigen zu können ...

Da gab es doch einen Befehl für, oder ?

und wie kann man dann die Differenz dann in Tagen ausgeben ??

Gruß Zuckerberg

[s.h.a.r.k]

DaysBetween() aus der DateUtils.

[Zuckerberg]

Zitat:

Zitat von s.h.a.r.k (Beitrag 1069160)

DaysBetween() aus der DateUtils.

Gibts diese Funktion auch bei Delphi 5 ?

[s.h.a.r.k]

Hab keines da zum testen ;) Von daher kann ich dir nur raten mal in die Hilfe zu schauen.

Ansonsten programmierst es halt selbst schnell -- 1.0 in TDateTime entspricht einem Tag:

Delphi-Quellcode:

function DaysBetween(const AFrom, ATo: TDateTime): Integer;
begin
  Result := Trunc(AFrom - ATo);
end;

[DeddyH]

Delphi-Quellcode:

function DaysBetween(const AFrom, ATo: TDateTime): Integer;
begin
  Result := abs(Trunc(AFrom - ATo));
end;

;)

[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:

Zitat von mkinzler (Beitrag 1069171)

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:

Zitat von Zuckerberg (Beitrag 1069175)

Aha
und wie bekomme ich den genauen Tageswert ?

Da gibt es doch die Funktion DecodeDate.

Bernhard

[Zuckerberg]

Zitat:

Zitat von rollstuhlfahrer (Beitrag 1069177)

Zitat:

Zitat von Zuckerberg (Beitrag 1069175)

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:

Zitat von Zuckerberg (Beitrag 1069169)

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. :wink:
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. ;)

[s.h.a.r.k]

Zitat:

Zitat von DeddyH (Beitrag 1069167)

Delphi-Quellcode:

function DaysBetween(const AFrom, ATo: TDateTime): Integer;
begin
  Result := abs(Trunc(AFrom - ATo));
end;

;)

Geht mit diesem Abs nicht noch ein wenig Information verloren? Denn wenn der Wert kleiner 0 ist, dann ist halt ATo nur größer als AFrom, was ja an sich nicht schlimm ist. Aber gut, kann man drüber streiten -- und Weihnachten steht vor der Türe, also lassen wir das :mrgreen:

[DeddyH]

Der Abstand zwischen 2 Daten sollte IMO immer positiv sein. Von Hamburg nach München ist es ja auch genauso weit wie von München nach Hamburg, oder?

[s.h.a.r.k]

Ja, das kann man genau so sehen, wie du sagst. Mir ist der Punkt auch definitv klar. Allerdings kann eben ein negativer Wert auch eine Aussage haben. So geht diese Information allerdings verloren. Aber gut, das darf eben jeder für entscheiden, wie er es denn haben will ;)

[DeddyH]

Letztes Argument: das Original gibt auch nur positive Werte zurück :zwinker:

[s.h.a.r.k]

Nicht schießen, ich ergebe mich! Ich ergebe mich! :mrgreen: