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;