/ Published in: ASP
Expand |
Embed | Plain Text
function numerico(ByVal numero) dim codigo if isnumeric(numero) Then codigo = clng(0&abs(numero)) Else codigo = 0 End If numerico = codigo end function
You need to login to post a comment.
function numerico(ByVal numero) dim codigo if isnumeric(numero) Then codigo = clng(0&abs(numero)) Else codigo = 0 End If numerico = codigo end function
You need to login to post a comment.