Hola a todos, otra vez molestando, tengo el siguiente detalle con la cantidad de decimales:
tengo una tabla done tengo cargado un producto (es muy simple nombre y precio).
y en mi form donde jalo el producto tengo el codigo para que desde el precio me desgloce el IVA y el subtotal, el problema es que cuando me representa estos valos en mis cajas de texto me los miestra con todos los decimales y yo solo quiero que sea con 2, pero no he logrado hacer esto.
les dejo el codigo que use para lo de los calculos:
Código:
Dim Total, iva, VALOR, NETO As Single
Dim cont As Integer
cont = 0
cont = Adodc2.Recordset.RecordCount
Adodc2.Recordset.MoveFirst
Total = 0
While Not cont = 0
VALOR = Adodc2.Recordset.Fields("total").Value
cont = cont - 1
Total = VALOR + Total
Adodc2.Recordset.MoveNext
Wend
iva = Total - (Total / 1.16)
NETO = Total
Text8.Text = Total - iva
Text9.Text = iva
Text10.Text = NETO
Saludos y gracias.