Nombre de jours entre 2 dates en annee commerciale
Soyez le premier à donner votre avis sur cette source.
Snippet vu 11 853 fois - Téléchargée 39 fois
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!
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!
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
- Année commerciale
- Nombre de jours entre deux dates sql oracle - Forum - SQL
- Calculer nombre de jours entre deux dates php - Forum - Javascript / DHTML
- Calculer le nombre de jours entre deux dates java - Forum - Java
- ASP / ASP.NET : Calcul du nombre de jours entre deux dates en asp - CodeS SourceS - Guide
- Nombre de jours entre deux dates differentes - Codes sources - C / C++ / C++.NET (Date / Heure)
Commentaire
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.