Posted By

nicolaspar on 12/19/06


Tagged


Versions (?)

ASP - Funcion Numerico


 / Published in: ASP
 

  1. function numerico(ByVal numero)
  2. dim codigo
  3. if isnumeric(numero) Then
  4. codigo = clng(0&abs(numero))
  5. Else
  6. codigo = 0
  7. End If
  8. numerico = codigo
  9. end function

Report this snippet  

You need to login to post a comment.