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
16484
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 mai 2022
1 633
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
16484
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 mai 2022
1 633
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