den Tag des Jahres bestimmen

**ascotlx**

Moin alle zusammen,

ich habe (mal wieder) ein Problem... vielleicht könnt Ihr mir helfen.
Ich habe schon nach einer Lösung gesucht, aber nur einen Teil gefunden.

Mein Problem:

Ich habe ein unbestimmtes Datum (dd.mm.yyyy) und möchte nun den Tag des
Jahres bestimmen, da ich das Ergebnis vom aktuellen Tag des Jahres abziehen
will. Den aktuellen Tag des Jahres habe ich schon (DP sei dank).

markieren

Delphi-Quellcode:

			
function Anzahltage(const aDatum:TDateTime):Integer;

var

  y, m, d :Word;

begin

  DecodeDate(aDatum, y, m, d);

  Result:=Round(aDatum-EncodeDate(y, 1, 1))+1;

end; // Anzahltage

edit4.Text:=IntToStr(Anzahltage(Date));

cu && besten Dank für Eure Hilfe

ascotlx

den Tag des Jahres bestimmen

den Tag des Jahres bestimmen

Forumregeln