probleme avec VB

Statut
N'est pas ouverte pour d'autres réponses.
T

TheFenix

ex membre
slt tt monde

j'ai probleme en Vb donc je doit faire en formulaire en Access et ca ressemble à ca :http://members.lycos.nl/ludox/

le but de ce formulaire est qu'il doit calculer combien de jour il reste jusqu'au 01/01/2010

voici le code:
Code: 
Private Sub cmdBereken_Click()

'declareren variabelen
    Dim intDagen As Integer
       
    
'invoer
    intDagen = CInt(txtDagen)
    
'verwerking
    intDagen = #1/1/2010# - Now()
    
'invoer
    txtDagen = Format(intDagen, "# ##0")
A mon avis mon code il est faut mais je ne sais pas comment le resoudre c'est pour que je vous demande de m'aider

merci d'avance
 
H

Hacko

Elite
avec la fonction datediff, il n'y a pas moyen ?
 
1er
OP
T

TheFenix

ex membre
je suis debutant donc

tu pourrais m'expliquer la fonction datediff
 
Bingo

Bingo

Beer Addict
intJoursRestants = DateDiff("d",Now(),#1/1/2010#)
Ca devrait le faire.
 
1er
OP
T

TheFenix

ex membre
donc le code il devient comme ca:

Code: 
'declareren variabelen 
    Dim intDagen As Integer 
        
    
'invoer 
    intDagen = CInt(txtDagen) 
    
'verwerking 
    intDagen = DateDiff("d",Now(),#1/1/2010#) 
    
'invoer 
    txtDagen = Format(intDagen, "# ##0")
 
1er
OP
T

TheFenix

ex membre
le probleme est qu'il y as une faute a cette ligne
Code: 
intDagen = CInt(txtDagen)
pouvez-vous m'expliquer
 
1er
OP
T

TheFenix

ex membre
svp aider moi

j'en ai besoin
 
MoTh

MoTh

PaW
Que m'est tu dans txtDagen ?

S'il y a un problème dans cint(txtDagen) c'est tout simplement que la valeur de txtDagen n'est pas un entier.
 
MoTh

MoTh

PaW
Bon en gros si tu mets une date dans txtDagen le code devrait ressembler à ca.
J'ai testé ca fonctionne

Code: 
    Dim dtDagen As Date
    
    dtDagen = CDate(txtDagen)
    
    intDagen = DateDiff("d", dtDagen, "01/01/2010")
    
    MsgBox intDagen
Et voilà
 
La Poubelle

La Poubelle

Pou'r allé Danché
MoTh a dit:
Bon en gros si tu mets une date dans txtDagen le code devrait ressembler à ca.
J'ai testé ca fonctionne

Code: 
    Dim dtDagen As Date
    
    dtDagen = CDate(txtDagen)
    
    intDagen = DateDiff("d", dtDagen, "01/01/2010")
    
    MsgBox intDagen
Et voilà
Cliquez pour agrandir...
Il faudrait aussi formater la date pour être sur que ça ne pose pas de problème.

(que de mauvais souvenir le formatage de date :p )
 
MoTh

MoTh

PaW
Ben ici étant donné que la date doit etre rentrée dans un texte box manuellement, il ne devrait pas y avoir de problème.

Mais au cas ou tu peux soit :

Formater la date comme ceci : dtDagen = CDate(Format(txtDagen,"DD/MM/YYYY")

Soit pour etre sur que c'est bien une date tu test avant.

If not ISDate(txtDagen) then
Msgbox "Entre une date valide abrutis :)"

Le formatage de date est chiant lorsque tu la récupère d'une DB étant donné que le format peut etre différents.
Pour contrecarré ca, je force le regional settings des dates au format que j'utilise.

Voilà tout
 
Statut
N'est pas ouverte pour d'autres réponses.
Haut