Error en aproximación de deddecimales
Publicado por Hector (110 intervenciones) el 18/10/2018 17:50:27
Hola amigos del foro, tengo un pequeño problema que en la caja del IVA no me aproxima los valores de los decimales ,5, he aqui el código que utilizo, favor de probar con los siguientes valores:
favor de ayudarme please no creo que sea difícil para gente inteligente como Uds., desde ya muchas gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
TXTNETO1 = 916000TXTDEDUCIBLE2 = 225050A= 695750Protected Sub TXTNETO1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TXTNETO1.TextChanged
Dim A, B As IntegerA = Val(TXTNETO1.Text) - Val(TXTDEDUCIBLE2.Text)
TXTSUBTOTAL1.Text = CInt(A)
B = Val(TXTSUBTOTAL1.Text) * 19
Dim Dt_Valor As Double = CInt(B) / 100
TXTIVA1.Text = FormatNumber(Dt_Valor, 2)
TXTIVA1.Text = CInt(TXTIVA1.Text)
TXTTOTAL1.Text = Val(TXTSUBTOTAL1.Text) + Val(TXTIVA1.Text)
TXTTOTAL1.Text = CInt(TXTTOTAL1.Text)
TXTNETO1.Enabled = False
Dim script As String = "alert('Ud. esta en condiciones de Grabar o Modificar');"
ScriptManager.RegisterStartupScript(Me, GetType(Page), "Ud. esta en condiciones de Grabar o Modificar", script, True)
End Sub
Valora esta pregunta
0