Compter sur 360 jours...

cs_Cestmoi Messages postés 75 Date d'inscription lundi 1 avril 2002 Statut Membre Dernière intervention 3 juin 2012 - 12 avril 2003 à 15:40
cs_Cestmoi Messages postés 75 Date d'inscription lundi 1 avril 2002 Statut Membre Dernière intervention 3 juin 2012 - 12 avril 2003 à 17:04
Comment faire pour ke mon prog fasse comme excel avec sa fonction =jours360(date debut;date fin;vrai) ??

En gros, pour ke VB se base sur des mois de 30 jours et ce kelke soit le mois (fevrier, aout, novembre...)

2 réponses

stevebelgium Messages postés 180 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 7 juin 2003 1
12 avril 2003 à 16:49
day1 = CDate("21/1/1976")
day2 = CDate("22/11/1977")

' day2 > day1


MsgBox 30 - Day(day1) + Day(day2) + (Month(day2) - Month(day1) - 1) * 30 + (Year(day2) - Year(day1)) * 12 * 30
0
cs_Cestmoi Messages postés 75 Date d'inscription lundi 1 avril 2002 Statut Membre Dernière intervention 3 juin 2012
12 avril 2003 à 17:04
Oué, merci mec !
0
Rejoignez-nous