Discussion :

[Alexandre DENIS]

Bonjour,
Je débute sur ACCESS, je souhaite faire la différence entre 2 dates en jours ouvrés. J'ai commencé à utilisé la formule datediff.
Je connais la formule NB.JOURS.OUVRES dans excel, je cherche donc son équivalence dans ACCESS.
Merci pour votre aide.

[Robert1957]

Bonjour Alexandre DENIS,

La touche F1 permet d'avoir l'aide d'Access.
Tu verras qu'il n'existe pas d'équivalent de NB.JOURS.OUVRES dans Access. Cependant l'aide te propose la fonction suivante:

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Function Work_Days(BegDate As Variant, EndDate As Variant) As Integer
 
   Dim WholeWeeks As Variant
   Dim DateCnt As Variant
   Dim EndDays As Integer
 
   On Error GoTo Err_Work_Days
 
   BegDate = DateValue(BegDate)
   EndDate = DateValue(EndDate)
   WholeWeeks = DateDiff("w", BegDate, EndDate)
   DateCnt = DateAdd("ww", WholeWeeks, BegDate)
   EndDays = 0
 
   Do While DateCnt <= EndDate
      If Format(DateCnt, "ddd") <> "Sun" And _
        Format(DateCnt, "ddd") <> "Sat" Then
         EndDays = EndDays + 1
      End If
      DateCnt = DateAdd("d", 1, DateCnt)
   Loop
 
   Work_Days = WholeWeeks * 5 + EndDays
 
Exit Function
 
	Err_Work_Days:
 
	' If either BegDate or EndDate is Null, return a zero
	' to indicate that no workdays passed between the two dates.
 
	If Err.Number = 94 Then
				Work_Days = 0
	Exit Function
	Else
' If some other error occurs, provide a message.
	MsgBox "Error " & Err.Number & ": " & Err.Description
	End If
 
End Function

Il faudra que tu l'adaptes à tes besoins.

Bonne chance

[pc75]

Bonjour,

Une autre piste :

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
 
		Do while DateDiff("d", Deb, Fin) >= 0
			if WeekDay(Deb, vbMonday) = 1 then
				NbChomes = NbChomes + 1
			elseif WeekDay(Deb, vbMonday) = 2 then
				NbChomes = NbChomes + 1
			elseif WeekDay(Deb, vbMonday) = 3 then
				NbChomes = NbChomes + 1
			elseif WeekDay(Deb, vbMonday) = 4 then
				NbChomes = NbChomes + 1
			elseif WeekDay(Deb, vbMonday) = 5 then
				NbChomes = NbChomes + 1
			elseif WeekDay(Deb, vbMonday) = 6 then
				NbChomes = NbChomes + 1
			elseif WeekDay(Deb, vbMonday) = 7 then
				NbChomes = NbChomes + 1
			elseif IsFerie(Deb) then 'and WeekDay(Deb, vbMonday) <> 6 and WeekDay(Deb, vbMonday) <> 7 then
				NbFeries = NbFeries + 1
			else
				NbOuvres = NbOuvres + 1
			end if
			Deb = DateAdd("d", 1, Deb)
		Loop

Et la fonction :

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
24
25
26
27
28
29
30
 
Function IsFerie(LeJour)
 Annee = Year(LeJour)
 Paques = fPaques(Annee) 'Cherche le jour de Pâques
 
 LunPaq = cStr(DateAdd("d", 1, Paques)) 'En déduit les jours fériés mobiles
 
 Ascension = cStr(DateAdd("d", 39, Paques))
 
 LunPent = cStr(DateAdd("d", 50, Paques))
 
 PremierJanvier = "01/01/" & Annee
 PremierMai = "01/05/" & Annee
 HuitMai = "08/05/" & Annee
 QuatorzeJuillet = "14/07/" & Annee
 QuinzeAout = "15/08/" & Annee
 PremierNovembre = "01/11/" & Annee
 OnzeNovembre = "11/11/" & Annee
 Noel = "25/12/" & Annee
 
 StrJour = cStr(LeJour)
 if StrJour = LunPaq or StrJour = Ascension or (StrJour = LunPent and Year(LunPent) < 2005) or (StrJour = LunPent and Year(LunPent) > 2007) _
 or StrJour = PremierJanvier or StrJour = PremierMai or StrJour = HuitMai _
 or StrJour = QuatorzeJuillet or StrJour = QuinzeAout or StrJour = OnzeNovembre _
 or StrJour = PremierNovembre or StrJour = Noel then
  IsFerie = true
 else
  IsFerie = false
 end if
End Function