les retenues

eric ef fournier
comment puis je extraire les retenues d'une addition
exemple 26+26=42
coment avoir 6+6=12
12 =(1)2 pour afficher 1 dans untext box
merci

A celà plusieurs solutions :


- soit il n'y a que deux chiffres à ajouter, et alors, tu testes ceci :

if(chiffre1+chiffre2>9) Then
retenue=1
Else
retenue=0
End If

- soit il y a plusieurs chiffres à ajouter, et dans ce cas, çà ressemble à ceci :

Dim chaine as String
chaine=cstr(sommeDesChiffres)
retenue=val(left(chaine,len(chaine-1)))

En effet, si la somme de tes chiffres vaut 123, la retenue est 12.


Manu

CORRECTIF :

Dim chaine as string
If sommeDesChiffres > 9 Then
chaine=Cstr(sommeDesChiffres)
retenue=val(left(chaine,len(chaine)-1))
else
retenue=0
End if


J'avais en plus un peu merdé dans mes parenthèses .. sorry

Manu

Je ne sais pas si c'est utile de passer par les string !
(en gardant les notations de econs, et en généralisant la moindre) :

base = 10
chiffre = (sommeDesChiffres) mod base
retenue = (sommeDesChiffres) \ base

c'est un peu plus simple, non ? :)

VB Lover

ah oui effectivement. :o)

Là, il faut vraiment que j'aillle me coucher ...


Manu

eric ef fournier
merci a tous