Soustraction en VB6

Résolu
cs_tolt Messages postés 270 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 4 avril 2019 - 3 avril 2008 à 18:54
cs_tolt Messages postés 270 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 4 avril 2019 - 3 avril 2008 à 20:52
Bonsoir,

Question bête mais bon.
J'ai une variable de type double.
Je fais ce calcul --->>> restdu = 141,02 - 141,00 mais j'ai toujour zero dans restdu alors qu'il devrait me mettre
0,02 pourquoi ?

Merci

tolt

4 réponses

jmfmarques Messages postés 7668 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 28
3 avril 2008 à 20:46
Cdec également, bien sûr....

Mais l'idéalm est de toujours travailler avec le point comme séparateur décimal, y ciompris si on permet la saisie avec une virgule. Rien n'est plus simple que d'utiliser systématiquement un Replace puis de travailler avec la transformation et Val


Car :


  Dim toto As Single
  toto = Val("141.02") - Val("141.00")
  MsgBox toto

sera toujours bon


 
3
jmfmarques Messages postés 7668 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 28
3 avril 2008 à 20:18
Bonjour

Parce que si 'lon utilise la virgule comme séparateur décimal, on utilise Ccur ...
essaye donc
Msgbox ccur("141,02") - ccur("141,00")
0
cs_tolt Messages postés 270 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 4 avril 2019
3 avril 2008 à 20:35
Ou Cdec non ???? Car je viens de le faire avec Cdec etça marche.
Merci de me répondre.

tolt
0
cs_tolt Messages postés 270 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 4 avril 2019
3 avril 2008 à 20:52
OK Merci du conseil et bonne soirée.Vraiment super ce site.
Félicitation à tous d'un petit retraité qui n'est pas informaticien mais qui s'amuse bien en VB6.
Bien Amicalement

tolt
0