Discussion :

[DB_noub]

Bonjour à tous !

Etant plutôt un habitué du forum, je vais rapidement exposer mon problème. Je souhaite calculer le nombre de jour ouvré entre deux dates données sous Access.
J’ai pris le temps de lire à la FAQ et d’effectuer des recherches sur le forum, ce qui m’a permis d’élaborer un code que j’ai voulut le plus simple possible.
Pour le moment, mon objectif est « d’exclure » les week-ends du comptage des jours. En effet, je préfère procéder de manière incrémentale, le cas des jours féries étant une autre paire de manches ! (traiter dans la faq VBA Access si ma mémoire est bonne… ).
Voilà donc, le bout de code « incriminé » qui ne marche pas, et honnêtement , je ne vois pas ce qui cloche dans ce code ! et vous

NB : je travaille sous Access 97…

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public Function NombreJours(ByVal Date1 As Date, ByVal Date2 As Date) As Integer
 
 
Dim nbjour As Integer
nbjour = 0
 
If Date2 < Date1 Then
  NombreJours = 0
Else
 While DateDiff("d", Date1, Date2) >= 0
      If DatePart("d", Date1) <> (1) And DatePart("d", Date1) <> (7) Then
      nbjour = nbjour + 1
 
      Date1 = DateAdd("d", 1, Date1)
      End If
NombreJours = nbjour
 Wend
 
 
End If
 
End Function

[pgz]

Bonjour,

Des erreurs, j'en vois rapidement 2 grosses :
- C'est WeekDay qui te donnera le numéro du jour de la semaine
- tu n'incrémentes pas Date1 si le jour est samedi ou dimanche

Donc dès que tu tombes sur un DatePart qui renvoie un 1 ou un 7, tu tournes en rond...

Tu nous avais juste dit que ta fonction ne marchait pas, mais pas que tu n'en revenais jamais!

Pour rester dans ton idée de départ, tu peux essayer ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function NombreJours(ByVal Date1 As Date, ByVal Date2 As Date) As Integer
 
NombreJours = 0
 
If Date2 < Date1 Then Exit Function
 
While DateDiff("d", Date1, Date2) >= 0
    If Weekday(Date1, vbMonday) <> 6 And Weekday(Date1, vbMonday) <> 7 Then NombreJours = NombreJours + 1
    Date1 = Date1 + 1
 
Wend
 
 
End Function

Bon courage,

PGZ

[Domi2]

Bonjour,

Difficile d'être dimanche et samedi en même temps

Code :

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

If DatePart("d", Date1) <> (1) Or DatePart("d", Date1) <> (7) Then

Pas vérifié le reste.

Domi2

[DB_noub]

Ca marche !!!
MERCI beaucoup pgz, et désolé pour les "grossières" erreurs dans mon code (Domi2), j'étais un peut presser !