OVH Cloud OVH Cloud

Format date

2 réponses
Avatar
damien
Bonjour,
voila g une date dateCalculFin de la forme 01/11/2004 et je veux l'avoir de
la forme 200411 pour ca c ok
mais pour 01/02/2004 g 20042 et moi je voudrais 200402
le 0 n'apparait pas et ca c un probléme pour la suite de mon programme
Voila ce que g écrit: ca me semble correcte

Dim NBSem2 As Integer
Dim FreqFin As Double

NBSem2 = Int(Format(Format(DateCalculFin, "ww"), "00"))
FreqFin = CDbl(Mid(Trim(Str(DateCalculFin)), 7, 4) + Trim(Str(NBSem2)))

Que faire
Merci de votre aide (quotidienne)

2 réponses

Avatar
bubustor
salut
et avec des left et right ou mid ?

résultat = right(dateCalculFin,4) + mid(dateCalculFin,4,2)

enfin je crois que c'est ça.
Avatar
3stone
Salut,

"damien"
voila g une date dateCalculFin de la forme 01/11/2004 et je veux l'avoir de
la forme 200411 pour ca c ok
mais pour 01/02/2004 g 20042 et moi je voudrais 200402
le 0 n'apparait pas et ca c un probléme pour la suite de mon programme




Format(DateCalculFin,"yyyymm")



Voila ce que g écrit: ca me semble correcte

Dim NBSem2 As Integer
Dim FreqFin As Double

NBSem2 = Int(Format(Format(DateCalculFin, "ww"), "00"))
FreqFin = CDbl(Mid(Trim(Str(DateCalculFin)), 7, 4) + Trim(Str(NBSem2)))



?



--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome