Bonsoir
J'ai besoin d'additionner ou de soustraire des temps de fonctionnement machines exprimés en H/mm (Ex 2180h45 + 165h50). Jusqu'à maintenant je passais par Excel, où c'est vraiment simple, mais avec Access ça se complique....
J'ai récupéré un Module que l'on m'a donné :
Ce module fonctionne très bien, mais seul inconvénient, il ne supporte pas les champs vides, or les tables avec lesquelles je travail en sont truffées ! Donc ça plante tous les 5 minutes.
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 Function AddHrs(Hr1, Hr2) Dim H1, H2, AdH, Hmn As Single Dim Check As Boolean Check = IsNull(AdH) If Check = True Then AddHrs = "" If Chech = False Then H1 = (5 / 3 * Hr1) - (2 / 3 * Int(Hr1)) H2 = (5 / 3 * Hr2) - (2 / 3 * Int(Hr2)) AdH = H1 + H2 Hmn = (3 / 5 * AdH) + (2 / 5 * Int(AdH)) AddHrs = Format(Hmn, "00.00") End If End Function Function DtHrs(Ghrs, Phrs) Dim Gh, Ph, Delta, Hmn As Single Gh = (5 / 3 * Ghrs) - (2 / 3 * Int(Ghrs)) Ph = (5 / 3 * Phrs) - (2 / 3 * Int(Phrs)) Delta = Gh - Ph If Delta = "" Then DtHrs = "" If Delta <> "" Then Hmn = (3 / 5 * Delta) + (2 / 5 * Int(Delta)) DtHrs = Format(Hmn, "00.00") End If End Function
Je voudrais faire les calculs dans mes requêtes.
Quelqu'un aurait il la formule magique ??
Partager