Tage zählen bzw auswerten

[Amateurprofi]

Zitat von Clane:

Also ich muss für einen Kollegen folgendes erledigen:

Ich habe eine Variable Tage vom typ Integer

Diese Variable soll abhängin vom localen Datum am PC den Tag Anzeigen. Also 1 für den ersten 2 für den 2ten 3 für den dritten im Monat usw. außerdem soll das ganze NUR im Dezember laufen in allen anderen Monaten soll die Variable IMMER "0" sein ich weis nur nicht wie ich das anstellen soll. Könnte mir da vllt jemand helfen

MfG. Clane

Delphi-Quellcode:

FUNCTION DayNum:integer;
var y,m,d:word;
begin
   DecodeDate(Date,y,m,d);
   if m=12 then result:=d else result:=0;
end;