Visual Basic - AYUDA CON RESTA DE DECIMALES EN VB6

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

AYUDA CON RESTA DE DECIMALES EN VB6

Publicado por Alejandro (11 intervenciones) el 03/01/2014 17:36:41
Que tal,

Estoy teniendo problemas con una resta y multiplicación de números....

les anexo mi formula .... espero y me puedan ayudar. estos son mis problemas:
- en donde "A" me funciona pero x ejemplo el resultado deberia ser 18.569 entonces debería salir en la pantalla $18.57 ya que sube al inmediato superior pero solo me sale "$18.56"
- en "D" quiero que me reste dos números con decimales 12.85 - 2.50 me debería salir 12.50 y me sale 12.00


a = Format(Val(TOTAL * 12) / 100, "0.00")
b.Text = CDbl(a.Text) + CDbl(TOTAL.Text)
b.Text = Format(b.Text, "##.00")
d = Val(b.Text) - Val(c.Text)
d.Text = Format(d.Text, "##.00")

saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

AYUDA CON RESTA DE DECIMALES EN VB6

Publicado por Pedro Luis (56 intervenciones) el 04/01/2014 14:52:09
Prueba con esto
a = Format(total * 12 / 100, "0.00")
b.Text = CDbl(a.Text) + CDbl(total.Text)
b.Text = Format(b.Text, "##.00")
d = b.Text - c.Text
d.Text = Format(d.Text, "##.00")
El Val no reconoce los puntos o las comas y te da solo los enteros, puedes tomar los textos como numeros siempre sean correctos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

AYUDA CON RESTA DE DECIMALES EN VB6

Publicado por Alejandro (11 intervenciones) el 04/01/2014 20:53:32
Gracias me sirvio mucho me podrias ayudar si quiero:
si el text "C" esta vacio entonces el Text "D" es igual al text "B"
puse el siguiente codigo pero me sale error:

If c = "" Then d = b.Text
End If
d = b.Text - c.Text
d.Text = Format(d.Text, "##.00")

SALUDOS, GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

AYUDA CON RESTA DE DECIMALES EN VB6

Publicado por pedro Luis (56 intervenciones) el 05/01/2014 13:35:50
En esta linea d = b.Text - c.Text, dara error porque c es igual a "", y no se puede restar a un numero un alfabetico
Esto otro podria resultar
If c = "" Then
d = b.Text
else
d = b.Text - c.Text
d.Text = Format(d.Text, "##.00")
endif
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

AYUDA CON RESTA DE DECIMALES EN VB6

Publicado por Alejandro (11 intervenciones) el 06/01/2014 01:57:53
Muchas gracias me sirvió el código a la perfección
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar