Die Differenz zweier Datums ohne derücksichtigung des Jahres

[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