Bonjour g 1 pb urgent
voila g une date o format date normale exple :12/11/2004
de cette date (NBSem2) je veux en deduire le N° de la semaine correspondante
(ca c ok) puis je veus sortir la date de la forme 200445 avec 45 le n° de la
semaine ca marche mais ma fourchette va de 1 à 52 et moi je voudrais de 01 à
52 je n'arrive pas a afficher l0 pour avoir 200401 ca m'affiche 20041
Voila ce que g érit
>>Dim NBSem2 As Integer
>>Dim FreqFin As Double
>>
>>NBSem2 = Int(Format(DateCalculFin, "ww"))
>>FreqFin = CDbl(Mid(Trim(Str(DateCalculFin)), 7, 4) + Trim
>(Str(NBSem2)))
>>
>>Que faire pour m'afficher le 0*
>>Merci de votre aide (quotidienne)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jessy Sempere [MVP]
Bonjour
Essais cette fonction, elle devrait te convenir :
Function dtYearWeek(dtField As Date) As Double dtYearWeek = CDbl(Year(dtField) & _ Format(Format(dtField, "ww"), "00")) End Function
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "damien" a écrit dans le message news:
Bonjour g 1 pb urgent voila g une date o format date normale exple :12/11/2004 de cette date (NBSem2) je veux en deduire le N° de la semaine correspondante
(ca c ok) puis je veus sortir la date de la forme 200445 avec 45 le n° de la
semaine ca marche mais ma fourchette va de 1 à 52 et moi je voudrais de 01 à
52 je n'arrive pas a afficher l0 pour avoir 200401 ca m'affiche 20041 Voila ce que g érit
Que faire pour m'afficher le 0* Merci de votre aide (quotidienne)
Bonjour
Essais cette fonction, elle devrait te convenir :
Function dtYearWeek(dtField As Date) As Double
dtYearWeek = CDbl(Year(dtField) & _
Format(Format(dtField, "ww"), "00"))
End Function
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"damien" <damien@discussions.microsoft.com> a écrit dans le message news:
81750B0C-98FF-4983-9048-AEB0F383AA56@microsoft.com...
Bonjour g 1 pb urgent
voila g une date o format date normale exple :12/11/2004
de cette date (NBSem2) je veux en deduire le N° de la semaine
correspondante
(ca c ok) puis je veus sortir la date de la forme 200445 avec 45 le n° de
la
semaine ca marche mais ma fourchette va de 1 à 52 et moi je voudrais de 01
à
52 je n'arrive pas a afficher l0 pour avoir 200401 ca m'affiche 20041
Voila ce que g érit
Function dtYearWeek(dtField As Date) As Double dtYearWeek = CDbl(Year(dtField) & _ Format(Format(dtField, "ww"), "00")) End Function
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "damien" a écrit dans le message news:
Bonjour g 1 pb urgent voila g une date o format date normale exple :12/11/2004 de cette date (NBSem2) je veux en deduire le N° de la semaine correspondante
(ca c ok) puis je veus sortir la date de la forme 200445 avec 45 le n° de la
semaine ca marche mais ma fourchette va de 1 à 52 et moi je voudrais de 01 à
52 je n'arrive pas a afficher l0 pour avoir 200401 ca m'affiche 20041 Voila ce que g érit
