Discussion :

[Apoulit]

Bonjour,
j'ai une date début janvier de départ 30/12/2024. (oui ça commence en décembre)
résultat obtenu
fin janvier : 26/01/2025
début février: 27/01/2025
Fin février: 23/02/2025
Début Mars: 24/02/2025
---Jusquà là tout va bien----
Fin Mars: 30/03/2025 à partir d'ici je devrais obtenir 23/03/2025


Je n'ai pas de solution ? Merci.

Mon code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Dim annee_presedente As Integer
annee_presedente = Me.annee_concernee - 1
 
 
 
 
Me.Janvier_debut = DateAdd("ss", 4, DLookup("[Au]", "T_periodes", "[Mois] = " & Chr(34) & "Décembre" & Chr(34) & " And [annee] = " & Chr(34) & annee_presedente & Chr(34)))
Me.janvier_fin = DateAdd("ss", 4, Me.Janvier_debut)
 
 
Me.fevrier_debut = DateAdd("ss", 1, Me.janvier_fin)
Me.fevrier_fin = DateAdd("ss", 4, Me.fevrier_debut)
 
Me.mars_debut = DateAdd("ss", 1, Me.fevrier_fin)
Me.mars_fin = DateAdd("ss", 4, Me.mars_debut)
 
 
Me.avril_debut = DateAdd("ss", 1, Me.mars_fin)
Me.avril_fin = DateAdd("ss", 4, Me.avril_debut)
 
Me.mai_debut = DateAdd("ss", 1, Me.avril_fin)
Me.mai_fin = DateAdd("ss", 4, Me.mai_debut)
 
Me.juin_debut = DateAdd("ss", 1, Me.mai_fin)
Me.juin_fin = DateAdd("ss", 4, Me.juin_debut)
 
Me.juillet_debut = DateAdd("ss", 1, Me.juin_fin)
Me.juillet_fin = DateAdd("ss", 4, Me.juillet_debut)
 
Me.aout_debut = DateAdd("ss", 1, Me.juillet_fin)
Me.aout_fin = DateAdd("ss", 4, Me.aout_debut)
 
Me.septembre_debut = DateAdd("ss", 1, Me.aout_fin)
Me.septembre_fin = DateAdd("ss", 4, Me.septembre_debut)
 
Me.octobre_debut = DateAdd("ss", 1, Me.septembre_fin)
Me.octobre_fin = DateAdd("ss", 4, Me.octobre_debut)
 
Me.novembre_debut = DateAdd("ss", 1, Me.octobre_fin)
Me.novembre_fin = DateAdd("ss", 4, Me.novembre_debut)
 
Me.decembre_debut = DateAdd("ss", 1, Me.novembre_fin)
Me.decembre_fin = DateAdd("ss", 4, Me.decembre_debut)

[EricDgn]

Bonjour,

Bizarre. Moi j'ai:

Code :

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

1
2
3
4
5
6
7
8
Janvier_debut = #12/30/2024#                        ' dimanche 30/12/2024
janvier_fin = DateAdd("ww", 4, Janvier_debut)       ' dimanche 27/01/2025  (+ 4 semaines)
 
fevrier_debut = DateAdd("ww", 1, janvier_fin)       ' dimanche 03/02/2025  (+ 1 semaine)
fevrier_fin = DateAdd("ww", 4, fevrier_debut)       ' dimanche 03/03/2025  (+ 4 semaines) --- c'est déjà en mars !
 
mars_debut = DateAdd("ww", 1, fevrier_fin)          ' dimanche 10/03/2025  (+ 1 semaine)
mars_fin = DateAdd("ww", 4, mars_debut)             ' dimanche 07/04/2025  (+ 4 semaines) --- et ici en avril !

On pourrait plus simplement inscrire:

Code :

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

1
2
3
4
5
6
7
8
Janvier_debut = #12/30/2024#          ' dimanche 30/12/2024
janvier_fin = Janvier_debut + 28      ' dimanche 27/01/2025
 
fevrier_debut = janvier_fin + 7       ' dimanche 03/02/2025
fevrier_fin = fevrier_debut + 28      ' dimanche 03/03/2025
 
mars_debut = fevrier_fin + 7          ' dimanche 10/03/2025
mars_fin = mars_debut + 28            ' dimanche 07/04/2025

Cordialement.