Function EcartVeille(x, y)
Dim s, i&, h0, m0, h1, h2, m1, m2, hm0, hm1, hm2
On Error GoTo EcartVeille_Err1
s = Split(x): s = Filter(s, "-")
s = s(UBound(s)): s = Split(s, "-")(0): s = Split(s, "h", , 1)
h0 = CInt(s(0)): m0 = CInt(s(1))
hm0 = h0 / 24# + m0 / 24# / 60#
s = Split(x): s = Filter(s, "-")
s = s(UBound(s)): s = Split(s, "-")(1): s = Split(s, "h", , 1)
h1 = CInt(s(0)): m1 = CInt(s(1))
hm1 = h1 / 24# + m1 / 24# / 60#
If hm1 < hm0 Then hm1 = hm1 + 1
s = Split(y): s = Filter(s, "-")
s = s(0): s = Split(s, "-")(0): s = Split(s, "h", , 1)
h2 = CInt(s(0)): m2 = CInt(s(1))
hm2 = 1 + h2 / 24# + m2 / 24# / 60#
EcartVeille = hm2 - hm1
EcartVeille_Err1:
End Function