Addition des chiffres après la virgule

Résolu/Fermé
mohalesage Messages postés 147 Date d'inscription mercredi 20 février 2013 Statut Membre Dernière intervention 31 décembre 2015 - 24 mai 2013 à 17:10
mohalesage Messages postés 147 Date d'inscription mercredi 20 février 2013 Statut Membre Dernière intervention 31 décembre 2015 - 26 mai 2013 à 01:11
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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 mai 2013 à 18:06
Bonjour,

peut-etre un probleme de definition de variable.
0
mohalesage Messages postés 147 Date d'inscription mercredi 20 février 2013 Statut Membre Dernière intervention 31 décembre 2015 1
Modifié par mohalesage le 24/05/2013 à 21:39
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
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
25 mai 2013 à 08:07
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
mohalesage Messages postés 147 Date d'inscription mercredi 20 février 2013 Statut Membre Dernière intervention 31 décembre 2015 1
26 mai 2013 à 01:11
Bonjour l'Ami

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

Merci avec mes sincères respects
0