pb calcul algorithme

Bonjour,

J'ai un petit pb à résoudre :

exemple : 102540900,56
Comment faire pour éliminer les 0 à gauche de la virgule ? Autrement dit

- je prends la partie entière du nombre
- j'enève les 0 à droite jusqu'à ce qu'il n'y en ait plus ?

Je sèche ... Merci pour votre aide.

A+

Code:

---

1 2 3 4 5 6 7 8

Function pas0(ByVal x As Variant) As Long x = Int(x) Do Until Right(x, 1) <> 0 x = Left(x, Len(x) - 1) Loop pas0 = CLng(x) End Function

---

merci...une question, car je n'arrive pas à expliter ce code :

dans mon formulaire de saisie, un champ "Nbsaisi" reçoit le nombre à exploiter
Le résultat du traitement se place dans le champ "code" du même formulaire

Mon problème : comment je dis à ce code de prendre la valeur de NbSaisi, de la traiter, de la mettre dans "code"

Merci encore

a+

Je viens de trouver mon erreur : juste un pb de nom de champ !
Merci encore.