Die Differenz zweier Datums ohne derücksichtigung des Jahres

[-=noname=-]

Hey,
Folgendes Problem!
Ich hab ein Festes ereigenis z.B. Weihnachten!
nun möchte ich mir anzeigen wieviele Tage es noch bis weihnachten sind..gebe ich allerdings weihnachten als festes Datum ein dann funzt das Programm höchstens ein jahr danach spuckt es mir negative Zahlen aus!

Wie kann ich das Verhindern?
oder wie kann ich die differenz berrechnen ohne das ich das jahr ins datum beeinflussen lasse...?

danke schonmal!

[Christian Seehase]

Moin Noname,

erst einmal herzlich willkommen in der Delphi-PRAXiS.

Um festzustellen, warum Dein Algorithmus nicht so läuft wie er soll, solltest Du ihn auch mal vorzeigen.

[negaH]

decodiere beide Daties und berechne das feste Datum um zum aktuellen Jahr

Delphi-Quellcode:

function Diff(FixDate: TDateTime): Double;
var
  Y1,M1,D1: Word;
  Y2,M2,D2: Word;
begin
  DecodeDate(Fixdate, Y1, M1, D1);
  DecodeDate(Now, Y2, M2, D2);
  Result := EncodeDate(Y2, M1, D1) - Now;
end;

so als Anfang. Beachte das bestimmte Daties nicht korrekt arbeiten, es können fehler auftreten.

Ein anderer Weg wäre relativ zum 1.1. zu rechnen.

Delphi-Quellcode:

function Diff(FixDate: TDateTime): Double;
var
  Y1,M1,D1: Word;
  Y2,M2,D2: Word;
begin
  DecodeDate(Fixdate, Y1, M1, D1);
  DecodeDate(Now, Y2, M2, D2);
  Result := Abs(EncodeDate(Y1, 1, 1) - EncodeDate(Y2, 1, 1)) + FixDate - Now;
end;

Gruß Hagen