|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Datas/Números/Strings)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Verifica se determinado texto só tem letras
|
![](images/box01dirsup.gif) |
|
|
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
|
|
|
|
![](images/hosted.gif)
|