Liste des Dates entre deux dates.

Version imprimable

Bonjour à tous, je suis coincer sur un programme, je voudrais remplir une LISTBOX avec tous les dates MM/DD/YYYY entre certain période respectivement:
- Date d'Entrer
- Date de Suspension
- Date de Réactivation
- Date du Jour.

Alors la liste contiendras :
1 - Les dates entre la date d'Entrer et la date de Suspension.
2 - Les dates entre la date de Suspension et la date de Réactivation.
3 - et en fin entre la date de Réactivation et la date actuel du jour.
Aussi il faut gérer les cas ou les dates de suspension et la réactivation seront vide. "Client toujours actif''
Voici un bout de programme de j'ai fais mais ce dernier prend tous les mois du 1 - 12
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Type Tmois = 1..12; TAnnees = 1988..2021; Liste := TStringList .Create; Try // Création de la liste For Annee := Low( TAnnees ) to High( TAnnees ) do Begin For Mois := Low( Tmois ) to High( Tmois ) Do Begin IF Length(Mois.ToString) = 1 Then Liste.Add( IntToStr( Annee ) + '0'+Mois.ToString ) Else Liste.Add( IntToStr( Annee ) + Mois.ToString ) End; End; // Ajout de la liste à un ComboBox ListBox1.Items.AddStrings(Liste); Finally Liste.Free; End;
Exemples :

Date d'entrer = 01/05/1988.
Date Suspension = 01/03/1991.
Date Réactivation = 01/08/2012.

Merci à tous.

Bonjour,

Je présume que, quelque part, il y a une base de données ?
sinon pour remplir simplement les dates (début de mois)
Code:

1 2 3 4 5 6 7 8 9 10 var d : TDate; Liste := TStringList .Create; d:=encodedate(1988,01,01); While d<=Date do begin Liste.Add(FormatDateTime('01/mm/yyyy',d); d:=IncMonth(d,1); // partie recherche BDD end;

29/06/2021, 10h27
Paul TOTH

regarde l'unité System.DateUtils qui contient tout ce qu'il faut pour manipuler des dates

Bonjour a tous et merci pour l'aide apporter, alors voila ce que j'ai pu faire avec l'exemple de Sergio, je l'ai fait en trois étape,
1 - début d'activité et la date de suspension
2 - date de suspension et la date de réactivation
3 - date de réactivation et la date du jour.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
IF Date_Susp.Text <> '' Then
    Begin
      Liste := TStringList .Create;
      myDate := StrToDate( Date_Debut_Activ.Text );
      Liste := TStringList.Create;
      DecodeDate( myDate, myYear, myMonth, myDay );
      myDay := 1;
      d := encodedate( myYear, myMonth, myDay );
      c := StrToDate( Date_Susp.Text );
      While d <= c do
        begin
          Liste.Add(FormatDateTime( 'yyyymm', d ) );
          d := IncMonth( d, 1 );
          // partie recherche BDD
        end;
      ListBox1.Items.AddStrings( Liste );
      Liste.Free;
    End
  Else
    Begin
      Liste := TStringList .Create;
      myDate := StrToDate( Date_Debut_Activ.Text );
      Liste := TStringList.Create;
      DecodeDate( myDate, myYear, myMonth, myDay );
      myDay := 1;
      d := encodedate( myYear, myMonth, myDay );
      While d <= Date_Actu do
        begin
          Liste.Add(FormatDateTime( 'yyyymm', d ) );
          d := IncMonth( d, 1 );
          // partie recherche BDD
        end;
      ListBox1.Items.AddStrings( Liste );
      Liste.Free;
    End;
 
   IF ( Date_Susp.Text <> ''  ) And ( Date_React.Text <> '' ) Then
     Begin
      IF StrToDate( Date_Susp.Text ) < StrToDate( Date_React.Text ) Then
        Begin
          Liste := TStringList .Create;
          myDate := StrToDate( Date_React.Text );
          Liste := TStringList.Create;
          DecodeDate( myDate, myYear, myMonth, myDay );
          myDay := 1;
          d := encodedate( myYear, myMonth, myDay );
          c := Date_Actu;
          While d <= c do
            Begin
              Liste.Add(FormatDateTime( 'yyyymm', d ) );
              d := IncMonth( d, 1 );
              // partie recherche BDD
            end;
        End;
          ListBox1.Items.AddStrings( Liste );
          Liste.Free;
     End;

Je ne sait pas si il y'a mieux à faire. Merci

salut

tu n'est pas obligé de passer par un tstringlist intermédiaire
tu peut creer une methode qui te permet de renseigner ta listbox

exemple :

Code:

1
2
3
4
5
6
7
8
9
 
Procedure RemplitDateToListBox(Lst : TStrings ;aDtdeb,AdtFin : TDateTime);
  begin
    While aDtdeb <= AdtFin do
    begin
      Lst.Add(FormatDateTime( 'yyyymm', aDtdeb ) );
      aDtdeb := IncMonth( aDtdeb, 1 );      // partie recherche BDD
    end;
  end;

Ton exemple il y a encore des simplification a faire mais c'est pour te donner une idée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
  .....
 
  IF Date_Susp.Text <> '' Then
  Begin
     myDate := StrToDate( Date_Debut_Activ.Text );
     c := StrToDate( Date_Susp.Text );
  End
  Else
  Begin
     myDate := StrToDate( Date_Debut_Activ.Text );
     c :=Date_Actu;
  end;
  DecodeDate( myDate, myYear, myMonth, myDay );
  myDay := 1;
  d := encodedate( myYear, myMonth, myDay );
  RemplitDateToListBox(ListBox1.Items,d,c);
 
  IF ( Date_Susp.Text <> ''  ) And ( Date_React.Text <> '' ) Then
  Begin
    IF StrToDate( Date_Susp.Text ) < StrToDate( Date_React.Text ) Then
    Begin
      myDate := StrToDate( Date_React.Text );
      DecodeDate( myDate, myYear, myMonth, myDay );
      myDay := 1;
      d := encodedate( myYear, myMonth, myDay );
      c := Date_Actu;
      RemplitDateToListBox(ListBox1.Items,d,c);
    End;
  End;

Code:

1
2
3
         DecodeDate( myDate, myYear, myMonth, myDay );
          myDay := 1;
          d := encodedate( myYear, myMonth, myDay );

c'est égal à d:=StartOfTheMonth(mydate)