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 : 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
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.