Discussion :

[patmar83]

Je dois gérer le nombre d'heure sup par semaine (> 35H)
J'ai trouvé dans les faq de quoi faire des sommes > 24H , ça c'est ok
mais je continue à me heurter à ma soustraction entre montant d'heure sup et mes 35H
Je pensais avoir trouvé une solution en transformant ces heures en minutes et pour cela j'ai regardé toutes les discussions sur le sujet ainsi que les faq, mais je ne comprends pas toujours la syntaxe et je n'arrive pas à l'adapter
Donc comment faire pour calculer par exemple 56H20 - 35H00
merci

[Renardo]

bonsoire
pour ma part j'utilise se module

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
' Permet de trouver un nombre d'heures > 24 :
Public Function EnHeure(ParTemps As Double, Optional ParSecondesAffichees As Boolean = False)
  Dim VarJours As Long, VarHeures As Long, VarMinutes As Long, VarSecondes As Long
  VarJours = Int(ParTemps)
  ParTemps = (ParTemps - VarJours) * 86400 'nombre de secondes
  VarSecondes = ParTemps Mod 60
  ParTemps = ParTemps - VarSecondes
  VarMinutes = (ParTemps Mod 3600) / 60 ' Minutes
  ParTemps = ParTemps - VarMinutes * 60
  VarHeures = (ParTemps Mod 86400) / 3600 ' Heures
  VarHeures = VarHeures + VarJours * 24
  If IsMissing(ParSecondesAffichees) Or ParSecondesAffichees = True Then
    EnHeure = VarHeures & ":" & Format(VarMinutes, "00") & ":" & Format(VarSecondes, "00")
  Else
    EnHeure = VarHeures & ":" & Format(VarMinutes, "00") & ":" & Format(VarSecondes, "00")
  End If
End Function

je te donne un exemple de calcul que moi j'ai mis dans la source de controle d'un champ

Code :

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

=Enheure(nz(Somme([HeureTravailler]))-nz(Somme([HeureSuplementare])))

en esperant que cela t'aidera

[patmar83]

merci, je vais essayer demain, car il se fait tard