AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Datum vergleichen und Ereignis ausgeben

Datum vergleichen und Ereignis ausgeben

Ein Thema von lima · begonnen am 3. Dez 2008 · letzter Beitrag vom 4. Dez 2008
Antwort Antwort
Seite 2 von 2     12
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.795 Beiträge
 
Delphi 10.4 Sydney
 
#11

Re: Datum vergleichen und Ereignis ausgeben

  Alt 3. Dez 2008, 22:48
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.
Markus Kinzler
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#12

Re: Datum vergleichen und Ereignis ausgeben

  Alt 4. Dez 2008, 10:12
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.
 while Trunc(StartDate) <= Trunc(EndDate) do
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.270 Beiträge
 
Delphi 11 Alexandria
 
#13

Re: Datum vergleichen und Ereignis ausgeben

  Alt 4. Dez 2008, 10:17
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.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
lima

Registriert seit: 30. Dez 2002
32 Beiträge
 
Delphi 2007 Enterprise
 
#14

Re: Datum vergleichen und Ereignis ausgeben

  Alt 4. Dez 2008, 19:43
Funzt jetzt alles, danke nochmal an alle Mitwirkenden, besonders an mkinzler!
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 22:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf