28/10/2011, 05:53
|
| | | Fecha de Ingreso: octubre-2011
Mensajes: 2
Antigüedad: 12 años, 6 meses Puntos: 0 | |
| Error 6 desbordamiento en visual basic
Hola señores,
Yo soy nuevo en esto, ando programando en vb, y siempre me sale el mismo error, el error 6 sobre desbordamiento. El programa que tengo es el siguiente:
Sub macro1()
Load UserForm1
UserForm1.Show
End Sub
Function calculo(x As Double, y As Double, z As Double) As Double
Application.ScreenUpdating = False
Dim k As Double
Dim k1 As Double
Dim k2 As Double
Dim h As Double
k = 60000 / 3.1415
k1 = k * x
k2 = y * z
calculo = k1 / k2
Application.ScreenUpdating = True
End Function
Function rendimiento(x As Double, y As Double) As Double
Application.ScreenUpdating = False
Dim x1 As Double
Dim x2 As Double
x1 = 3.1415 * x * y
x2 = x1 / 60
rendimiento = Round(x2, [1])
Application.ScreenUpdating = True
End Function
El error me lo marca en "calculo = k1 / k2", os agradeceria que me aportaseis alguna solucion, porque ya no se que hacer.
Muchas gracias |