Pb de Date

Signaler
Messages postés
12
Date d'inscription
mercredi 6 mars 2002
Statut
Membre
Dernière intervention
24 mai 2004
-
cs_TheGo
Messages postés
12
Date d'inscription
mercredi 6 mars 2002
Statut
Membre
Dernière intervention
24 mai 2004
-
Slt ...
Voila, quand je fais :

Dim DatePeriode As Date
Dim annee As Integer
Private Sub Form_Load()
annee = Year(Now)
DatePeriode = 01 - 01 - annee
MsgBox(annee)
MsgBox(DatePeriode)
End Sub

Quand j'affiche l'annee (MsgBox(annee) ), ca m'affiche bien la bonne annee, mais quand je veux afficher la date (MsgBox(DatePeriode)), ca me met n'importe koi (07/07/1894)...
Si quelqu'un peut m'aider ...
Merci

2 réponses

Messages postés
152
Date d'inscription
mercredi 27 juin 2001
Statut
Membre
Dernière intervention
11 juillet 2002

Essaie cette ligne:

DatePeriode = CDate("01 - 01 - " & Str$(annee))
Messages postés
12
Date d'inscription
mercredi 6 mars 2002
Statut
Membre
Dernière intervention
24 mai 2004

Ca marche ...
Merci