OVH Cloud OVH Cloud

Problème avec le format date

3 réponses
Avatar
Bonjour,

j'ai un champ o=F9 les utilisateurs peuvent choisir une=20
date. Cependant, je d=E9sirerais quel lorsqu'ils choisissent=20
une date, que celle-ci soit transf=E9r=E9e au premier du mois=20
l'ann=E9e d'apr=E8s. Exemple, si je s=E9lectionne dans le=20
DatePicker "2003-12-03", j'aimerais faire en sorte que ca=20
soit "2004-12-01" qui s'inscrive.=20

J'ai essay=E9:
[dtUnAn =3D format(dtUnAn, "yyyy-mm-01 hh mm ss")], mais le=20
date picker le reconnait pas le format date par apr=E8s.

Private Sub dtpDepuis_Change()
Dim dtUnAn As Date
=20
dtUnAn =3D dtpDepuis.Value
dtUnAn =3D dtUnAn + 365=20

End Sub

Le format de date du datepicker est "aaaa-mm-jj hh mm ss".
Quelqu'un peut m'aider ?
Merci !

3 réponses

Avatar
mumu
bonjour
essai ca, ca devrait te rajouter un mois ensuite tu enleve le jour et met
ce que tu veux
ou met le en forme directement a la place de dd

dtUnAn = Format(DateAdd("m", +1, dtUnAn), "yyyy/mm/dd")

mumu


a écrit dans le message de
news:020501c3ba8a$3387d920$
Bonjour,

j'ai un champ où les utilisateurs peuvent choisir une
date. Cependant, je désirerais quel lorsqu'ils choisissent
une date, que celle-ci soit transférée au premier du mois
l'année d'après. Exemple, si je sélectionne dans le
DatePicker "2003-12-03", j'aimerais faire en sorte que ca
soit "2004-12-01" qui s'inscrive.

J'ai essayé:
[dtUnAn = format(dtUnAn, "yyyy-mm-01 hh mm ss")], mais le
date picker le reconnait pas le format date par après.

Private Sub dtpDepuis_Change()
Dim dtUnAn As Date

dtUnAn = dtpDepuis.Value
dtUnAn = dtUnAn + 365

End Sub

Le format de date du datepicker est "aaaa-mm-jj hh mm ss".
Quelqu'un peut m'aider ?
Merci !
Avatar
3stone
Salut anonymous,

j'ai un champ où les utilisateurs peuvent choisir une
date. Cependant, je désirerais quel lorsqu'ils choisissent
une date, que celle-ci soit transférée au premier du mois
l'année d'après. Exemple, si je sélectionne dans le
DatePicker "2003-12-03", j'aimerais faire en sorte que ca
soit "2004-12-01" qui s'inscrive.

J'ai essayé:
[dtUnAn = format(dtUnAn, "yyyy-mm-01 hh mm ss")], mais le
date picker le reconnait pas le format date par après.


NewDate = DateSerial(Year(dtUnAn)+1,Month(dtUnAn),1)



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
Avatar
mumu
:)
c'est mieux que moi et surtout plus juste, j'ai comme qui dirait lu
rapidement la question et loupé un morceau


"3stone" a écrit dans le message de
news:3fcf7aad$0$2874$
Salut anonymous,

j'ai un champ où les utilisateurs peuvent choisir une
date. Cependant, je désirerais quel lorsqu'ils choisissent
une date, que celle-ci soit transférée au premier du mois
l'année d'après. Exemple, si je sélectionne dans le
DatePicker "2003-12-03", j'aimerais faire en sorte que ca
soit "2004-12-01" qui s'inscrive.

J'ai essayé:
[dtUnAn = format(dtUnAn, "yyyy-mm-01 hh mm ss")], mais le
date picker le reconnait pas le format date par après.


NewDate = DateSerial(Year(dtUnAn)+1,Month(dtUnAn),1)



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------