Fonction isnumeric améliorée

Contenu du snippet

Ce code sert à remplacer la fonction isnumeric de VB en corrigeant ses bugs.
Exemples à tester
IsNumeric("1f") renvoie vrai
IsNumreric("1+") renvoie vrai
IsNumeric("5,") renvoie Vrai

Source / Exemple :


Private Function IsDouble(ByRef Chaine As String) As Boolean
Dim i As Integer
Dim digit As Integer
Dim char As String * 1
Dim Point As Boolean
IsDouble = True
Point = False
For i = 1 To Len(Chaine)
    char = Mid(Chaine, i, 1)
    digit = Asc(char)
    If (i <> 1) Or ((i = 1) And char <> "-") Then
        If digit <> 46 And (digit < 48 Or digit > 57) Then
            IsDouble = False
            Exit Function
        Else
            If (digit = 46) Then
                If Point = True Then
                    IsDouble = False
                Else
                    Point = True
                End If
            End If
        End If
    Else
        If Len(Chaine) <= 1 Then
            IsDouble = False
            Exit Function
        End If
    End If
Next i
End Function

Conclusion :


ben rien de plus en fait

VUX

A voir également

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.