Nombre de jours entre 2 dates en annee commerciale
Soyez le premier à donner votre avis sur cette source.
Snippet vu 12 085 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
- ASP / ASP.NET : Calcul du nombre de jours entre deux dates en asp - CodeS SourceS - Guide
- C / C++ / C++.NET : Nombre de jours entre deux dates differentes - CodeS SourceS - Guide
- ASP / ASP.NET : Calcul du nombre de jours entre deux dates - CodeS SourceS - Guide
- Nombre de jours entre deux date en une seule ligne - Codes sources - PHP (Date / Heure)
- Delphi / Pascal : Calculer le nombre de jours entre deux dates en excluant les week end - CodeS Sour - Guide
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.