Datum vergleichen und Ereignis ausgeben

[lima]

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.

[DeddyH]

Kannst Du hiermit etwas anfangen?

Delphi-Quellcode:

uses DateUtils;

procedure ListDaysBetween(StartDate, EndDate: TDate; const sl: TStrings);
begin
  sl.BeginUpdate;
  try
    sl.Clear;
    while Trunc(StartDate) <= Trunc(EndDate) do
      begin
        sl.Add(FormatDateTime('dd.mm.yyyy',StartDate));
        StartDate := IncDay(StartDate,1);
      end;
  finally
    sl.EndUpdate;
  end;
end;

[edit] Code um überflüssige Variable gekürzt [/edit]

[mkinzler]

Dein Code ist sehr sinnvoll, weil:
-Du zur Erzeugung eines Datums, die Werte ja kennst ein anschlissendes Zerlegen ist deshalb überflüssig
-if Trunc( Datum) = Trunc( rdatum) das selbe bewirkt
Für eine Zeitspanne würde ich einfach überprüfen ob das Datum zwischen den Grenzdaten liegt und nicht für jedes Datum dazwischen überprüfen

[lima]

ICh werde das morgen mal probieren, muß erstmal meine Family versorgen, da meine Frau Spätschicht hat!

[lima]

Zitat von mkinzler:

Für eine Zeitspanne würde ich einfach überprüfen ob das Datum zwischen den Grenzdaten liegt und nicht für jedes Datum dazwischen überprüfen

Ja, das wäre eine Idee, aber wie macht man das?

[mkinzler]

if (Trunc( AktDatum) > Trunc(StartDate)) and (Trunc( AktDatum) < Trunc( EndDate)) then ...

[lima]

Zitat von mkinzler:

if (Trunc( AktDatum) > Trunc(StartDate)) and (Trunc( AktDatum) < Trunc( EndDate)) then ...

Danke!

[lima]

Ich hab jetzt folgendes, aber das klappt nicht.

Delphi-Quellcode:

procedure ListDaysBetween(StartDate, EndDate: TDate; const sl: TStrings);
begin
  sl.BeginUpdate;
  try
    sl.Clear;
    while Trunc('01.02.2009') <= Trunc('10.02.2009') do
      begin
        sl.Add(FormatDateTime('01.02.2009',StartDate));
        StartDate := IncDay(StartDate,1);
      end;
  finally
    sl.EndUpdate;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
  Aktdatum : TDate;
begin
  if (Trunc(Aktdatum) > Trunc('01.02.2009')) and (Trunc(Tdate) < Trunc('10.02.2009')) then
showmessage ...
end;

[mkinzler]

AktDatum := Date();

[lima]

Also irgendwo hängts jetzt bei mir, das will einfach net klappen
Das Programm soll ja nur prüfen, ob das Datum zwischen dem 01.02.2009 und dem 10.02.2009 liegt und dann eine Messaage ausgeben. Die Message würde funktionieren, nur die Überprüfung irgendwie nicht.

If Datum zwischen dem 01.02.2009 und dem 10.02.2009 liegt, then

Delphi-Quellcode:

procedure ListDaysBetween(StartDate, EndDate: TDate; const sl: TStrings);
begin
  sl.BeginUpdate;
  try
    sl.Clear;
    while Trunc('01.02.2008') <= Trunc('10.02.2009') do
      begin
        sl.Add(FormatDateTime('01.02.2009',StartDate));
        StartDate := IncDay(StartDate,1);
      end;
  finally
    sl.EndUpdate;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Aktdatum : Date;
  Startdate : TStrings;
begin
  if (Trunc(Aktdatum) > Trunc(Startdate))) and (Trunc(Tdate) < Trunc(EndDate))) then
showmessage ...
end;