Bonjour,

J'aimerais pouvoir faire des manipulations sur des dates, comme par exemple ne prendre que l'année, ou le mois etc... J'ai trouvé pour ne prendre que l'année d'une date, mais pour le reste...

Le code ci-dessous ne fonctionne pas, pourriez-vous m'aider ?

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
Private Sub Form_Current()
annee = Year(Date)
noww = Date
 
hivers01 = "21/12/" & annee
hivers02 = "20/03/" & annee
printemps01 = "21/03/" & annee
printemps02 = "20/06/" & annee
ete01 = "21/06/" & annee
ete02 = "20/09/" & annee
automne01 = "21/09/" & annee
automne02 = "20/12/" & annee
 
If noww >= hivers01 and noww <= hivers02 Then Me.Texte10.Value = "hivers": GoTo endimage
If noww >= printemps01 and noww <= printemps02 Then Me.Texte10.Value = "printemps": GoTo endimage
If noww >= ete01 and noww <= ete02 Then Me.Texte10.Value = "ete": GoTo endimage
If noww >= automne01 and noww <= automne02 Then Me.Texte10.Value = "automne"
 
endimage:
 
End Sub
Merci d'avance