Visual Basic - Calculos

Life is soft - evento anual de software empresarial
   
Vista:

Calculos

Publicado por hernan (34 intervenciones) el 07/12/2009 08:44:47
Hola a todos. Gracias por la ayuda hasta este momento...
Estoy cerca de terminar mi programa..
Ahora lo que me detiene son 2 cosas:

1:valor1 = CDbl(Txtmontocredito.Text) * Val(Cbointeres.Text) / 100
valor2 = CDbl(Txtmontocredito.Text) / Cbopmeses.Text + valor1
Txtmontocuota.Text = Format(valor2, "currency")
diasvenc1 = Val(Dtfpago) - Val(Dtfvencimiento)
intpuni1 = Val(Cbopunitorio.Text) / 100
punitorio1 = CDbl(Txtmontocuota.Text) * intpuni1 * diasvenc1 / 36500
mcuotap1 = CDbl(Txtmontocuota.Text) + punitorio1
Txtmontocuota.Text = Format(mcuotap1, "currency")
valor3 = CDbl(Txtmontocuota.Text) * Txtcuotasvencidas.Text
Txtmontototal.Text = Format(valor3, "currency")
Txtmontocredito.Text = Format(Txtmontocredito, "currency")
Son unos calculos mas un par de formatos, y no me da lo que me tiene q dar...
Me numero entero, o si me da numero con formato me da cualquiera jej.
y
2: Yo en los formularios tengo distintas validaciones... Y si hago click en el boton cancelar para anular la carga por si se arrepiente el usuario, y despues apreto en el boton volver o cierro el formulario me da un error. O directamente apreto en cancelar y me salta las validaciones q hice y no me deja seguir...

Desde ya gracias
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
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Agenda
- Obtener Password Access97
- Arbol HTML

RE:Calculos

Publicado por Christian (666 intervenciones) el 08/12/2009 05:08:16
Consejo no hagas calculos sobre cajas de textos osea por ejem

text3 = text1 * text2 (visual basic patina en ciertos casos y devuelve cualquier cosa)

lo que te recomiendo es que declares las variables por ejemplo

dim valor1 as integer
dim valor2 as integer
dim valor3 as integer

valor3=valor1 * valor2

vos usa el tipo de varible que te haga falta

y despues los mostra con el formato que quieras.

text1.text=FormatCurrency(Valor3,2) por ejemplo.

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

RE:Calculos

Publicado por hernan (34 intervenciones) el 08/12/2009 09:32:04
Ok gracias por la respuesta.....
Me surge otra duda.. las tengo todas las variables esas declaradas como string y a la hora del calculo las pongo en val(variable). porque el integer es para numeros enteros sin decimales si no estoy loco....jeje
Pero en esta linea si la dejo asi me hace esto
Txtmontocuota.Text = nuevomonto + nuevovalor
ej: 11587 190=115.87 + 1.90
Y si pongo asi
Txtmontocuota.Text = val(nuevomonto) + val(nuevovalor)
el resultado me da 116
Y el total tendria que ser 117.77
Obviamente ese es un ejemplo...
Bueno desde ya muchas gracias por tu respuesta
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