USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2020   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página