Redondear decimales

[arcangeltigre]

hola, estoy creando un aplicacion para generar facturas y cuando ungreso la cantidad sin iva me aparcen decimales,

txttotal1.Text = Val(txtventa.Text) * Val(txtretirar.Text)
txtneto.Text = Val(txtneto) + Val(txttotal1.Text)
txtiva.Text = Val(txtneto.Text) * 19 / 100
txttotal.Text = Val(txtneto.Text) + Val(txtiva.Text)

en el txtiva me aparecen los decimales y lo que necesito es un codigo para redondear en numeros con decimal a enteros si alguien me puede ayudar se lo agredeseria.

[erbuson]

Hola, lo que necesitas es la funcion Round que te permite redondear una cifra y decirle a cuantos decimales debe truncarla.

De todos modos, cuidado con el Round porque utiliza el denominado redondeo estadístico que no redondea siempre de la misma manera que el conocido redondeo matemático en el que del 0 al 4 es por menor y del 5 al 9 por mayor

En todo caso, puedes crearte en un módulo esta funcion para compartirla en todo el programa, yo la utilizo, no es mia, la baje de un foro, pero me funciona a la perfeccion.

Código vb:

Public Function Redondear(ByVal Cantidad As Currency, Optional Redondeo As Byte = 2) As Currency
  Dim dblPot As Double
  Dim dblF As Double
  If Cantidad < 0 Then dblF = -0.5 Else dblF = 0.5
  dblPot = 10 ^ Redondeo
  Redondear = Fix(Cantidad * dblPot * (1 + 1E-16) + dblF) / dblPot
End Function
 

Saludos

[arcangeltigre]

gracias, amigo

[erbuson]

De nada, cualquier duda, por aqui andaremos.

Saludos