Nombre de décimale d'un nombre

Cette fonction permet d'obtenir le nombre de décimale d'une valeur.

L'argument "strField" correspond au nom du champ qui contient le valeur dont on souhaite connaître le nombre de décimales.

Public Function NbDecimal(strField As String) As Long

Dim intCaract As Integer
Dim intStartCaract As Integer

NbDecimal = 0

For intCaract = 1 To Len(strField)
    If Mid(strField, intCaract, 1) = "," Then
        NbDecimal = Len(strField) - intCaract
    End If
Next

End Function

La fonction retournera le nombre de décimales.

Auteur : Jessy SEMPERE