Ich wollte eine Routine für folgendes Szenario schreiben, bin aber hängengeblieben:
Zwischen dem 01.02.2009 und dem 10.02.2009 soll ein String ausgegeben werden.
Ich hatte bis jetzt folgenden Code:
Delphi-Quellcode:
var
rtag, rmonat, rjahr : Word;
tag, monat, jahr : Word;
datum : TDate;
begin
datum := EncodeDate(2009,02,01);
DecodeDate (datum,rjahr,rmonat,rtag);
DecodeDate (date,jahr,monat,tag);
if (rmonat = monat) AND (rtag = tag) AND (rjahr=jahr) then
showmessage ...
begin
datum := EncodeDate(2009,02,02);
DecodeDate (datum,rjahr,rmonat,rtag);
DecodeDate (date,jahr,monat,tag);
if (rmonat = monat) AND (rtag = tag) AND (rjahr=jahr) then
showmessage ...
begin
...
begin
...
begin
...
begin
...
begin
...
begin
...
begin
...
begin
...
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
Damit ich nicht jedesmal eine Routine für jedes Datum zwischen dem 01.02.2009 und dem 10.02.2009 schreiben muß, hat da jemand eine Idee wie man das in komprimierter Form in einer Routine schreiben kann? Außerdem besteht das Problem, wenn der 01.02.2009 ist, dann funktioniert das Ganze und irgendein Datum nach dem 01.02.2009, dann funktioniert das Ganze nicht mehr, mit der Routine oben. Wäre schön wenn Jemand helfen könnte.