|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Retornar apenas números
|
 |
|
|
|
Postada em 3/11/2005 por ¨Hennyere¨
Public Function ReturnNumber(Text As String) As String
Dim i As Integer, j As String
For i = 1 To Len(Text)
If Asc(Mid(Text, i, 1)) < 48 Or _
Asc(Mid(Text, i, 1)) > 57 Then
Else
j = j & Mid(Text, i, 1)
End If
ReturnNumber = j
Next
End Function
'Josefh Hennyere
|
|
|
|
|
