Addition des chiffres après la virgule

Résolu
mohalesage Messages postés 162 Statut Membre -  
mohalesage Messages postés 162 Statut Membre -
Salut les Amis,

Je travaille sur le VB6 avec la BD sur MS Access 2003. Je tente d'additionner une série de chiffres à deux décimaux, mais l'application, en sommant cette série de chiffre, ignore tous les décimaux.

Merci pour votre aide

4 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    peut-etre un probleme de definition de variable.
    0
  2. mohalesage Messages postés 162 Statut Membre 1
     
    Bonjour l'Ami

    C'est toujours avec un plaisir que je reçois vos remarques et vos suggestion l'Ami.
    Merci toujours.

    A propos de la définition de mes variables, c'est comme suite :

    Dim A as single
    
    A=Val(TZone1) + Val(TZone2)
    
    TSommeZone= A
    
    TSomme = Format( TSomme, " #,##0.00")


    Avec ce que j'ai écris, le code ne reconnait pas les chiffres après la virgule. Ildonne seulement le total des chiffres réel ( ceux placés devant la virgule )

    A plus
    0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    C'est un probleme ce conversion: attention le separateur decimal saisi dans la textbox doit etre le meme que celui defini dans le panneau de config (. ou , suivant) sinon plantage.

    Dim A As Single

    A = CSng(TZone1) + CSng(TZone2)

    TSommeZone = A

    TSomme = Format(TSomme, " #,##0.00")
    0
  4. mohalesage Messages postés 162 Statut Membre 1
     
    Bonjour l'Ami

    Grâce à votre suggestion, le résultat recherché est obtenu.

    Merci avec mes sincères respects
    0