Numerico Muy Grande en Parametro de Funcion
Publicado por leo (18 intervenciones) el 31/01/2003 23:46:54
Hola amigos Ojala me puedan ayudar.
mi problema es el siguiente, estoy pasando el valor de una caja de texto como parámetro a una función el problema es que este posee un numero el cual es demasiado grande 9.999.999.999 por lo que la función me da un error, definí como el valor de entrada a la función como long pero tampoco funciono. Además les comento que con valores mas pequeños no hay problema. Aquí va el código:
Function Validar_ValorPeso()
On Error GoTo error
Validar_ValorPeso = False
Valida_Numerico_Pesos (Bienes.Txt_ValorPeso) ‘ aquí da el problema, función abajo
.
.
End Function
Function Valida_Numerico_Pesos(dato As Long) As Boolean
Dim pos As Integer
Dim largo As Long
End Function
ojala puedan ayudarme
gracias
mi problema es el siguiente, estoy pasando el valor de una caja de texto como parámetro a una función el problema es que este posee un numero el cual es demasiado grande 9.999.999.999 por lo que la función me da un error, definí como el valor de entrada a la función como long pero tampoco funciono. Además les comento que con valores mas pequeños no hay problema. Aquí va el código:
Function Validar_ValorPeso()
On Error GoTo error
Validar_ValorPeso = False
Valida_Numerico_Pesos (Bienes.Txt_ValorPeso) ‘ aquí da el problema, función abajo
.
.
End Function
Function Valida_Numerico_Pesos(dato As Long) As Boolean
Dim pos As Integer
Dim largo As Long
End Function
ojala puedan ayudarme
gracias
Valora esta pregunta


0