Datum vergleichen und Ereignis ausgeben

[mkinzler]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Aktdatum, StartDate, EndDate : Date;
begin
  AktDate := Date(); //Aktuelles Datum
  StartDate := EncodeDate( <Jahr>, <Monat>, <Tag>);
  EndDate := ...
  if (Trunc(Aktdatum) > Trunc(Startdate))) and (Trunc(Tdate) < Trunc(EndDate))) then

StartDate und Enddate natürlich auch passende Werte zuweisen.

[nahpets]

Hallo,

Vorsicht, hier ist ein riesengroßer Fehler drin:

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 // <-- Endlosschleife!!!
      begin 
        sl.Add(FormatDateTime('01.02.2009',StartDate)); 
        StartDate := IncDay(StartDate,1); 
      end; 
  finally 
    sl.EndUpdate; 
  end; 
end;

Die konstanten Werte im while ändern sich nie, daher kommt man aus der Schleife niemehr raus.

So könnte es funktionieren, da sich dann StartDate bei jedem Schleifendurchlauf erhöht und irgendwann größer oder gleich EndDate sein wird.

Delphi-Quellcode:

 while Trunc(StartDate) <= Trunc(EndDate) do

[DeddyH]

Wenn ich schon fertigen Quellcode abliefere, wieso muss der dann noch geändert werden? Ist mir zu hoch. OK, ich hatte wohl auch das Anliegen nicht ganz verstanden, ich dachte, es geht darum, alle Tage zwischen 2 Datumsangaben auszugeben.

[lima]

Funzt jetzt alles, danke nochmal an alle Mitwirkenden, besonders an mkinzler!