Bonjour à tous, dans le cadre de mon projet VBA j'aimerais calculer la différence entre deux dates en nombre de mois mais sans les arrondir.
Voici le code du bouton qui me permet de faire le calcul:
Private Sub CommandButton1_Click()
Dim premieredate As Date
Dim secondedate As Date
Dim nb_mois As Long
premieredate = datedebut.Value
secondedate = datefin.Value
nb_mois = DateDiff("m", premieredate, secondedate)
convertiondatehaut = nb_mois
End Sub
Ce code fonctionne très bien mais ne convient pas totalement à mon besoin car trop imprécis. J'ai appliqué un format de nombre sur la case du résultat mais sans succès.
Voici le code:
Private Sub convertiondatehaut_Change()
convertiondatehaut = Format(convertiondatehaut, "0.00")
'EXEMPLE POUR LE FORMAT
'tauxremplacement.Value = Format(tauxremplacement.Value, "00 %")
End Sub
Le résultat sera toujours les mois,00 comme vous pouvez le voir ci-dessous:
Merci par avance
Cordialement;