Discussion :

[Gogov]

Bonjour,

Je bute sur le problème suivant :
Comment calculer le nombre de périodes 12h-14h et 19h-21h complètes entre deux dates ?
Pour être plus clair, ma problématique est la suivante : une indemnité repas est versée aux salariés à chaque fois qu'ils se trouvent en mission pendant la totalité de la période comprise entre 12h et 14h ou entre 19h et 21h. Par exemple :
- Début de mission : 23/02/2018 10h
- Fin de mission : 25/02/2018 20h
Le résultat à trouver est 5 (2 indemnités pour le 23/2, 2 indemnités pour le 24/02 et 1 pour le 25/02).

Merci par avance de votre aide !

[titi95]

Bonjour

Un bout de code d'essai à adapter à tes besoins

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub mission()
    Dim Jdébut, Jfin As Date, Hdébut, Hfin, Nindemnités As Integer
    Jdébut = "23/02/2018"
    Jfin = "25/02/2018"
    Hdébut = 10
    Hfin = 20
    Nindemnités = (DateDiff("d", Jdébut, Jfin) + 1) * 2
    If Hdébut > 12 Then Nindemnités = Nindemnités - 1
    If Hdébut > 19 Then Nindemnités = Nindemnités - 1
    If Hfin < 14 Then Nindemnités = Nindemnités - 1
    If Hfin < 21 Then Nindemnités = Nindemnités - 1
    MsgBox Nindemnités
End Sub

Titi95

[Gogov]

Ca fonctionne, merci beaucoup !

[titi95]

Parfait !

Mais n'oublies pas de cliquer sur Résolu