Public Function Rupture(D1, D2, H1, H2)
Dim AmpliS, Deb, DebS, FinS, Tot, A1, A2
AmpliS = H2 - H1
If AmpliS < 0 Then AmpliS = AmpliS + 1
DebS = Int(D1) - 1 + H1
FinS = DebS + AmpliS
Do 'Until DebS >= D2
If DebS > D1 Then A1 = DebS Else A1 = D1
If FinS < D2 Then A2 = FinS Else A2 = D2
Tot = Tot + Max((A2 - A1), 0)
DebS = DebS + 1: FinS = FinS + 1
If DebS > D2 Then Exit Do
Loop
Rupture = Tot
End Function
Function Max(x, y)
If x > y Then Max = x Else Max = y
End Function