Pb Soustraction :(

Salut ...
En fait j'essayes de faire une soustration de date pour avoir le nb de jours qu'il y a entre 2 date.
*DatePeriodeRefFin etant une date deja creer et qui marche de la forme "21-12-2002"
*TpsDeW etant un entier pour recuperer le nb de jours qui separe les 2 dates
*les Liste_*.ListIndex etant des entiers venant de ListBox
*TpsDeW = DatePeriodeRefFin - CDate(Str$(Liste_jours.ListIndex) & "." & Str$(Liste_mois.ListIndex) & "." & Str$(anneeCalcul))
Le probleme c que ca ne marche pas, si quelqu'un pouvait m'aider ...
Merci

Salut, peut-être qu'avec la Fonction DateDiff tu pourraît y arriver

DateDebut=CDate(Str$(Liste_jours.ListIndex) & "." & Str$(Liste_mois.ListIndex) & "." & Str$(anneeCalcul))

TpsDew=DateDiff("d", DateDebut,DatePeriodeRefFin)
'"d" veut dire que l'on veut le nombre de jours

Je ne sait pas si ça marche (je n'ai pas testé) mais tu peux essayer quand même, peut être qu'en modifiant certain trucs ça devrait aller

A+
-------------------------------
Réponse au message :
-------------------------------

Salut ...
En fait j'essayes de faire une soustration de date pour avoir le nb de jours qu'il y a entre 2 date.
*DatePeriodeRefFin etant une date deja creer et qui marche de la forme "21-12-2002"
*TpsDeW etant un entier pour recuperer le nb de jours qui separe les 2 dates
*les Liste_*.ListIndex etant des entiers venant de ListBox
*TpsDeW = DatePeriodeRefFin - CDate(Str$(Liste_jours.ListIndex) & "." & Str$(Liste_mois.ListIndex) & "." & Str$(anneeCalcul))
Le probleme c que ca ne marche pas, si quelqu'un pouvait m'aider ...
Merci