IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Access Discussion :

nombre de chiffres après virgule erroné avec chiffre 0 [AC-2007]


Sujet :

Access

  1. #1
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Décembre 2004
    Messages
    124
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Décembre 2004
    Messages : 124
    Par défaut nombre de chiffres après virgule erroné avec chiffre 0
    Bonjour,
    Reprenant ce post , J'ai fais ceci:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    Const conPI = 3.14159265359
    Dim eVol1 As String
    Dim dVol1 As String
    Dim MonVol1 As Double
     
        MonVol1 = (Me.txtlong1 * Me.txtdiam1 * Me.txtdiam1 * conPI / 4000000)
        eVol1 = Int(MonVol1)
        dVol1 = (MonVol1 - eVol1)
        Me.EntVo1 = eVol1
        Me.DecVol1 = Left(dVol1, 5)
        Me.txtVol1 = CInt(Me.EntVo1) + CDbl(Me.DecVol1)
    Il se trouve que lorsque la partie décimale dVol1 à pour 1er chiffre après la virgule un chiffre différent de 0; il n'y a aucun soucis.
    Par contre si le 1er chiffre après la virgule est un 0; mon résultat Me.txtVol1 = CInt(Me.EntVo1) + CDbl(Me.DecVol1) devient erroné.
    Merci de m'aider à résoudre ce problème

  2. #2
    Modérateur

    Homme Profil pro
    Inscrit en
    Octobre 2005
    Messages
    15 407
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : Octobre 2005
    Messages : 15 407
    Par défaut
    Bonjour.

    Bizarre ton truc.

    Personnellement je ferai ceci pour tronquer le nombre à 3 décimales :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    dim volTexte as string:volTexte=format(MonVol1,"0.0000") 'Arrondi à 4 décimales
    volTexte=left(voltexte, len(voltexte)-1) 'Coupe à 3 décimales
    Me.txtVol1=voltexte
    A+
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

  3. #3
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Décembre 2004
    Messages
    124
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Décembre 2004
    Messages : 124
    Par défaut
    Bonjour,
    Merci marot_r.
    Effectivement ton code est beaucoup plus simple et ça marche.
    Merci encore

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 13/09/2010, 11h54
  2. Réponses: 3
    Dernier message: 30/12/2008, 11h17
  3. Transfert d'un numérique avec chiffres apres la virgule
    Par Chonchon dans le forum Bases de données
    Réponses: 7
    Dernier message: 16/01/2008, 00h55
  4. Comment je peut contrôler le nombre de chiffre après virgule
    Par soror dans le forum Bases de données
    Réponses: 8
    Dernier message: 06/08/2007, 15h38
  5. Réponses: 9
    Dernier message: 30/07/2007, 12h16

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo