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é :
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
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.
Je voudrais faire les calculs dans mes requêtes.
Quelqu'un aurait il la formule magique ??