Soyez le premier à donner votre avis sur cette source.
Snippet vu 12 085 fois - Téléchargée 39 fois
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.