RETOURNE NUMÉRO DE SEMAINE D'UNE DATE SAISIE (TRÈS SIMPLE)
Ricks27
Messages postés
79
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
29 juillet 2005
-
8 juil. 2002 à 09:13
tbbuim1 Messages postés 940 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 3 février 2011 - 30 janv. 2006 à 11:37
tbbuim1 Messages postés 940 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 3 février 2011 - 30 janv. 2006 à 11:37
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/3923-retourne-numero-de-semaine-d-une-date-saisie-tres-simple
https://codes-sources.commentcamarche.net/source/3923-retourne-numero-de-semaine-d-une-date-saisie-tres-simple
30 janv. 2006 à 11:37
30 janv. 2006 à 11:18
La semaine 53 exite si le 1er janvier commence un vendredi, samedi ou dimanche.
Le seul bug de la fonction format est qu'étant donné que Weekday commence un Dimanche (va savoir pourquoi), il décale tous les résultats d'un jour.
Ainsi le 01/01/06 (qui est un dimanche) fait parti de la semaine 1 pour lui, hors ça fait tjs parti de la semaine 53!!!!
Donc pour rectifier celà, il suffit de faire:
Format((date - 1),"ww")
27 avril 2005 à 16:21
Merci pour ton comm Ricks27 aussi, sans lequel j'aurais pu avoir un joli bug dans les années à venir !
8 juil. 2002 à 09:13
Function TrouverNuméroSemaine(ByVal Dte As Date) As Integer
TrouverNuméroSemaine = Format(Dte, "ww", vbSaturday, vbFirstFullWeek)
If TrouverNuméroSemaine > 52 Then
If Format(Dte + 7, "ww", vbMonday, vbFirstFullWeek) = 2 Then
TrouverNuméroSemaine = 1
End If
End If
End Function