NumToString
Public Function CInt(IntValue as Variant) as Integer If IsNumeric(IntValue) Then MyCInt = CInt(IntValue) Else MyCInt = 0 End If End Function
Public Function CInt(IntValue as Variant) as Integer
If IsNumeric(IntValue) Then
MyCInt = CInt(IntValue)
Else
MyCInt = 0
End If
End Function
(numtostring.html)- by Paolo Puglisi - Modifica del 25/3/2019