Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3853 connectés 

 


Dernière réponse
Sujet : Pb soustraction en VB6
TheGo Merci bcp ...

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse


[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 

Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
TheGo Merci bcp ...
spark 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 '-'
spark 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 ?
nur

spark a écrit a écrit :

Vas voir du coté de la fonction DateDiff()  



:heink:

spark Vas voir du coté de la fonction DateDiff()
TheGo 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

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)