|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Verifica se determinado texto só tem letras
|
 |
|
|
|
Postada em 5/11/2003 por Brexuega
----------------------------------------------------------------------
Public Function IsString(ByVal Str As String) As Boolean
Dim i As Integer
Dim tmpStr As String
For i = 1 To Len(Str)
tmpStr = UCase(Mid(Str, i, 1))
If Asc(tmpStr) < 65 Or Asc(tmpStr) > 90 Then
IsString = False
Exit Function
End If
Next
IsString = True
End Function
----------------------------------------------------------------------
¥ ADS
|
|
|
|
|
