Incrémenter des dates de 5 en 5

**Leesox** · 23/03/2015, 16h22

Je recherche une solution pour incrémenter une date de 5 jours en 5 jours sur une période de 3 mois. Cela pourrait être simple si les mois avaient tous 30 jours !

la date de départ est la date du jour soit le 23/03/2015.
la date qui suit la date de départ sera le 25/03/2015
Ensuite le 31/03/2015.
Ensuite le 05/04/2015.
Ensuite le 10/04/2015.
Ensuite le 15/04/2015.
Ensuite le 20/04/2015.
Ensuite le 25/04/2015.
Ensuite le 30/04/2015.
Ensuite le 05/05/2015.
et ainsi de suite pendant 3 mois

J'ai beaucoup de mal à m'orienter sur le départ d'une fonction.

Je vous remercie de votre aide pour me mettre sur une piste.

Cordialement
Patrick

**gaby277** · 23/03/2015, 17h17

Bonjour,

par exemple
function IncDay(ADate: TDateTime; Days: Integer = 1) : TDateTime

**tourlourou** · 23/03/2015, 17h19

Il suffit de convertir la chaîne en TDateTime, de lui ajouter 5 (un TDateTime est un réel dont la partie entière correspond à un nombre de jours écoulés depuis une date de référence), et de reconvertir au format souhaité.

**sweetasnz** · 23/03/2015, 17h28

la doc du format "date" du langage quie tu utilises, comme dit précédemment, t'aidera à faire ce genre de calcul ...

pour réinventer une roue carrée :

en initialisant le fait que tous les 4 ans c'est une année bissextile ...
et que tu te crées un tableau du genre [31,28,31,30,...] et [31,29,31,30,...]

ex :
initAn29 = 2012
mois28 = [31,28,31,30,...]
mois29 = [31,29,31,30,...]

date = "25/02/2015"

//extraction jour, mois et année :

curJour = 25
curMois = 2
curAn = 2015

//on prend le bon tableau:

si (curAn-initAn29 "modulo" 4) = 0 :
alors moisTab = mois29
sinon moisTab = mois28

et ensuite tu fais ton petit calcul en ajoutant "5 jours" jusqu'à la fin de chaque mois sinon la différence sur le mois d'après si cela dépasse.
tu mets à jour la variable "date" et tu recommence tant que tu veux

**Leesox** · 24/03/2015, 08h14

Bonjour à vous,

Je vous remercie pour vos réponses.

@sweetasnz : Merci pour l'indication d'initialiser sur une année bissextile.

**SergioMaster** · 24/03/2015, 08h42

Bonjour,

Tout dépend de la version de Delphi (incday n'est apparu qu'avec D5 il me semble) cependant c'est LA fonction à utiliser.
En admettant que DateDepart est bien une date et selon la liste des dates indiquées s'agit-il vraiment d'une incrémentation de 5 jours

dans ce cas la fonction IncDay suffit

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
uses .. DateUtils;
 
procedure listedate;
var aa,mm,mm1,jj : Word;
    d : TDateTime;
begin
  D := EncodeDate(15,03,23);
  DecodeDate(d,aa,mm,jj);
  mm1:=mm;
  repeat
    Memo1.Lines.Add(FormatDateTime('dd/mm/yy',D));
    d:=IncDay(D,5);
    DecodeDate(D,aa,mm,jj);
  until (mm>mm1+3);  
end;

on obtient alors

23/03/15
28/03/15
02/04/15
07/04/15
12/04/15
17/04/15
22/04/15
27/04/15
02/05/15
07/05/15
12/05/15
17/05/15
22/05/15
27/05/15
01/06/15
06/06/15
11/06/15
16/06/15
21/06/15
26/06/15

le résultat ne ressemble pas au résultat souhaité , veut t-on alors obtenir les jours "divisibles" par 5 ?
Ce qui me fait douter :

la date de départ est la date du jour soit le 23/03/2015.
la date qui suit la date de départ sera le 25/03/2015
Ensuite le 31/03/2015.

dans le premier calcul il y a seulement 2 jours d'écart
dans le second 6

**Linkin** · 24/03/2015, 09h15

En fonction de la version de Delphi que tu as, les génériques, IncDay, MonthOf et et StartOfTheMonth risquent de ne pas exister.

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
 
procedure getDates(pDate_Depart: TDateTime; pDate_Count: Integer; pList: TList<TDateTime>);
var
  lDate, lDate_Precedente: TDateTime;
  i: Integer;
