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

Vas voir du coté de la fonction DateDiff()

Ce petit exemple donne le nombre de jours entre deux dates.
(ici, le 1er Mars et aujourd'hui)
 
  Dim Date1 As Date
  Dim Date2 As Date
  Dim nbJours As Integer
 
  Date1 = CDate("01/03/2002" )
  Date2 = Now
 
  nbJours = DateDiff("d", Date1, Date2)
 
-> nbJours contient le nombre de jours
 
 
PS: C koi ce smiley nur ?

Donc dans ton programme ca doit donner qqc comme ca :
 
DatePeriodeRefFin = CDate("21/12/2002" )
 
TpsDeW = DateDiff("d", CDate( Trim(Str(Liste_jours.ListIndex)) + "/" + Trim(Str(Liste_mois.ListIndex)) + "/" + Trim(Str(anneeCalcul)) ) , DatePeriodeRefFin)
 
Et pour les dates, met des '/', pas des '.' ou des '-'

Merci bcp ...