NOMBRE DE JOURS ENTRE 2 DATES EN ANNEE COMMERCIALE

Dim m1, m2, y1, y2, n As Integer
Dim debd1, debd2 As Date

Function datediff360(d1 As Date, d2 As Date) As Integer

m1 = Month(d1)
m2 = Month(d2)
y1 = Year(d1)
y2 = Year(d2)
n = m2 - m1
If n = 0 Then
            datediff360 = DateDiff("d", d1, d2)
Else
            debd1 = "01/" & m1 & "/" & y1
            debd2 = "01/" & m2 & "/" & y2
            diff1 = 30 - DateDiff("d", debd1, d1)
            diff2 = (n - 1) * 30 + DateDiff("d", debd2, d2)
            datediff360 = diff1 + diff2
End If
End Function