begin
  lDate_Precedente := StartOfTheMonth(pDate_Depart);
  lDate:=lDate_Precedente;
  for i := 0 to pDate_Count - 1 do begin
    if CompareDate(lDate, StartOfTheMonth(lDate))=EqualsValue then
      lDate := IncDay(lDate_Precedente, 4)
    else
      lDate := IncDay(lDate_Precedente, 5);
    if MonthOf(lDate) <> MonthOf(lDate_Precedente) then begin
      lDate := StartOfTheMonth(lDate);
    end;
    if lDate >= pDate_Depart then
      pList.Add(lDate);
    lDate_Precedente := lDate;
  end;
end;

Edit: corrigé

**SergioMaster** · 24/03/2015, 09h51

Re,
moi j'ai fait ainsi avec D7

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
23
24
25
26
procedure TForm1.Button5daysamonthClick(Sender: TObject);
var aa,mm,jj : Word;
    mm1 : Word; // mois initial
    wmm : Word; // variables de travail
    D : TDateTime;
begin
  D := EncodeDate(15,03,23);
  DecodeDate(D,aa,mm,jj);
  mm1:=mm;
  wmm:=mm;
  repeat
    Memo1.Lines.Add(FormatDateTime('dd/mm/yy',D));
    if mm<>wmm
     then D:=EndOfAMonth(aa,wmm);
    D:=IncDay(D,5);
    DecodeDate(D,aa,mm,jj);
    if (jj mod 5)>0 then
          begin
            jj:=jj - (jj mod 5);
            if jj<1 then jj:=5;
            D:=EncodeDate(aa,mm,jj);
          end;
     wmm:=mm;      
  until (mm>mm1+3);
 
end;

résultats

23/03/15
25/03/15
30/03/15
05/04/15
10/04/15
15/04/15
20/04/15
25/04/15
30/04/15
05/05/15
10/05/15
15/05/15
20/05/15
25/05/15
30/05/15
05/06/15
10/06/15
15/06/15
20/06/15
25/06/15
30/06/15

[Edit]
il faut ensuite peu de chose pour obtenir la fin du mois (au prochain [edit])

**Jipété** · 24/03/2015, 11h44

Envoyé par SergioMaster

résultats

30/03/15
05/04/15

6 jours entre ces deux dates...

**SergioMaster** · 24/03/2015, 11h48

re, j'ai eu quelques difficultés avec Février mais voici un code D7 qui semblerai correspondre à la demande

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
23
24
25
26
27
28
29
30
 
procedure TForm1.Button5daysamonthClick(Sender: TObject);
var aa,mm,jj : Word;
    mm1 : Word; // mois initial
    wmm : Word; // variables de travail
    D : TDateTime;
begin
  D := EncodeDate(15,01,2);  // jour de départ
  DecodeDate(D,aa,mm,jj);
  mm1:=mm;                       // memorisation pour la boucle  
  wmm:=mm;
  repeat
    Memo1.Lines.Add(FormatDateTime('dd/mm/yy',D));
    D:=IncDay(D,5);
    DecodeDate(D,aa,mm,jj);
     if (jj mod 5)>0 then
          begin
            jj:=jj - (jj mod 5);
            if jj<1 then jj:=5;
            D:=EncodeDate(aa,mm,jj);
          end;
     // détecter la fin du mois et gère le cas particulier de Février (moins de 5 jours entre le 25 et la fin du mois) 
     if (jj=30) OR ((wmm=2) and (mm<>wmm)) then
     begin
      D:=IncDay(EndOfTheMonth(EncodeDate(aa,wmm,1)),-1); // *****
     end;
    wmm:=mm;
   until (mm>mm1+3);
 
end;

****** chose étrange EndOfTheMonth(EncodeDate(aa,wmm,1)) donne par exemple 1/03/15 au lieu de 28/02/15 d'où l'utilisation du incday -1
problème d'arrondi ? en tout cas je ne pige pas pourquoi j'ai du faire ça ! erreur d'arrondi ?

résultat

02/01/15
05/01/15
10/01/15
15/01/15
20/01/15
25/01/15
31/01/15
05/02/15
10/02/15
15/02/15
20/02/15
25/02/15
28/02/15
05/03/15
10/03/15
15/03/15
20/03/15
25/03/15
31/03/15
05/04/15
10/04/15
15/04/15
20/04/15
25/04/15
30/04/15

[Edit] @Jipété sur ce que j'ai compris , outre "l'arrondi de la date de départ" , les dates sont de 5 en 5 sauf que en fin de mois on obtient la fin du mois et non le 30 ,

la date de départ est la date du jour soit le 23/03/2015.
la date qui suit la date de départ sera le 25/03/2015
Ensuite le 31/03/2015.

cas particulier donc au mois de février en prime . Donc non, c'est un

voulu de ma part

**Jipété** · 24/03/2015, 12h52

Envoyé par SergioMaster

