Problemas con redondear
Publicado por Ricardo (4 intervenciones) el 31/10/2014 15:26:58
Buenos días,
Por favor podrían ayudarme?, tengo problemas con el redondeo en VB.NET, estoy usando una función para redondear, pero como puede verse en el ejemplo, no funciona bien. Porque se produce este error?
Por favor podrían ayudarme?, tengo problemas con el redondeo en VB.NET, estoy usando una función para redondear, pero como puede verse en el ejemplo, no funciona bien. Porque se produce este error?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim t1 As Double
Dim t2 As Double
Dim x As Double
t1 = 10.1
t2 = 3.25
x = t1 * t2 'este resultado da 32.825
Debug.Print("mal calculado " & Redondeo(x, 2))
Debug.Print("bien calculado " & Redondeo(32.825, 2))
End Sub
Private Function Redondeo(ByVal Numero, ByVal Decimales)
Redondeo = Int(Numero * 10 ^ Decimales + 1 / 2) / 10 ^ Decimales
End Function
End Class
Valora esta pregunta
0
