Discussion :

[kroma23]

Salut
je voudrez savoir si il existe une fonction qui me permet de recevoir le premier chiffre apres la virgule
exemple
un chiffre égale a 2,5
je veux recevoir le 5 dans une variable
merci bien

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function Decim(ByVal n As Double) As Byte
 
Decim = Int(10 * n) - 10 * Int(n)
End Function

[Didier Gonard]

Bonjour,

Attention cette fonction posera surement souci si nombre négatif, l'utilisation de l'ABS mettra un frein à ce type de problème..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function Decim(ByVal n As Double) As Byte
 
Decim = Int(10 * Abs(n)) - 10 * Int(Abs(n))
End Function

cordialement,

Didier