Discussion :

[sp2308]

Bonjour

Je me re-mets doucement à delphi et souhaiterais savoir s il est possible de boucler sur des dates autrement qu en decomposant ma boucle en jour mois et année
plus precisement je souhaiterais faire une boucle du 1.1.2000 au 02.01.2001 soit 366 iterrations (par exemple).

merci pour votre aide


edit : ajout de l exemple plus explicite...selon moi

[Pascal Jankowski]

Tout ce qui concerne la manipulation des dates avec Delphi se trouve dans l'unité DateUtils.

Pout les itérations avec les dates rien de plus simple.

Exemple 1: Parcourir à partir d'une date les dates futures de 3 jours.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
uses
  DateUtils;
....
 
var
  ADate: TDatetime;
  I: integer;
begin
  ADate := EncodeDate(2001,1,1);
  for I := 1 to 5 do
  begin
    ADate := IncDay(ADate,3);
    ShowMessage(DateToStr(ADate));
  end;
end;

Exemple 2 : Parcourir à partir d'une date toutes les dates futures du mois suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  ADate: TDatetime;
  I: integer;
begin
  ADate := EncodeDate(2001,1,1);
  for I := 1 to 5 do
  begin
    ADate := IncMonth(ADate,1);
    ShowMessage(DateToStr(ADate));
  end;
end;

Exemple 3 : A partir d'une date parcourir les dates futures incrémentées d'une semaine et centrées sur le mercredi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
var
  ADate: TDatetime;
  I: integer;
begin
  ADate := EncodeDate(2001,1,1);
  for I := 1 to 5 do
  begin
    ADate := IncWeek(ADate,1);
    ADate := StartOfAWeek(YearOf(ADate),WeekOfTheYear(ADate),DayWednesday);
    ShowMessage(DateToStr(ADate));
  end;
end;

Et parcourir les jours sur une année complète prenant en compte les années bissextiles.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  ADate: TDatetime;
  I: word;
  ADaysInYear : word;
begin
  ADate := EncodeDate(2001,1,1);
  ADaysInYear := DaysInAYear(YearOf(ADate));
  for I := 1 to ADaysInYear do
  begin
    ADate := IncDay(ADate,1);
    ShowMessage(DateToStr(ADate));
  end;
end;

Un dernier exemple qui n'utilise pas DateUtils.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  ADate: TDatetime;
  I: integer;
begin
  ADate := EncodeDate(2001,1,1);
  for I := Trunc(ADate) to Trunc(EncodeDate(2001,1,8)) do
  begin
    ADate := ADate + 1;
    ShowMessage(DateToStr(ADate));
  end;
end;

[Yurck]

à + ou - 1 près tu dois pouvoir faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Date1 := '1/1/2000';
Date2 := '2/11/2001'
 
count := StrToDate(Date2) - StrToDate(Date1);
 
for i:=0 to count do
begin
end;

[sp2308]

merci
je vais donc faire la difference entre la date de deubt et la date de fin et incrementer ma date de depart de 1 jusqu'à atteindre ma date de fin