|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Validações)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Retornar apenas números
|
![](images/box01dirsup.gif) |
|
|
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
|
|
|
|
![](images/hosted.gif)
|