Montant en lettres avec 00 centimes

Question

Bonjour à toutes et à tous,

je tourne en rond depuis quelques temps et j'ai pas encore réussi à convertir un chiffre avec deux zéro après le séparateur décimal :
ex: 123.00 dinars.
je veux le convertir en : cent vingt trois dinars et zéro(ou double zéro) centimes.

j'ai trouvé sur le net des sources qui gèrent des chiffres avec la virgule mais pas avec deux 00 comme centimes.

merci d'éventuelle aide.


NABIL1974

pierrotk10d · Answer

Bonjour,
Dans ta routine de décomposition stoppes le traitement à la virgule pour les lettres et ensuite prends les deux chiffres de la partie décimale et concatènes les aux lettres
123,00
Cent vingt trois dinars et 00 centimes

pierrot

cs_bminfo · Answer

double clique sur la forme qui contient les nombre des montant ensuite entrer le code suivant suivant le nom du champ de votre table par exemple ici ma table contient le champ 'Montant';   
TFloatField(Table1.fieldByName('Montant')).DisplayFormat:='#,##0.00'
*********BMINFO A VOTRE SERVICE*********

solilog · Answer

Salut nabil351974

J'ai écrit une petite DLL avec 2 fonctions qui retourne un nombre en chaine:
12235.99 retournera douze mille deux cent trente-cinq &devise(s) &et quatre-vingt dix-neuf &cent(s).
Il recoit 4 parametres:
  - Nbr : double
  - Unite, et, centime : shortstring;
MaChaine := FloatToText(123456.33, 'euro', 'et', 'cent');
Si et et cent = '' pas de décimale.
Il respecte la grammaire française, les '-', les 's' à milliard, million, unité et centimes si plus d'1, ... Suite à ton post je ne suis amusé ce week-end, j'avais rien à faire. On passe son temps comme on peut.

Ca t'int2resse ?
Salut.
Solilog

nabil351974 · Answer

bonjour à tous,
je tiens à vous remercier tous pour vos réponses.
Solilog oui ça m'intéresse mon cher.Tu peux poster ça !
merci d'avance.


NABIL1974

Montant en lettres avec 00 centimes

4 réponses

Votre réponse