multipicar valores text1 y text2
Publicado por wee_bon (5 intervenciones) el 05/10/2006 01:14:06
Hola otra vez yo, tengo un text1, un text2 y un text3 se introducen valores y debe de dar el resultado, ya intente con cdec, cint cdbl, ccur etc y no me da el resultado correcto, por ejemplo:
suponiendo que el numero despues del igual es lo que introduce el usuario
text1.text=100
text2.text=0.0012
text3.text=0.456
operacion:
(text1.text*text2.text)/text3.text
El resultado correcto debe de ser:0.26315 etc
y lo que obtengo es: 2,631578947368
por lo que ese resultado solo me sale (100 *12)/456 osea el visual no me respeta los decimales
¿como le hago? ya me tiene hasta la madre esta cosa.
el codigo que uso es:
Private Sub Command1_Click()
Text4.Text = (Cdbl(Text1.Text) * Cdbl(Text2.Text) )/ Cdbl(Text3.Text)
'y repito ya intente con cdec, cint cdbl, ccur etc y me sigue contemplando valores reales no decimales
End Sub
AYUDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
suponiendo que el numero despues del igual es lo que introduce el usuario
text1.text=100
text2.text=0.0012
text3.text=0.456
operacion:
(text1.text*text2.text)/text3.text
El resultado correcto debe de ser:0.26315 etc
y lo que obtengo es: 2,631578947368
por lo que ese resultado solo me sale (100 *12)/456 osea el visual no me respeta los decimales
¿como le hago? ya me tiene hasta la madre esta cosa.
el codigo que uso es:
Private Sub Command1_Click()
Text4.Text = (Cdbl(Text1.Text) * Cdbl(Text2.Text) )/ Cdbl(Text3.Text)
'y repito ya intente con cdec, cint cdbl, ccur etc y me sigue contemplando valores reales no decimales
End Sub
AYUDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
Valora esta pregunta


0