detalle co9n decimale

[gasuton]

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.

[erbuson]

Hola, una de las opciones que tienes es utilizar la funcion Round para redondear al numero de decimales que quieras

Por ejemplo: Round(Total - iva, 2)

Por otra parte, yo lo recortaría en el calculo de IVA, para trabajar ya sólo con dos decimales.

iva = Round(Total - (Total / 1.16), 2)

Saludos

[gasuton]

Iniciado por erbuson

Hola, una de las opciones que tienes es utilizar la funcion Round para redondear al numero de decimales que quieras

Por ejemplo: Round(Total - iva, 2)

Por otra parte, yo lo recortaría en el calculo de IVA, para trabajar ya sólo con dos decimales.

iva = Round(Total - (Total / 1.16), 2)

Saludos

Buenisimo sobre todo la idea de trabajar con el iva para que ya quede todo con 2 decimales.

Muchisimas gracias.