Déterminé ci une chaine ne contient que des chiffres

Commenter

Contenu du snippet

voici un exemple :
if isnumber(text1.text)=true then
...
end if

sa permet juste de vérifié si une chaine contient juste des chiffres. Si on ajoute true à isportnumber, sa vérifie si le port n'est pas supérieur à 65000 et qu'il n'y a pas de "-"

Source / Exemple : 


Function isnumber(str As String, Optional isportnumber As Boolean) As Boolean
Dim car As String, non As Boolean, check As Long
non = True
For i = 1 To Len(str)
car = Mid$(str, i, 1)
If car = "1" Or car = "2" Or car = "3" Or car = "4" Or car = "5" Or car = "6" Or car = "7" Or car = "8" Or car = "9" Or car = "0" Then
Else
If car = "-" Then
If isportnumber = True Then
isnumber = False
Exit Function
End If
Else
non = False
End If
End If
Next
isnumber = non
If isportnumber = False Then Exit Function
check = CLng(str)
If check >= 65000 + 1 Then
isnumber = False
End If
End Function

Conclusion :


ca peut etre pratique pour éviter des erreurs

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (gabchampagne)