Tag des Jahres

Tag des Jahres

Tag des Jahres : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Wie viele Tage seit Beginn des Jahres
Funktion DayOfYear(ADate: TDateTime): Integer;
var
FirstDate: TDateTime;
JJJJ, MM, TT: Word;
beginnen
DecodeDate (CDatum, JJJJ, MM, TT);
FirstDate: = EncodeDate (JJJJ, 1, 1);
Ergebnis: = Trunc(ADate-FirstDate) + 1;
Ende;