Nombre de jours entre 2 dates en annee commerciale

Commenter

Contenu du snippet

Une petite fonction logique et mathematique pour calculer le de nombre de jours entre 2 dates ,tenant en compte que chaque mois a 30 jours, cad l'annee a 360 jours!

Source / Exemple : 


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

Conclusion :


Petite Amelioration:

a = Year(d2) - Year(d1)
m = Month(d2) - Month(d1)
j = Day(d2) - Day(d1)

datediff360 = a * 360 + m * 30 + j

Toute remarque sera la bienvenue!

A voir également

S'inscrire maintenant

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.