AYUDA CON LOS DECIMALES
Publicado por NOE (2 intervenciones) el 24/12/2004 17:52:43
hola amigos programadores le contare mi problema lo que pasa es que estoy asiento un sistema de facturacion pero tengo problemas con los decimas para repondear los decimales estoy trabajando con ROUND =2(EN 2 DECIMALES) LES VOY A DAR UN EJEMPLO EN NUMEROS PARA QUE SE ENTIENDA MEJOR
396 * 019 =75.24 (EL IGV SERIA 75.24) (SUB TOTAL= 396)
PERO AHORA BIENE EL PROBLEMA EN EL TOTAL = 471.24
LOS 2 DECIMALES EN EL TOTAL NO SE MUESTRAN EN MI SISTEMA ME SALE 471 QUE HAGO
mi algoritmo es la siguente
Dim Cantidad As Integer
Dim Subtotal As Double
Dim Total As Double
Dim Igv As Double
Dim Precio As Double
Cantidad = Val(txtcantidad)
Precio = Val(txtprecio)
Subtotal = round ((txtcantidad * txtprecio),2)
Igv = round((Subtotal * 0.19),2)
Total = Round((Subtotal + Igv), 2)
estoy investigando la funcion format pero no se como usarlo si me prodrian dar un ejemplo sobre donde poner la funcion format en este sistemamita
POR FAVOR CUALQUIER CLASE DE AYUDA SERA BUEN RECIBIDA ANTETODO MUCHAS GRACIAS
396 * 019 =75.24 (EL IGV SERIA 75.24) (SUB TOTAL= 396)
PERO AHORA BIENE EL PROBLEMA EN EL TOTAL = 471.24
LOS 2 DECIMALES EN EL TOTAL NO SE MUESTRAN EN MI SISTEMA ME SALE 471 QUE HAGO
mi algoritmo es la siguente
Dim Cantidad As Integer
Dim Subtotal As Double
Dim Total As Double
Dim Igv As Double
Dim Precio As Double
Cantidad = Val(txtcantidad)
Precio = Val(txtprecio)
Subtotal = round ((txtcantidad * txtprecio),2)
Igv = round((Subtotal * 0.19),2)
Total = Round((Subtotal + Igv), 2)
estoy investigando la funcion format pero no se como usarlo si me prodrian dar un ejemplo sobre donde poner la funcion format en este sistemamita
POR FAVOR CUALQUIER CLASE DE AYUDA SERA BUEN RECIBIDA ANTETODO MUCHAS GRACIAS
Valora esta pregunta


0