VB 6.0 Problemas con multiplicar décimales

[The_Pharaoh]

El problema es que no me multiplica con decimales, este es el 2dp programa q hago, por ello no se que hacer con este problema. gracias de antemano

[erbuson]

Comprueba que separador dedimal estas utilizando en las Cajas de Texto ya que si utilizas val, deberias utilizar el punto decimal y no la coma

[The_Pharaoh]

En que parte hago esO?? la verdad no tengo la mas minima idea de como se hace.
Saludos

[erbuson]

Me reefiero a que compruebes que al teclear los valores se teclee 23.14 y no 23,14

Saludos

[The_Pharaoh]

Lo que pasa es que la (,) sale automaticamente
sale 1,5 y no 1.5
como puedo hacer para que salga automaticamente 1.5??

[seba123neo]

podes hacer un simple Replace(), cuando te venga una coma la reemplazas con un punto.

cuales son los textbox ahi ?? me refiero a cual es el text1 , el text2...

saludos.

[assdres]

Pon el código para que podamos ayudarte.

[The_Pharaoh]

están en orden los text

text1 = 525
text2=1
text3=30
text4=1,5
text5=3,15

Todo lo que he hecho en el programa es lo que está allí.
al multiplicar el text4 no toma en cuenta los décimales

[pkj]

Cambia donde pones Val(Text1), o Val(Text3), etc, por:

Val(Replace(Text1,",","."))

a ver si te pita.

Suerte

[The_Pharaoh]

Nada bro, sigue sin multiplicar décimales...

[seba123neo]

hombre, acabo de probar y funciona...

Código vb:

Private Sub Command1_Click()
    MsgBox Val("525") * 0.6 / 100 * Val("1,5") 'Mal
    MsgBox Val("525") * 0.6 / 100 * Val("1.5") 'Bien
End Sub
 

y lo que te dice pkj y tambien yo te dije, es que hagas un Replace() asi si el usuario escribe la "," la reemplaza por el punto , y no hay problema...

saludos.

[pkj]

Si, bueno, si te has limitado a hacer el replace a los text1 y text3 no habrás adelantado nada porque según me fijo ahora los textbox de los decimales son el text4 y text5, pero en fin, una idea si te puedes hacer de lo que iba el asunto.

Por otro lado, el orden en que se van a efectuar las operaciones también tienes que tenerlo en cuenta o te puede salir rana.

Que se dé bien.

[The_Pharaoh]

Eso no afectará, pues los 525 es el sueldo, por lo tanto cambiará siempre, al igual que las horas y minutos.

[The_Pharaoh]

La verdad no entiendo, hice como está arriba, pero eso me limita a solo realizar esa operación, necesito que me quede tal cual está en excel, alli puse las formulas que utilice. disculpen la molestia soy novato.

allí les dejo las imágenes

[seba123neo]

haber...pone tal cual este codigo en el boton...

Código vb:

Text5.Text = FormatNumber(Val(Replace(Text1.Text, ",", ".")) * 0.6 / 100 * Val(Replace(Text4.Text, ",", ".")), 2)
 

[The_Pharaoh]

Muchisimas gracias!! aunque no sale exacto, falla con 1 o 2 centavos.

[maneo07]

Hola Amigo.. Veo que tiene Problemas.. Con Eso.. TE PEDIRIA PARA AYUDARTE que me mande ese mini Proyecto que tenes..
Para verlo completamente..

No es Obligatorio que me lo pases pero Si queres una Mano.. PAsalo a mi Correo [email protected]