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).
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