Discussion :

[zetra]

bonjour

voila mon probleme: j'ai un personnel qui effectue des heures supplémentaires qui sont taxées différemment selon la tranche horaire ( entre 05:00 et 22:00 sont majores a 50% et ceux effectuees entre 22:00 et 05:00 sont majorees a 100%) la saisie est effectuee par datedebut + heuredebut et datefin + heurefin . Pour le calcul de la duree totale j'utilise (([DFIN]+[HFIN])-([DDEB]+[HDEB]))*24 et ca me renvoie un resultat exact. sauf que je souhaite décortiquer cela en nombre d'heures effectues entre 05:00 h et 22:00 h ET ceux effectues entre 22:00 h et 05:00 h pour les traiter différemment.

et merci pour votre aide

[ClaudeLELOUP]

Bonjour,

Voici une fonction qui devrait convenir.

Il faut d'abord définir un type « Prestation ».

L'idée c'est de faire défiler le temps minute par minute depuis le début jusqu'à la fin et comptabiliser chaque minute dans la bonne catégorie.

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
Option Compare Database
Option Explicit
 
Type Prestation
  pc50 As Date
  pc100 As Date
End Type
 
 
 
Public Function Duree(DDEB As Date, HDEB As Date, DFIN As Date, HFIN As Date) As Prestation
  Dim Debut As Date
  Dim Fin As Date
  Debut = DDEB + HDEB
  Fin = DFIN + HFIN
  'Vérifier cohérence
  If Debut > Fin Then
      MsgBox "Début et fin sont incohérents !", vbCritical
      Exit Function
  End If
  'Ventiler
  Do While Debut < Fin
    Debut = Debut + ((1 / 24) / 60)
      If Format(Debut, "hh:mm") > #5:00:00 AM# And Format(Debut, "hh:mm") <= #10:00:00 PM# Then
          Duree.pc50 = Duree.pc50 + ((1 / 24) / 60)
        Else
          Duree.pc100 = Duree.pc100 + ((1 / 24) / 60)
      End If
  Loop
End Function

Pour tester, ouvrir la fenêtre d'exécution (<CTRL+G>





Attention, les dates à la sauce anglaise !