1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Private Sub date_de_fin_Exit(Cancel As Integer)
Dim dteDate1 As Date
Dim dteDate2 As Date
dteDate1 = [date_de_debut]
dteDate2 = [date_de_fin]
If REGIME_MACHINE = "2/9" Then '18 heures de fonctionnement par jour
arrêt_total_machine = DateDiff("h", dteDate1, dteDate2) - (DateDiff("d", dteDate1, dteDate2) * 16)
End If
If REGIME_MACHINE = "3/8" Then '24 heures de fonctionnement par jour
arrêt_total_machine = DateDiff("h", dteDate1, dteDate2) - (DateDiff("d", dteDate1, dteDate2) * 24)
End If
If REGIME_MACHINE = "7/7" Then '24 heures de fonctionnement par jour
arrêt_total_machine = DateDiff("h", dteDate1, dteDate2) - (DateDiff("d", dteDate1, dteDate2) * 24)
End If
End Sub |
Partager