Tage zählen bzw auswerten

[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

[mkinzler]

DecodeDate()

[grenzgaenger]

'n interessanter tag, der 0. februar 2008 ...

kannst mal verraten, was das ganze für 'n sinn ergeben soll???

[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;

[Aurelius]

Zitat von grenzgaenger:

'n interessanter tag, der 0. februar 2008 ...

kannst mal verraten, was das ganze für 'n sinn ergeben soll???

Bestimmt ein Weihnachtskalender

[Clane]

Zitat von xX0815Xx:

Zitat von grenzgaenger:

'n interessanter tag, der 0. februar 2008 ...

kannst mal verraten, was das ganze für 'n sinn ergeben soll???

Bestimmt ein Weihnachtskalender

richtig geraten

achja danke nochmals funzt super