Recherche:

Bonjour Serge,

ce n'est pas inutile, car la fonction issue de la FAQ que j'ai modifié traite 2 cas :

pour 5,03 :

s'il y a un symbole monétaire (exemple €) ==> cinq euros et 3 centimes...

Bon, voici la fonction corrigée :


Function NombreEnLettres(Valeur : Real; SM : String = '' ; SSM : String = '' ; France : Boolean = True ) : string;
// Conversion d'un réel à 2 décimales en...

Oui, c'est vrai.
il faut faire un cas particulier si Frac < 10.

A ajouter au traitement ...

si j'ai le temps je le ferai


A+
Charly

Bonjour,

voici la fonction de la FAQ modifiée pour prendre un réel à la place d'un entier :


Function NombreEnLettres(Valeur : Real; SM : String = '' ; France : Boolean = True ) : string;
//...

Regarde dans la FAQ, tu as une fonction qui semble bien meilleure et qui traite les nombres négatifs :

FAQ Delphi

je vais tester ...

A+
Charly

Bonjour,
petit soucis dans ta fonction de conversion : elle ne suit pas les règles de l'orthographe pour cent et vingt. Par exemple, elle renvoie cinq cent et non cinq cents ou quatre-vingt et non...

Bonjour,

sinon voici une version de ta fonction qui traite aussi les nombres négatifs


{ ======================================================================== }
Function...