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 ?
Merci d'avance
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![]()
Partager