Ca marche pas Date

-----Message d'origine-----
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)


.

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)

-----Message d'origine-----
Bonjour
Dans ce que vous avez écrit il n' ya rien qui correspond
à ce que vous demandé
Nbrsate = Format ((DateCalculFin, "yyyy") & format(Format
((DateCalculFin, "mm"),2)

et voila vous avez votre format 200402 par exemple

-----Message d'origine-----
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)


.

.

Bonjour

Simplement avec Format(TaDate, "yyyymm")

--
Gilbert


"damien" <damien@discussions.microsoft.com> a écrit dans le message de news:
480C635D-5D38-421B-8B54-E15F063885A8@microsoft.com...

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)

Desole ce n'est pas le mois que je veux ajouter mais le n° de semaine