1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

function tag:integer;
var monat:integer;

begin
tag:=StrToInt(EdDatum.Text[1]+EdDatum.Text[2]);
monat:=StrToint(EdDatum.Text[4]+EdDatum.Text[5]);

case monat of
2: tag:=tag+31;
3: tag:=tag+31+28;
4: tag:=tag+31+28+31;
5: tag:=tag+31+28+31+30;
6: tag:=tag+31+28+31+30+31;
7: tag:=tag+31+28+31+30+31+30;
8: tag:=tag+31+28+31+30+31+30+31;
9: tag:=tag+31+28+31+30+31+30+31+31;
10: tag:=tag+31+28+31+30+31+30+31+31+30;
11: tag:=tag+31+28+31+30+31+30+31+31+30+31;
12: tag:=tag+31+28+31+30+31+30+31+31+30+31+30;
end;
end;					

1:
2:
3:
4:
5:
6:
7:

function DayOfYear(aDate: tDateTime): Integer;
  VAR
    Jahr, Monat, Tag : WORD;
begin
  DecodeDate(aDate, Jahr, Monat, Tag);
  result := Trunc(aDate -  EncodeDate(Jahr, 1, 1));
end; // Day Of Yeat					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Die Funktion DayOfTheYear gibt die Anzahl der Tage zwischen dem angegebenen TDateTime-Wert und dem 31. Dezember des vorhergehenden Jahres an.

Unit

DateUtils

Kategorie

Datum/Zeit

function DayOfTheYear(const AValue: TDateTime): Word;

Beschreibung

Mit DayOfTheYear können Sie die Ordinalposition des Tages eines TDateTime-Werts im Jahr ermitteln. Ein TDateTime-Wert, der den 1. Januar bezeichnet, liefert also das Ergebnis 1, das Ergebnis 2 für den 2. Januar usw.