decimale

Question

Salut j'essaye ceci
total = Format(Val(Mid(Form3.List3.List(a), 37, 8)), "00000.000") - Format((Val(Mid(Form3.List3.List(a), 37, 8)) / 100) * 21, "00000.000")
ci dessus j'ai un chiffre de 1000.25 - (1000.25/100)*21 
j'ai un resulta de 1000.25 - 210.0525 = 790.1975

mais quand je 'limprime avec ceci
Printer.Print Format(total, "00000.000")

j'ai uniquement que 790.000
Comme c'est pour une facturation il me faut absolument les centines
Avez vous une idee
Merci d'avance

Ps: je suis en vb5

Gobillot · Answer

sûrement un problème de virgule ...!

si Form3.List3.List(a) contient "1000,25" c'est pas bon

Daniel

petiflamand · Answer

pourtant il y a dans ma ligne le chiffre "1000.25"
Sur et sertaint mais quand il sort sur l'imprimante il y a une ","
Comprend rien
???

Gobillot · Answer

en VB6 j'ai le bon résultat avec les décimales.
peut être que VB5 réagit différemment avec les calculs en String.
essayes d'enlever Format dans le calcul de Total.

total = Val(Mid(Form3.List3.List(a), 37, 8)) - Val(Mid(Form3.List3.List(a), 37, 8)) / 100 * 21

Daniel

petiflamand · Answer

Ok Merci
j'ai trouver 
uniquement a ajoutent sgl a total

donc 
sgltotal = Val(Mid(Form3.List3.List(a), 37, 8)) - Val(Mid(Form3.List3.List(a), 37, 8)) / 100 * 21

et la sa marche

Merci quand meme

cs_labout · Answer

labout
format(nombre,"#0000000.00")

devrait marcher
@+

Decimale

5 réponses

Discussions similaires