[VBA] N° semaine à partir d'une date

Le
Amalric Parré
Re,

Encore une question :
Dans un USF, deux textbox (date du jour et n° semaine), comment déterminer
un n° de semaine (si possible au format "S8") à partir d'une date ?

Merci

Amalric
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ChrisV
Le #5242751
Bonjour

Sub zaza()
Dim d2 As Long
d1 = DateValue("20/02/2008")
d2 = DateSerial(Year(d1 - Weekday(d1 - 1) + 4), 1, 3)
MsgBox "S" & Int((d1 - d2 + Weekday(d2) + 5) / 7)
End Sub


ChrisV


"Amalric Parré" uXLA5$$
Re,

Encore une question :
Dans un USF, deux textbox (date du jour et n° semaine), comment déterminer
un n° de semaine (si possible au format "S8") à partir d'une date ?

Merci

Amalric



Publicité
Poster une réponse
Anonyme