Obtenir le numero de semaine sans le bogue du 29 janvier compté en semeine 53

Commenter

Contenu du snippet

il prend le numero de la semaine d'une date
il prend en fait le numero de semaine du dimanche ainsi la semaine entiere a le meme numéro rt evite donc le bogue du lundi 29 decembre compté en semaine 53 au lieu de semaine 1

Source / Exemple : 


Sub Button1_Click(sender As Object, e As EventArgs)
label1.visible=true
label2.visible=true
dim dat as date
dim semaine as integer
dim semain as integer

dat=(calendar1.selecteddate)
semain=weekday(dat)
if semain=2 then
    dat=dat.adddays(6)
end if

if semain=3 then
    dat=dat.adddays(5)
end if

if semain=4 then
    dat=dat.adddays(4)
end if

if semain=5 then
    dat=dat.adddays(3)
end if

if semain=6 then
    dat=dat.adddays(2)
end if

if semain=7 then
    dat=dat.adddays(1)
end if

semaine=datepart("ww",dat,vbmonday)

label2.text=("le numero de la semaine dont la date du " & calendar1.selecteddate & " fait partie est le :").tostring
label1.text=semaine
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.