problème avec le format horaire

Function HNUIT(RangeDebVac As Range, RangeFinVac As Range) As Date
'Avec DN et FN Cellules nommées DebutNuit et FinNuit (21:00 - 6:00)
Dim Y As Boolean, Y1 As Boolean, hFv As Date, hDv As Date
hFv = RangeFinVac
hDv = RangeDebVac
Y1 = hDv > 0 And hFv > 0
If Y1 Then
Y = hDv < hFv
If Y Then
If hFv < Range("FN") Then
HT1 = hFv - hDv
Else
If hDv < Range("FN") Then
HT1 = Range("FN") - hDv
Else
If hDv < Range("DN") Then hDv = Range("DN")
If hFv > Range("FN") Then HT1 = hFv - hDv
If hFv < Range("DN") Then HT1 = 0
End If
End If
Else
If hDv < Range("DN") Then hDv = Range("DN")
If hFv > Range("FN") Then hFv = Range("FN")
HT1 = 24 + hFv - hDv
End If
End If
HNUIT = HT1
End Function

Cliquez pour agrandir...