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
-

Delphi-Quellcode:

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:

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]

Delphi-Quellcode:

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

[lima]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

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]

Delphi-Quellcode:

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;

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