[DATES] Règles pour le numéro de la semaine

**kirgan** · 27/04/2006, 11h54

hello,

j'ai une question assez globale, mais vu que je suis sur Access, je vous la pose ici.

Je n'ai en effet pas trouvé la réponse dans les posts ni les FAQ.

Pour une appli de gestion, j'ai besoin de connaître, pour un mois donné, les semaines qui le composent. Je n'ai aucun problème à extraire un numéro de semaine d'une date, etc. Mon problème est uniquement au niveau "gestion". Existe-t-il une règle qui dit que, si le premier jour du mois est par exemple un jeudi, cette semaine-là sera sur le mois précédent? Ou bien dois-je définir ces règles en interne?

En gros, si une semaine est à cheval sur 2 mois, où la mettre? Et encore mieux, Access aurait-il par hasard une fonction toute faite...?

Si vous avez déjà rencontré ce "problème", vos avis m'intéressent!

Merci d'avance

edit:
passer via VbFirstWeekOfYear, et calculer, vous semble une bonne idée? Ou bien tiré par les cheveux...

Invité · 27/04/2006, 13h26

Normalement,

La semaine commençant toujours par un Lundi

le numéro de la semaine est imputable sur le mois contenant ce Lundi

Il suffit donc de calculer la date du lundi par rapport au premier jour du mois, et le tour est joué !

A+

**kirgan** · 27/04/2006, 14h39

Envoyé par BrunoM45

La semaine commençant toujours par un Lundi

C'est ce que je pensais, mais apparemment pas pour Access... La semaine commence le dimanche, ce qui m'emballe moyennement.

En gros, pour Access, et en utilisant la méthode de Maxence LastDayOfMonth(), ainsi qu'une méthode FirstDayOfMonth(), si l'utilisateur entre n'importe quelle date du mois qui l'intéresse, je récupère les premier et dernier jours du mois, puis de là j'extrais les semaines de début et de fin. Ca marche moyennement (si un mois commence le samedi, je vais avoir la semaine d'avant, mais ca, ca passe encore). Par contre, si le mois finit le dimanche (comme avril 2006), il m'inclut la semaine 18 dans avril...

Ca m'a toujours énervé les dates

Et en plus, je sens que ca va encore plus me faire tourner en bourrique, car certains users n'ont pas le même profil régional...

Edit:
En fait, c'est encore plus bizarre que je ne le pensais... en 2011 (ben ouais, j'ai testé), le 01/01 est un samedi. Et Access me dit, logiquement, que le 02/01 est la.... DEUXIEME semaine. Or, franchement, j'en doute...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function GetTest() As String
    GetTest = DatePart("ww", GetDateCurrent())
End Function

GetDateCurrent() me renvoie une date sélectionnée dans un calendar visuel.

Invité · 27/04/2006, 18h21

Bout de code de ce cher Walter Stucki
http://mypage.bluewin.ch/w.stucki/Ca...ates.htm#NoSem

Tu appelles la fonction comme tu veux avec la valeur de ta date

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function NoSemaine(Optional UneDate As Date = 0) As Integer
' Objectif: UneDate est la date dont on veut calculer le numéro de semaine européen
' En Europe, la 1ère semaine d'une nouvelle année est la semaine contenant le premier lundi
' Aux USA, la 1ère semaine est celle du 1er janvier.
' Exemple: Format("01/10/2000","ww", vbMonday, vbFirstFullWeek) donne 40
' Exemple: DatePart("ww","01/01/2002",vbMonday,vbFirstFullWeek) donne 53 (dernière semaine de l'an 2001)
' Ce résultat de 53 est obtenu quand le 1er janvier est un mardi ou quand le 1er janvier est un mercredi et que
' l'année précédente est bissextile.
If UneDate = 0 Then
   UneDate = Date
End If
NoSemaine = DatePart("ww", UneDate, vbMonday, vbFirstFullWeek)
End Function