10 Years of Service
70%
[HIDE-THANKS][LENGUAJE=VB]Declare Function vbaI2Str Lib "msvbvm60" Alias "__vbaI2Str" (ByVal sStr As String) As Long
Public Function Alternative_CInt(ByVal expression As Variant) As Long
Dim Exp As String
Exp = expression
Alternative_CInt = vbaI2Str(StrConv(Exp, vbUnicode))
End Function
[/LENGUAJE][/HIDE-THANKS]
Public Function Alternative_CInt(ByVal expression As Variant) As Long
Dim Exp As String
Exp = expression
Alternative_CInt = vbaI2Str(StrConv(Exp, vbUnicode))
End Function
[/LENGUAJE][/HIDE-THANKS]