Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Datumsangaben innerhalb eines Zeitraumes (https://www.delphipraxis.net/160479-datumsangaben-innerhalb-eines-zeitraumes.html)

ph0g 15. Mai 2011 16:13

Datumsangaben innerhalb eines Zeitraumes
 
Guten Tag,
habe ein kleines Problem:
Ich habe 2 Datumsangaben Bsp: 01.05.2011 & 15.05.2011
Nun möchte ich jedes Datum zwischen diesem Zeitraum haben.
Also:
02.05.2011
03.05.2011
....
14.05.2011

Jemand eine Idee wie ich dies Bewerkstelligen kann?
Habe schon überall gesucht, aber habe bisher nur die Tage dazwischen rausbekommen, welches mir nicht hilft. Brauche die kompletten Datumsangaben.
Jemand ne Idee?

DelphiSecurity 15. Mai 2011 16:19

AW: Datumsangaben innerhalb eines Zeitraumes
 
Mach es mit einer FOR Schleife.

jedes mal 1 tag drauf, wenn eigenDatum = enddatum dann ende.

Sollte gehen. :wink: :thumb:

DS :dp:

s.h.a.r.k 15. Mai 2011 16:23

AW: Datumsangaben innerhalb eines Zeitraumes
 
Man sollte noch dazu sagen dass TDateTime eigentlich ein Extended ist. Und ein tag ist hier mit der Zahl 1.0 definiert.

Satty67 15. Mai 2011 16:27

AW: Datumsangaben innerhalb eines Zeitraumes
 
Beispiel:

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  First, Last, ADate : TDate;
  i : Integer;
begin
  First := StrToDate('1.1.2011');
  Last := StrToDate('31.1.2011');

  for i := Trunc(First) to Trunc(Last) do
  begin
    ADate := i;
    Memo1.Lines.Add(DateToStr(ADate));
  end;
end;

himitsu 15. Mai 2011 16:28

AW: Datumsangaben innerhalb eines Zeitraumes
 
Genau dieses Problem hatten wir dieses Jahr schoneinmal > SuFu?

ph0g 15. Mai 2011 16:30

AW: Datumsangaben innerhalb eines Zeitraumes
 
Danke werde das mit der for Schleife ausprobieren ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:14 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz