Re: Datum vergleichen und Ereignis ausgeben
Delphi-Quellcode:
StartDate und Enddate natürlich auch passende Werte zuweisen.
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 |
Re: Datum vergleichen und Ereignis ausgeben
Hallo,
Vorsicht, hier ist ein riesengroßer Fehler drin:
Delphi-Quellcode:
Die konstanten Werte im while ändern sich nie, daher kommt man aus der Schleife niemehr raus.
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; 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
|
Re: Datum vergleichen und Ereignis ausgeben
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.
|
Re: Datum vergleichen und Ereignis ausgeben
Funzt jetzt alles, danke nochmal an alle Mitwirkenden, besonders an mkinzler!
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:22 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz