probleme avec VB

Discussion dans 'Web, design' créé par TheFenix, 17 Avril 2004.

Statut de la discussion:
Fermée.
  1. Offline
    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
    TheFenix, 17 Avril 2004
    #1
  2. Offline
    Hacko Elite
    avec la fonction datediff, il n'y a pas moyen ?
    Hacko, 17 Avril 2004
    #2
  3. Offline
    TheFenix ex membre
    je suis debutant donc

    tu pourrais m'expliquer la fonction datediff
    TheFenix, 17 Avril 2004
    #3
  4. Offline
    Hacko Elite
  5. Offline
    Bingo Beer Addict
    intJoursRestants = DateDiff("d",Now(),#1/1/2010#)
    Ca devrait le faire.
    Bingo, 17 Avril 2004
    #5
  6. Offline
    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") 
    
    
    TheFenix, 17 Avril 2004
    #6
  7. Offline
    TheFenix ex membre
    le probleme est qu'il y as une faute a cette ligne
    Code:
    intDagen = CInt(txtDagen) 
    pouvez-vous m'expliquer
    TheFenix, 17 Avril 2004
    #7
  8. Offline
    TheFenix ex membre
    svp aider moi

    j'en ai besoin
    TheFenix, 18 Avril 2004
    #8
  9. Offline
    MoTh Elite
    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, 18 Avril 2004
    #9
  10. Offline
    MoTh Elite
    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à
    MoTh, 18 Avril 2004
    #10
  11. Offline
    La Poubelle Elite
    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 )
    La Poubelle, 18 Avril 2004
    #11
  12. Offline
    MoTh Elite
    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
    MoTh, 18 Avril 2004
    #12
Statut de la discussion:
Fermée.