Discussion :

[Car0le]

Bonjour,

Je suis en train de faire une fonction VBA qui me retourne le nombre d'heures entre 2 dates (en supprimant les week-end et jours fériés) pour ensuite insérer ce nombre dans ma table TEST.

Pour cela, j'ai une table Jours_travail où j'ai toutes les dates de 2012 à 2017 et à coté une colonne qui me dit si c'est un jour travaillé ou non. Voici la composition de ma table Jours_travail:

Jour (type date) | Jours_travailles (type text)

01/01/2012 | Non

02/02/2012 | Oui

Je sais que j'ai un problème de syntaxe dans ma requête Nb_jours déjà (mais j'arrive pas à l'écrire correctement)

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
Function Resultat(Date1 As Date, Date2 As Date) As Integer
 
Dim DifDate1 As Date, DifDate2 As Date
Dim Nb_jours As Integer 'Nombre de jours ouvrés entre Date1 et Date2 (récupération du résultat de la requête)
Dim Dif_heures As Integer
 
DifDate1 = 0
DifDate2 = 0
Dif_heures = 0
Nb_jours = 0
 
'Nombre de jours se trouvant entre les 2 dates et multiplication de ce nombre par 10 pour avoir le nombre d'heures travaillées entre les 2 dates
Nb_jours = "SELECT COUNT(*) FROM Jours_travail WHERE '" & Date1 & "' < Jour AND '" & Date2 & "' > Jour AND Jours_tavailles = 'Oui'"
Dif_heures = Nb_jours * 10
 
'Calculer le nbre d'heures travaillées pour Date1 et Date2
DifDate1 = DateDiff("h", Hour(Date1), 18) 'Nbr d'heures travaillées le jour de Date1
DifDate2 = DateDiff("h", 8, Hour(Date2)) 'Nbr d'heures travaillées le jour de Date2
 
'Addition des différents calculs
Resultat = Nb_jours + DifDate1 + DifDate2
 
End Function
 
Sub TEST2()
 
DoCmd.RunSQL ("UPDATE TEST SET `Mes résultats`= Resultat(Demand_Launch_date_Valid, Acknowledge_date_valid);")
 
End Sub

[ClaudeLELOUP]

Bonjour,

Quand tu compares à une date, tu dois encadrer celle-ci de croisillons « # ».

Donc

Code :

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

Nb_jours = "SELECT COUNT(*) FROM Jours_travail WHERE '" & Date1 & "' < Jour AND '" & Date2 & "' > Jour AND Jours_tavailles = 'Oui'"

Code :

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

Nb_jours = "SELECT COUNT(*) FROM Jours_travail WHERE #" & Date1 & "# < Jour AND #" & Date2 & "# > Jour AND Jours_tavailles = 'Oui'"

De plus, selon le contexte, il faut parfois présenter la date dans le format américain.

[Tofalu]

Vous pouvez aussi jeter un oeil à la fonction BuildCriteria

[Car0le]

Merci je vais voir du côté de BuildCriteria.

Par contre j'ai remanié ma requête et j'ai toujours une erreur d'incompatibilité de type:

Code :

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

Nb_jours = "SELECT COUNT(*) FROM Jours_travail WHERE #" & DateValue(Date1) & "# < Jour AND #" & DateValue(Date2) & "# > Jour AND Jours_tavailles = 'Oui'"

[nico84]

Bonjour,

J'avoue que je n'utilise pas non plus les # et ça marche bien avec cette syntaxe :

Code :

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

...where jour>cdate('" & MaDate & "')...

PS :
- ça irait plus vite si jours_travailles était un booléen
- s'il s'agit de salariés en France ça va être difficile de les faire travailler légalement 10h/j...