[Edit] @Jipété sur ce que j'ai compris , outre "l'arrondi de la date de départ" , les dates sont de 5 en 5 sauf que en fin de mois on obtient la fin du mois et non le 30 ,

la date de départ est la date du jour soit le 23/03/2015.
la date qui suit la date de départ sera le 25/03/2015
Ensuite le 31/03/2015.

Ah ouais, j'avais zappé que l'énoncé est en contradiction avec le titre du post.
À partir de là, toutes les hypothèses sont permises, genre ce "Ensuite le 31/03/2015" pourrait être une faute de frappe...
Ou une erreur d'énoncé, parce que tous les 5 jours ça veut dire que le 30/03 est valide et qu'ensuite on continue avec le 5 du mois suivant.

Bref c'est pas clair et comme on ne sait pas pour quoi c'est faire...

**Leesox** · 24/03/2015, 13h41

Oui, c'est surtout mon titre qui n'est pas clair. (de 5 en 5) et j'en suis désolé

En fait, je prépare un tableau de trésorerie sur 3 mois. Pour facilité la lecture, je ne veux pas mettre pour chacune des colonnes (1 jour), mais faire des pas de 5 jours comme ci-dessous (donc pas vraiment une incrémentation de 5 en 5):
Colonne 1 : date de départ = date du jour
Colonne 2 : ex : si date de départ est 23/03/2015 alors Colonne 2 = 25/03/2015
Colonne 2 : 31/03/2015
Colonne 3 : 05/04/2015
Colonne 3 : 10/04/2015
Colonne 3 : 15/04/2015
Colonne 3 : 20/04/2015
Colonne 3 : 25/04/2015
Colonne 3 : 30/04/2015
Colonne 3 : 05/05/2015
etc...

Ce qui correspond au code de SergioMaster.

Pour info, j'utilise XE5, donc pas de soucis pour l'utilisation de "incday".
Je pensais bien utiliser "EndOfTheMonth" pour le calcul de la date de fin de mois, mais je ne connaissais pas "incday".

@SergioMaster et Linkin : Bon, là j'ai une solution toute faite et je vous remercie beaucoup
et merci à tous d'avoir fait avancer la discussion.

Si j'avais dû me débrouiller seul pour arriver au résultat, je l'aurais sorti avec beaucoup, mais beaucoup plus de ligne

**Leesox** · 24/03/2015, 14h00

Envoyé par SergioMaster

****** chose étrange EndOfTheMonth(EncodeDate(aa,wmm,1)) donne par exemple 1/03/15 au lieu de 28/02/15 d'où l'utilisation du incday -1
problème d'arrondi ? en tout cas je ne pige pas pourquoi j'ai du faire ça ! erreur d'arrondi ?

Pour info EndOfTheMonth(EncodeDate(aa,wmm,1)) me donne bien le 28/02/2015, donc j'ai enlevé le "incday" à ton code.

Une différence de version de Delphi ???

**SergioMaster** · 24/03/2015, 14h26

Envoyé par Leesox

Pour info EndOfTheMonth(EncodeDate(aa,wmm,1)) me donne bien le 28/02/2015, donc j'ai enlevé le "incday" à ton code.

Une différence de version de Delphi ???

possible, ne connaissant pas ta version j'ai fait le test avec D7 (puisque le plus courant encore) build 4.453, bon pas très grave puisque du coup c'est résolu

une migration vers XE4 et effectivement plus besoin de ce incday

Code :

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

1
2
3
4
 if (jj=30) OR ((wmm=2) and (mm<>wmm)) then
     begin
      D:=EndOfAMonth(aa,wmm);
     end;

un petit

(si ce n'est déjà fait) pour la solution retenue sera un plus pour de futurs lecteurs

**Leesox** · 24/03/2015, 14h29

Ok c'est fait. Merci

**sgmsg** · 25/03/2015, 17h32

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var d,j,k:word;
begin
    d:=trunc(now-40);
    memo1.lines.Add(datetostr(d));
    for d:=d+1 to d+365 div 4 do begin
        decodedate(d  ,j,j,j);
        decodedate(d+1,k,k,k);
        if (j mod 5=0)and(j<26)or(k=1) then
            memo1.lines.Add(datetostr(d));
    end;
end;

2015-02-13
2015-02-15
2015-02-20
2015-02-25
2015-02-28
2015-03-05
2015-03-10
2015-03-15
2015-03-20
2015-03-25
2015-03-31
2015-04-05
2015-04-10
2015-04-15
2015-04-20
2015-04-25
2015-04-30
2015-05-05
2015-05-10
2015-05-15

Incrémenter des dates de 5 en 5

Delphi

Discussions similaires

Partager

Partager