Discussion :

[huguesben]

Bonjour,
Je cherche à mettre une condition pour des nombres entiers, pour faire en sorte de prendre en compte les mois précédents du mois en cours. Avec une petite spécificité évidemment : si le mois est inférieur à 1, il faut lui ajouter 12.
Donc si le mois en cours est 1 (Janvier), le mois précédent 0, auquel j'ajoute 12 (Décembre), le précédent à celui-ci -1, auquel j'ajoute 12 (Soit 11 > Novembre).

Avec ce code, la première partie fonctionne et me renvoie bien 1, 0 , -1, mais quand je fais la suite, les nombres inférieurs à 1 sont mis à zéro.

Voici le code que j'utilise.

Avez-vous une idée de ce qui pourrait bloquer ? Le forma Integer intègre bien les nombres négatifs, non ?

Merci d'avance pour vos lumières :-)

Aujourdhui = Date
Mois = Month(Aujourdhui)
An = Year(Aujourdhui)
AnUn = Year(Aujourdhui)
AnDeux = Year(Aujourdhui)
AnTrois = Year(Aujourdhui)

Dim MoisUn, MoisDeux, MoisTrois As Integer

Mois = Mois - 1
MoisUn = Mois - 1
MoisDeux = Mois - 2
MoisTrois = Mois - 3

MsgBox "MoisUn " & MoisUn & " - MoisDeux " & MoisDeux & " - MoisTrois " & MoisTrois

If MoisUn < 1 Then MoisUn = MoisUn + 12 And AnUn = An - 1
If MoisDeux < 1 Then MoisDeux = MoisDeux + 12 And AnDeux = An - 1
If MoisTrois < 1 Then MoisTrois = MoisTrois + 12 And AnTrois = An - 1

MsgBox "MoisUn " & MoisUn & " - MoisDeux " & MoisDeux & " - MoisTrois " & MoisTrois

[Valtrase]

Bonjour,
Utilisez plutôt DateSerial pour ce type de calcul, l'incrémentation se fera toute seule.

Référence Microsoft : Fonction DateSerial (Visual Basic pour les applications) | Microsoft Learn

[deedolith]

Salut,

Pourquoi réinventer la roue (en moins bien) ?
DateSerial, DateAdd, DateDiff, c'est fait pour ca.

[huguesben]

Bonjour,
Utilisez plutôt DateSerial pour ce type de calcul, l'incrémentation se fera toute seule.

Référence Microsoft : Fonction DateSerial (Visual Basic pour les applications) | Microsoft Learn

Merci beaucoup pour vos retours. Je vais regarder ça :-)
Très bonne fin de journée,
Hugues.

[Thumb down]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Aujourdhui  as date,an As Integer,AnUn  As Integer, AnDeux As Integer, AnTrois As Integer
Aujourdhui = Date
an = Year(Aujourdhui)
AnUn = an + 1
AnDeux = AnUn + 1
AnTrois = AnDeux + 1
 
Dim Mois  As Integer,MoisUn As Integer, MoisDeux As Integer, MoisTrois As Integer
Mois = Month(Aujourdhui)
MoisUn = Month(DateSerial(an, mois - 1, 1))
MoisDeux = Month(DateSerial(an, MoisUn - 1, 1))
MoisTrois = Month(DateSerial(an, MoisDeux - 1, 1))
 
MsgBox "MoisUn " & MoisUn & " - MoisDeux " & MoisDeux & " - MoisTrois " & MoisTrois

[deedolith]

Code :

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

MoisUn = Month(DateSerial(an, mois - 1, 1))

Il y a peut être un peut plus lisible:

Code :

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

MoisUn = Month(DateAdd("m", -1, an))

[huguesben]

Merci beaucoup :-)