Accueil > > > CONVERSION LITTÉRALE D'UN NOMBRE ENTIER OU FLOTTANT
CONVERSION LITTÉRALE D'UN NOMBRE ENTIER OU FLOTTANT
Information sur la source
Description
Affiche en toutes lettres un nombre avec ou sans virgule, avec son unité (monétaire, mesure, etc...). Bien qu'il existe d'autres sources sur le sujet, il m'a paru intéressant de publier la mienne pour plusieurs raisons : - elle gère bien les règles grammaticales concernant les adjectifs numéraux cardinaux tels que définies par le Bescherelle, - elle prend en compte le singulier et le pluriel, - la grandeur des nombres n'est limitée que par l'étendue du type utilisé pour les définir, - elle me semble suffisemment robuste et capable de rendre un réel service, bien qu'elle puisse être grandement améliorée. - c'est moi "que je" l'ai faite... Vous trouverez en prime une fonction perso qui trouve ici son utilité : function StrToFloatDef(S: string; Def: Extended): Extended; Une impression de déjà vu quelque part ??? C'est normal. Cette fonction qui s'applique à un nombre réel, est semblable à la fonction StrToIntDef pour les nombre entiers. Bien que je me réserve d'améliorer tout ça, il me semble que ça peut rendre service en l'état.
Source
- unit Num2Let;
-
- interface
-
- uses Math, SysUtils;
-
- function NumericToLetters(Num: Int64): string; overload;
- function NumericToLetters(Num: Extended; const Sep: string = 'virgule'): string; overload;
-
- implementation
-
- function NumericToLetters(Num: Int64): string;
- const
- N0_19: array[0..19] of string =
- ('zéro','un','deux','trois','quatre','cinq','six','sept','huit','neuf', 'dix',
- 'onze','douze','treize','quatorze','quinze','seize','dix-sept','dix-huit','dix-neuf');
- N20_60: array[2..6] of string =
- ('vingt','trente','quarante','cinquante','soixante');
- Separator: array[Boolean] of string = ('-', ' et ');
- Pluriel: array[Boolean] of string = ('', 's');
- DIX : Int64 = 10;
- CENT : Int64 = 100;
- MILLE : Int64 = 1000;
- MILLION : Int64 = 1000000;
- MILLIARD : Int64 = 1000000000;
- var
- NDizaines, NCentaines, NMilliers, NMillions, NMilliards: Int64;
- begin
- if Num > 999999999 then
- begin
- NMilliards := Num div MILLIARD;
- if Num mod MILLIARD = 0 then
- Result := NumericToLetters(NMilliards)
- + ' milliard'
- + Pluriel[NMilliards > 1]
- else
- Result := NumericToLetters(NMilliards)
- + ' milliard' + Pluriel[NMilliards > 1] + ' '
- + NumericToLetters(Num - (NMilliards) * MILLIARD);
- end
- else
- case Num of
- 0..19: Result := N0_19[Num];
- 20..69:
- begin
- NDizaines := Num div DIX;
- if Num mod DIX = 0 then // if (Num in [20,30,40,50,60]) then
- Result := N20_60[NDizaines]
- else
- Result := N20_60[NDizaines]
- + Separator[Num mod DIX = 1]
- + N0_19[Num - NDizaines * DIX];
- end;
- 70..79: Result := 'soixante' + Separator[Num mod DIX = 1] + N0_19[Num - 60];
- 80: Result := 'quatre-vingts';
- 81..99: Result := 'quatre-vingt-' + N0_19[Num - 80];
- 100: Result := 'cent';
- 101..199: Result := 'cent ' + NumericToLetters(Num - CENT);
- 200..999:
- begin
- NCentaines := Num div CENT;
- if Num mod CENT = 0 then
- Result := N0_19[NCentaines] + ' cents'
- else
- Result := N0_19[NCentaines] + ' cent ' + NumericToLetters(Num - NCentaines * CENT);
- end;
- 1000: Result := 'mille';
- 1001..1999: Result := 'mille ' + NumericToLetters(Num - MILLE);
- 2000..999999:
- begin
- NMilliers := Num div MILLE;
- if Num mod MILLE = 0 then
- Result := NumericToLetters(NMilliers) + ' mille'
- else
- Result := NumericToLetters(NMilliers) + ' mille '
- + NumericToLetters(Num - NMilliers * MILLE);
- end;
- 1000000..999999999:
- begin
- NMillions := Num div MILLION;
- if Num mod MILLION = 0 then
- Result := NumericToLetters(NMillions)
- + ' million' + Pluriel[NMillions > 1]
- else
- Result := NumericToLetters(NMillions)
- + ' million' + Pluriel[NMillions > 1] + ' '
- + NumericToLetters(Num - NMillions * MILLION);
- end;
- end;
- end;
-
- { ni la plus élégante ni la plus rapide des solutions, mais efficace }
- procedure SeparateIntDec(Value: Extended; var IntPart, DecPart: Int64;
- const N: Byte = 2);
- var
- S, sIntPart, sDecPart: string;
- P: Byte;
- begin
- S := FloatToStr(Value); // uses SysUtils
- P := Pos(DecimalSeparator, S);
- if P = 0 then
- begin
- IntPart := Int64(Trunc(Value));
- DecPart := 0;
- end
- else
- begin
- sIntPart := Copy(S, 1, Pos(DecimalSeparator, S) - 1);
- sDecPart := Copy(S, Pos(DecimalSeparator, S) + 1, 2);
- IntPart := StrToIntDef(sIntPart, 0);
- if Length(sDecPart) = 2 then
- DecPart := StrToInt64Def(sDecPart, 0)
- else
- DecPart := StrToInt64Def(sDecPart + '0', 0);
- end;
- end;
-
- { fonction très simplifiée, suffisante pour cet usage }
- function PluralOf(const S: string; const Value: Extended): string;
- const
- P: array[False..True] of string = ('', 's');
- NotAllowed = ['s', 'x', 'z'];
- var
- Plural: Boolean;
- begin
- Plural := (Abs(Value) >= 2) and (S <> 'virgule') and not(S[Length(S)] in NotAllowed);
- Result := Format('%s%s', [S, P[Plural]]);
- end;
-
- function NumericToLetters(Num: Extended; const Sep: string = 'virgule'): string;
- var
- IntPart, DecPart: Int64;
- Separator: string;
- begin
- SeparateIntDec(Num, IntPart, DecPart);
- Separator := Format(' %s ', [PluralOf(Sep, Num)]);
- Result := NumericToLetters(IntPart) + Separator + NumericToLetters(DecPart);
- end;
-
- end.
-
- -------------------------------------------------------------------------------
-
- function StrToFloatDef(S: string; Def: Extended): Extended;
- var
- Code: Integer;
- begin
- if DecimalSeparator <> '.' then // uses SysUtils
- S := StringReplace(S, DecimalSeparator, '.', []);
- Val(S, Result, Code);
- if Code <> 0 then
- Result := Def;
- end;
unit Num2Let;
interface
uses Math, SysUtils;
function NumericToLetters(Num: Int64): string; overload;
function NumericToLetters(Num: Extended; const Sep: string = 'virgule'): string; overload;
implementation
function NumericToLetters(Num: Int64): string;
const
N0_19: array[0..19] of string =
('zéro','un','deux','trois','quatre','cinq','six','sept','huit','neuf', 'dix',
'onze','douze','treize','quatorze','quinze','seize','dix-sept','dix-huit','dix-neuf');
N20_60: array[2..6] of string =
('vingt','trente','quarante','cinquante','soixante');
Separator: array[Boolean] of string = ('-', ' et ');
Pluriel: array[Boolean] of string = ('', 's');
DIX : Int64 = 10;
CENT : Int64 = 100;
MILLE : Int64 = 1000;
MILLION : Int64 = 1000000;
MILLIARD : Int64 = 1000000000;
var
NDizaines, NCentaines, NMilliers, NMillions, NMilliards: Int64;
begin
if Num > 999999999 then
begin
NMilliards := Num div MILLIARD;
if Num mod MILLIARD = 0 then
Result := NumericToLetters(NMilliards)
+ ' milliard'
+ Pluriel[NMilliards > 1]
else
Result := NumericToLetters(NMilliards)
+ ' milliard' + Pluriel[NMilliards > 1] + ' '
+ NumericToLetters(Num - (NMilliards) * MILLIARD);
end
else
case Num of
0..19: Result := N0_19[Num];
20..69:
begin
NDizaines := Num div DIX;
if Num mod DIX = 0 then // if (Num in [20,30,40,50,60]) then
Result := N20_60[NDizaines]
else
Result := N20_60[NDizaines]
+ Separator[Num mod DIX = 1]
+ N0_19[Num - NDizaines * DIX];
end;
70..79: Result := 'soixante' + Separator[Num mod DIX = 1] + N0_19[Num - 60];
80: Result := 'quatre-vingts';
81..99: Result := 'quatre-vingt-' + N0_19[Num - 80];
100: Result := 'cent';
101..199: Result := 'cent ' + NumericToLetters(Num - CENT);
200..999:
begin
NCentaines := Num div CENT;
if Num mod CENT = 0 then
Result := N0_19[NCentaines] + ' cents'
else
Result := N0_19[NCentaines] + ' cent ' + NumericToLetters(Num - NCentaines * CENT);
end;
1000: Result := 'mille';
1001..1999: Result := 'mille ' + NumericToLetters(Num - MILLE);
2000..999999:
begin
NMilliers := Num div MILLE;
if Num mod MILLE = 0 then
Result := NumericToLetters(NMilliers) + ' mille'
else
Result := NumericToLetters(NMilliers) + ' mille '
+ NumericToLetters(Num - NMilliers * MILLE);
end;
1000000..999999999:
begin
NMillions := Num div MILLION;
if Num mod MILLION = 0 then
Result := NumericToLetters(NMillions)
+ ' million' + Pluriel[NMillions > 1]
else
Result := NumericToLetters(NMillions)
+ ' million' + Pluriel[NMillions > 1] + ' '
+ NumericToLetters(Num - NMillions * MILLION);
end;
end;
end;
{ ni la plus élégante ni la plus rapide des solutions, mais efficace }
procedure SeparateIntDec(Value: Extended; var IntPart, DecPart: Int64;
const N: Byte = 2);
var
S, sIntPart, sDecPart: string;
P: Byte;
begin
S := FloatToStr(Value); // uses SysUtils
P := Pos(DecimalSeparator, S);
if P = 0 then
begin
IntPart := Int64(Trunc(Value));
DecPart := 0;
end
else
begin
sIntPart := Copy(S, 1, Pos(DecimalSeparator, S) - 1);
sDecPart := Copy(S, Pos(DecimalSeparator, S) + 1, 2);
IntPart := StrToIntDef(sIntPart, 0);
if Length(sDecPart) = 2 then
DecPart := StrToInt64Def(sDecPart, 0)
else
DecPart := StrToInt64Def(sDecPart + '0', 0);
end;
end;
{ fonction très simplifiée, suffisante pour cet usage }
function PluralOf(const S: string; const Value: Extended): string;
const
P: array[False..True] of string = ('', 's');
NotAllowed = ['s', 'x', 'z'];
var
Plural: Boolean;
begin
Plural := (Abs(Value) >= 2) and (S <> 'virgule') and not(S[Length(S)] in NotAllowed);
Result := Format('%s%s', [S, P[Plural]]);
end;
function NumericToLetters(Num: Extended; const Sep: string = 'virgule'): string;
var
IntPart, DecPart: Int64;
Separator: string;
begin
SeparateIntDec(Num, IntPart, DecPart);
Separator := Format(' %s ', [PluralOf(Sep, Num)]);
Result := NumericToLetters(IntPart) + Separator + NumericToLetters(DecPart);
end;
end.
-------------------------------------------------------------------------------
function StrToFloatDef(S: string; Def: Extended): Extended;
var
Code: Integer;
begin
if DecimalSeparator <> '.' then // uses SysUtils
S := StringReplace(S, DecimalSeparator, '.', []);
Val(S, Result, Code);
if Code <> 0 then
Result := Def;
end;
Conclusion
Compilable à partir de D4. N'hésitez pas à me signaler les vilains bugs.
Historique
- 04 février 2007 13:30:13 :
- Suppression d'une variable superflue.
- 05 février 2007 20:27:05 :
- Correction d'un bug se produisant quand le paramétrage système du séparateur décimal est le point (merci à Lucien pour me l'avoir fait remarquer).
Utilisation de StrToInt64Def() dans la procedure SeparateIntDec() afin de rester cohérent avec la valeur à traiter sur 64 bits (merci à WhiteHippo pour le conseil).
- 05 février 2007 20:51:08 :
- Retouche mineure dans le blabla de présentation.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
conversion en arabe de chiffre en lettre sous delphi5 [ par azerouk ]
SVP je voudrai codes de conversion en arabe de chiffre en lettre merci .sous delphi 5
Convertir Chiffre en Lettre avec QuickReport [ par slim59 ]
Slt. J'utilise QuickReport pour imprimer mes factures, mais je n'arrive pas à convertir le montant en chiffre, en Lettre.(j'utilise DBaseIII+)Merci+++
chiffre en lettre dans un état de sortie d'une facture en quickreprot [ par saidajerry ]
Bonjour tout le monde, s'il y a quelqu'un qui peut m'aider et je le remercie mille fois d'avance.mon problème et que j'ai édité un état de sortie avec
chiffre en lettre [ par vrachid ]
bj a tousy a til un moyen de convertir un chiffre en sa position numérique dans l'alphabet?par exemple si je tape 1 dans un edit j'aurai un A dans l'a
programme de conversion d'un nombre Hexadécimal en un nombre BCD [ par racimo1985 ]
Bonjour tout le monde, je programme en assembleur sur un micro intel 8085 Je recherche un programme que me permettrait de convertir un nombre Hexadéci
Conversion nombre en texte [ par ndjioua ]
> Salut je cherche une fonction qui me permettait de convertir un nombre (exp: 1523) en son équivalent écrit sous forme de text (Mille cinq cent v
Compter avec SQL [ par roud59 ]
Bonjour (Bonsoir) à vous tous. Ma question concerne plutôt SQL que delphi, mais je n'ai pas trouvé ce language sur CodeS-SourceS. Quelq
conversion de type de variables [ par RV57000 ]
Bonjour, mon problême est que je cherche à définir la lettre d'un lecteur dans un DriveListBox.La variable contenant cette lettre est r
convertir les prix de chiffre en lettre [ par karimaitouares ]
je suis coincé sur un point qui me semble important je cherche un algorithme a integrer dans mon application qui me permet de convertir les prix de le
La lettre majuscule d'un mot en premier? [ par yeho ]
Salut! Je sais que la meilleur manière d'être aidé dans Delphifr.com c'est d'exhiber aussi sa volonté de recherche.Mais j'ai une procedure que je ve
|
Derniers Blogs
TECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOURTECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOUR par ROMELARD Fabrice
Cette session est la dernière pleinière de ces 3 jours de TechDays Paris 2010. Généralement, cette troisième journée est plus axée sur l'avenir vu par Microsoft. Après un retour sur l'avenir vu par la Science Fiction ou par ...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
RE : SAVEDIALOGRE : SAVEDIALOG par JulioDelphi
Cliquez pour lire la suite par JulioDelphi
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|