Pb soustraction en VB6

Pb soustraction en VB6 - Programmation

Marsh Posté le 17-03-2002 à 16:58:35    

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

Reply

Marsh Posté le 17-03-2002 à 16:58:35   

Reply

Marsh Posté le 17-03-2002 à 17:07:04    

Vas voir du coté de la fonction DateDiff()

Reply

Marsh Posté le 17-03-2002 à 18:36:46    

spark a écrit a écrit :

Vas voir du coté de la fonction DateDiff()  



:heink:

Reply

Marsh Posté le 17-03-2002 à 21:24:31    

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 ?

Reply

Marsh Posté le 17-03-2002 à 21:28:53    

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 '-'

Reply

Marsh Posté le 17-03-2002 à 21:33:14    

Merci bcp ...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed