problemas con los decimales

noe
23 de Diciembre del 2004
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

estoy investigando la funcion format pero no se como usarlo si me prodrian dar un ejemplo seria mucho mejor

POR FAVOR CUALQUIER CLASE DE AYUDA SERA BUEN RECIBIDA ANTETODO MUCHAS GRACIAS

tolotoco
23 de Diciembre del 2004
Te paso un ejemplo de como lo hago yo. Ten cuidado con la configuración del teclado y mira cual es el caracter decimal (punto o coma), porque si no le pones el suyo no reconoce los decimales. En mi ejemplo el caracter que se introduce por el teclado numerico es el punto pero el caracter que esta configurado es la coma, por lo tanto lo cambio antes de convertir a single para no perder los decimales.

Dim base As Single
txtB1.Text = txtB1.Text.Replace(".", ",")
txtB2.Text = txtB2.Text.Replace(".", ",")
base = Single.Parse(txtB1.Text) + Single.Parse(txtB2.Text)
txtTotB1B2.Text = Single.Parse(txtB1.Text) + Single.Parse(txtB2.Text) 'base
txtProme.Text = Decimal.Round((base / 365), 2)