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 ?
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
ChrisV
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é" a écrit dans le message de news: 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
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é" <almar@free.fr> a écrit dans le message de news:
uXLA5$$cIHA.4168@TK2MSFTNGP02.phx.gbl...
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 ?
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é" a écrit dans le message de news: 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 ?