Probleme sur les dates/format
Bonjour à tous!
J'ai un petit problème de date...
En gros, j'ai crée un userform qui demande à l'utilisateur d'indiquer deux date: les jours sont en chiffre, le mois en lettre et l'année en chiffre (sous forme de liste déroulante)
Puis j'ai crée une fonction qui me permet de travailler sur ces deux dates que voici:
Code:
1
2
3
4
5
6
7
| Function maturité()
datetexte = CStr(jour.Value) & "/" & mois.Value & "/" & CStr(contenu_année.Value)
datetexte1 = CStr(jour1.Value) & "/" & mois1.Value & "/" & CStr(contenu_année1.Value)
maturité = (CDate(datetexte) - CDate(datetexte1)) / 365
End Function |
Jusque la tout marche parfaitement.
Mon problème est que j'utilise une autre fonction qui prend en input des dates.
Et je ne vois pas comment l'utiliser.
Je voudrais que en date1 soit la première date saisi et date2 la deuxième.
Mais il y a un problème de format. VBA ne reconnait pas le format saisi et veut un format "dd/mm/aaaa".
Du moins je pense que c'est de la qu vient le problème...
Code:
1
2
3
| Function lignevol(date1 As Date, date2 As Date) As Integer
...
end function |
Donc si qqln pouvait m'aider ce serait super ;)
Merci!
