[sql]convertion d'un nombre en toute lettre

**laurentschneider** · 10/03/2006, 09h24

ça devient difficile de trouver des fautes

Code :

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

1
2
3
4
5
 
SCOTT@RAC1> SELECT translate_fr(to_word_en(210)) FROM dual;
TRANSLATE_FR(TO_WORD_EN(210))
--------------------------------------------------------------------------------
deux cents dix

**orafrance** · 10/03/2006, 10h06

j'ai remplacé aussi les anciens termes par des multiples de milliars juqu'au sextillion. C'est bien comme ça qu'on compte ?

nuke_y

ta maman pourrait-elle nous dire comment compter au dela du milliars ?

Code :

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

1
2
3
4
5
6
7
8
9
SQL> SELECT translate_fr(to_word_en(99999999999999999999999)) FROM dual;
 
TRANSLATE_FR(TO_WORD_EN(99999999999999999999999))
--------------------------------------------------------------------------------
quatre-vingt-dix-neuf sextillions neuf cent quatre-vingt-dix-neuf milliards de m
iliards neuf cent quatre-vingt-dix-neuf millions de miliards neuf cent quatre-vi
ngt-dix-neuf mille milliards neuf cent quatre-vingt-dix-neuf milliards neuf cent
 quatre-vingt-dix-neuf millions neuf cent quatre-vingt-dix-neuf mille neuf cent
quatre-vingt-dix-neuf

Voila qui devrait permettre de trancher : http://membres.lycos.fr/jcboulay/astro/sommaire/astronomie/formules/page_formules.htm

Le prochain qui trouve un bug sera banni du forum

**orafrance** · 10/03/2006, 10h13

ma traduction s'éffondre

http://fr.wikipedia.org/wiki/Liste_des_nombres#Noms_fran.C3.A7ais_pour_les_puissances_de_10

je corrige ça

**orafrance** · 10/03/2006, 10h34

et voila la dernière version

Code :

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

KO

Exemples :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
SQL> SELECT translate_fr(to_word_en(1000000000000000)) from dual;
 
TRANSLATE_FR(TO_WORD_EN(1000000000000000))
--------------------------------------------------------------------------------
un billiard
 
SQL> SELECT translate_fr(to_word_en(21000000000000000)) from dual;
 
TRANSLATE_FR(TO_WORD_EN(21000000000000000))
--------------------------------------------------------------------------------
vingt et un billiards
 
SQL> 
SQL> SELECT translate_fr(to_word_en(101000000000000000)) from dual;
 
TRANSLATE_FR(TO_WORD_EN(101000000000000000))
--------------------------------------------------------------------------------
cent un billiards
 
SQL> SELECT translate_fr(to_word_en(99999999999999999999999)) FROM dual;
 
TRANSLATE_FR(TO_WORD_EN(99999999999999999999999))
--------------------------------------------------------------------------------
quatre-vingt-dix-neuf trilliards neuf cent quatre-vingt-dix-neuf trillions neuf
cent quatre-vingt-dix-neuf billiards neuf cent quatre-vingt-dix-neuf billions ne
uf cent quatre-vingt-dix-neuf milliards neuf cent quatre-vingt-dix-neuf millions
 neuf cent quatre-vingt-dix-neuf mille neuf cent quatre-vingt-dix-neuf

c'est beau

**laurentschneider** · 10/03/2006, 12h07

Code :

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

1
2
3
4
5
 
SCOTT@RAC1> SELECT translate_fr(to_word_en(1000000000000)) from dual;
TRANSLATE_FR(TO_WORD_EN(1000000000000))
--------------------------------------------------------------------------------
un billions

je sens que je vais me faire virer

**orafrance** · 10/03/2006, 12h23

corrigé

Code :

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

, 'un trillions'      , 'un billion'        )

Code :

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

, 'un billions'      , 'un billion'        )

**laurentschneider** · 10/03/2006, 12h35

Code :

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

1
2
3
4
5
 
SCOTT@RAC1> SELECT translate_fr(to_word_en(211)) from dual;
TRANSLATE_FR(TO_WORD_EN(211))
--------------------------------------------------------------------------------
deux cents onze

**laurentschneider** · 10/03/2006, 12h40

Code :

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

1
2
3
4
5
 
SCOTT@RAC1> SELECT translate_fr(to_word_en(21000000000000)) from dual;
TRANSLATE_FR(TO_WORD_EN(21000000000000))
--------------------------------------------------------------------------------
vingt et un billion

**laurentschneider** · 10/03/2006, 12h42

et un bug, un vrai, ...

Code :

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

1
2
3
4
5
 
SCOTT@RAC1> SELECT translate_fr(to_word_en(21000000000000000000)) from dual;
TRANSLATE_FR(TO_WORD_EN(21000000000000000000))
--------------------------------------------------------------------------------
vingt et un billions

**orafrance** · 10/03/2006, 12h51

des copier/coller malencontreux et oublie des onze, douze, treize, etc...

**laurentschneider** · 10/03/2006, 13h05

Envoyé par Fred_D

des copier/coller malencontreux

vraiment?

Code :

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

1
2
3
4
5
 
SCOTT@RAC1> SELECT translate_fr(to_word_en(216)) from dual;
TRANSLATE_FR(TO_WORD_EN(216))
--------------------------------------------------------------------------------
deux cent dix

**orafrance** · 10/03/2006, 14h19

celui-là il est beau

Edit : corrigé

**laurentschneider** · 10/03/2006, 15h10

SCOTT@RAC1> SELECT translate_fr(to_word_en(2e26)) from dual;
deux cent quadrillions

il manque le s à cents

**orafrance** · 10/03/2006, 15h15

au temps pour moi... je voulais feinter mais ça l'a pas fait

c'est corrigé

**orafrance** · 10/03/2006, 15h16

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
CREATE OR REPLACE FUNCTION translate_fr(pn$nombre_en in varchar2)
RETURN VARCHAR2
AS
ln$nombre_fr varchar2(4000);
BEGIN
	-- Référence : http://fr.wikipedia.org/wiki/Liste_des_nombres#Noms_fran.C3.A7ais_pour_les_puissances_de_10
	  ln$nombre_fr := RTRIM(lower(ln$nombre_fr));
 
    ln$nombre_fr := REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE( 
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(  
           REPLACE( REPLACE( REPLACE( REPLACE( REPLACE(  
           REPLACE( 
                                                pn$nombre_en
                                              , 'hundred'           , 'cents'           )
                                              , 'thousand'          , 'mille'           )
                                              , 'million'           , 'millions'        )
                                              , 'billion'           , 'milliards'       )
                                              , 'trillion'          , 'billions'        )
                                              , 'quadrillion'       , 'billiards'       )
                                              , 'quintillion'       , 'trillions'       )
                                              , 'sextillion'        , 'trilliards'      )   
                                              , 'septillion'        , 'quadrillions'    ) 
                                              , 'octillion'         , 'quadrilliards'   )
                                              , 'nonillion'         , 'quintillions'    ) 
                                              , ' decillion'        , ' quintilliards'   ) 
                                              , 'undecillion'       , 'sextillions'     ) 
                                              , 'duodecillion'      , 'sextilliards'    ) 
                                              , 'tredecillion'      , 'septillions'     ) 
                                              , 'quattuordecillion' , 'septilliards'    ) 
                                              , 'quindecillion'     , 'octillions'      ) 
                                              , 'sexdecillion'      , 'octilliards'     ) 
                                              , 'septendecillion'   , 'nontillions'     ) 
                                              , 'octodecillion'     , 'nontilliards'    ) 
                                              , 'novemdecillion'    , 'decillions'      ) 
                                              , ' vigintillion'     , ' decilliards'     ) 
                                              , 'unvigintillion'    , 'undectillions'   ) 
                                              , 'duovigintillion'   , 'undectilliards'  ) 
                                              , 'ninety'            , 'quatre-vingt-dix')
                                              , 'eighty'            , 'quatre-vingts'   )
                                              , 'seventy'           , 'soixante-dix'    )
                                              , 'sixty'             , 'soixante'        )
                                              , 'fifty'             , 'cinquante'       )
                                              , 'forty'             , 'quarante'        )
                                              , 'thirty'            , 'trente'          )
                                              , 'twenty'            , 'vingt'           )
                                              , 'nineteen'          , 'dix-neuf'        )
                                              , 'eighteen'          , 'dix-huit'        )
                                              , 'seventeen'         , 'dix-sept'        )
                                              , 'sixteen'           , 'seize'           )
                                              , 'fifteen'           , 'quinze'          )
                                              , 'fourteen'          , 'quatorze'        )
                                              , 'thirteen'          , 'treize'          )
                                              , 'twelve'            , 'douze'           )
                                              , 'eleven'            , 'onze'            )
                                              , 'ten'               , 'dix'             )
                                              , 'nine'              , 'neuf'            )
                                              , 'eight'             , 'huit'            )
                                              , 'seven'             , 'sept'            )
                                              , 'five'              , 'cinq'            )
                                              , 'four'              , 'quatre'          )
                                              , 'three'             , 'trois'           )
                                              , 'two'               , 'deux'            )
                                              , 'one'               , 'un'              )
                                              , 'dix-six'           , 'seize'           )
                                              , 'dix-cinq'          , 'quinze'          )
                                              , 'dix-quatre'        , 'quatorze'        )
                                              , 'dix-trois'         , 'treize'          )
                                              , 'dix-deux'          , 'douze'           )
                                              , 'dix-un'            , 'onze'            )
                                              , '-un '              , '-une '           )
                                              , 'une'               , 'un'              )
                                              , 'soixante-onze'     , 'soixante et onze')
                                              , 'quatre-vingts-'    , 'quatre-vingt-'   )
                                              , '-un'               , ' et un'          )
                                              , 'quatre-vingt et un', 'quatre-vingt-un' )
                                              , 'un cents'          , 'cent'            )
                                              , 'cents un'          , 'cent un'         )
                                              , 'cents deux'        , 'cent deux'       )
                                              , 'cents trois'       , 'cent trois'      )
                                              , 'cents quatre'      , 'cent quatre'     )
                                              , 'cents cinq'        , 'cent cinq'       )
                                              , 'cents six'         , 'cent six'        )
                                              , 'cents sept'        , 'cent sept'       )
                                              , 'cents huit'        , 'cent huit'       )
                                              , 'cents neuf'        , 'cent neuf'       )
                                              , 'cents dix'         , 'cent dix'        )
                                              , 'cents onze'        , 'cent onze'       )
                                              , 'cents douze'       , 'cent douze'      )
                                              , 'cents treize'      , 'cent treize'     )
                                              , 'cents quatorze'    , 'cent quatorze'     )
                                              , 'cents seize'       , 'cent seize'      )
                                              , 'cents vingt'       , 'cent vingt'      )
                                              , 'cents trente'      , 'cent trente'     )
                                              , 'cents quarante'    , 'cent quarante'   )
                                              , 'cents soixante'    , 'cent soixante'   )
                                              , 'un millions'       , 'un million'      ) 
                                              , 'un milliards'      , 'un milliard'     ) 
                                              , 'un billions'       , 'un billion'      )
                                              , 'un billiards'      , 'un billiard'     )
                                              , 'un trillions'      , 'un trillion'     )
                                              , 'un trilliards'     , 'un trilliard'    )   
                                              , 'un quadrillions'   , 'un quadrillion'  ) 
                                              , 'un quadrilliards'   , 'un quadrilliard' )
                                              , 'un quintillions'   , 'un quintillion'  ) 
                                              , 'un quintilliards'  , 'un quintilliard' ) 
                                              , 'un sextillions'    , 'un sextillion'   ) 
                                              , 'un sextilliards'   , 'un sextilliard'  ) 
                                              , 'un septillions'    , 'un septillion'   ) 
                                              , 'un septilliards'   , 'un septilliard'  ) 
                                              , 'un octillions'     , 'un octillion'    ) 
                                              , 'un octilliards'    , 'un octilliard'   ) 
                                              , 'un nontillions'    , 'un nontillion'   ) 
                                              , 'un nontilliards'   , 'un nontilliard'  ) 
                                              , 'un decillions'     , 'un decillion'    ) 
                                              , 'un decilliards'    , 'un decilliard'   ) 
                                              , 'un undectillions'  , 'un undectillion' ) 
                                              , 'un undectilliards' , 'un undectilliard') 
                                              , 'cent un million'        , 'cent un millions'      ) 
                                              , 'cent un milliard'      , 'cent un milliards'     ) 
                                              , 'cent un billion'      , 'cent un billions'        )
                                              , 'cent un billiard'       , 'cent un billiards'       )
                                              , 'cent un trillion'      , 'cent un trillions'        )
                                              , 'cent un trilliard'     , 'cent un trilliards'      )   
                                              , 'cent un quadrillion'   , 'cent un quadrillions'    ) 
                                              , 'cent un quadrilliard'   , 'cent un quadrilliards'   )
                                              , 'cent un quintillion'   , 'cent un quintillions'    ) 
                                              , 'cent un quintilliard'  , 'cent un quintilliards'   ) 
                                              , 'cent un sextillion'    , 'cent un sextillions'     ) 
                                              , 'cent un sextilliard'   , 'cent un sextilliards'    ) 
                                              , 'cent un septillion'    , 'cent un septillions'     ) 
                                              , 'cent un septilliard'   , 'cent un septilliards'    ) 
                                              , 'cent un octillion'     , 'cent un octillions'      ) 
                                              , 'cent un octilliard'    , 'cent un octilliards'     ) 
                                              , 'cent un nontillion'    , 'cent un nontillions'     ) 
                                              , 'cent un nontilliard'   , 'cent un nontilliards'    ) 
                                              , 'cent un decillion'     , 'cent un decillions'      ) 
                                              , 'cent un decilliard'    , 'cent un decilliards'     ) 
                                              , 'cent un undectillion'  , 'cent un undectillions'   ) 
                                              , 'cent un undectilliard' , 'cent un undectilliards'  ) 
                                              , 'et un million'       , 'et un millions'      ) 
                                              , 'et un milliard'      , 'et un milliards'     ) 
                                              , 'et un billion'       , 'et un billions'        )
                                              , 'et un billiard'      , 'et un billiards'       )
                                              , 'et un trillion'      , 'et un trillions'        )
                                              , 'et un trilliard'     , 'et un trilliards'      )   
                                              , 'et un quadrillion'   , 'et un quadrillions'    ) 
                                              , 'et un quadrilliard'  , 'et un quadrilliards'   )
                                              , 'et un quintillion'   , 'et un quintillions'    ) 
                                              , 'et un quintilliard'  , 'et un quintilliards'   ) 
                                              , 'et un sextillion'    , 'et un sextillions'     ) 
                                              , 'et un sextilliard'   , 'et un sextilliards'    ) 
                                              , 'et un septillion'    , 'et un septillions'     ) 
                                              , 'et un septilliard'   , 'et un septilliards'    ) 
                                              , 'et un octillion'     , 'et un octillions'      ) 
                                              , 'et un octilliard'    , 'et un octilliards'     ) 
                                              , 'et un nontillion'    , 'et un nontillions'     ) 
                                              , 'et un nontilliard'   , 'et un nontilliards'    ) 
                                              , 'et un decillion'     , 'et un decillions'      ) 
                                              , 'et un decilliard'    , 'et un decilliards'     ) 
                                              , 'et un undectillion'  , 'et un undectillions'   ) 
                                              , 'et un undectilliard' , 'et un undectilliards'  ) 
                                              , '-un million'       , '-un millions'      ) 
                                              , '-un milliard'      , '-un milliards'     ) 
                                              , '-un billion'       , '-un billions'        )
                                              , '-un billiard'      , '-un billiards'       )
                                              , '-un trillion'      , '-un trillions'        )
                                              , '-un trilliard'     , '-un trilliards'      )   
                                              , '-un quadrillion'   , '-un quadrillions'    ) 
                                              , '-un quadrilliard'   , '-un quadrilliards'   )
                                              , '-un quintillion'   , '-un quintillions'    ) 
                                              , '-un quintilliard'  , '-un quintilliards'   ) 
                                              , '-un sextillion'    , '-un sextillions'     ) 
                                              , '-un sextilliard'   , '-un sextilliards'    ) 
                                              , '-un septillion'    , '-un septillions'     ) 
                                              , '-un septilliard'   , '-un septilliards'    ) 
                                              , '-un octillion'     , '-un octillions'      ) 
                                              , '-un octilliard'    , '-un octilliards'     ) 
                                              , '-un nontillion'    , '-un nontillions'     ) 
                                              , '-un nontilliard'   , '-un nontilliards'    ) 
                                              , '-un decillion'     , '-un decillions'      ) 
                                              , '-un decilliard'    , '-un decilliards'     ) 
                                              , '-un undectillion'  , '-un undectillions'   ) 
                                              , '-un undectilliard' , '-un undectilliards'  ) 
                                              , 'point'             , 'virgule'      )
                          ;
 
 	  ln$nombre_fr := RTRIM(lower(ln$nombre_fr));
 
  -- Gestion des exceptions (attention mille est invariable)
 
 	CASE
    WHEN ln$nombre_fr like 'un mille%'        then ln$nombre_fr := REPLACE(ln$nombre_fr, 'un mille','mille' ); 			 -- ex : 1000
    WHEN ln$nombre_fr like '%n un mille%'     then ln$nombre_fr := REPLACE(ln$nombre_fr, 'n un mille','n mille' );   -- ex : 1001000
    WHEN ln$nombre_fr like '%ns un mille%'    then ln$nombre_fr := REPLACE(ln$nombre_fr, 'ns un mille','ns mille' ); -- ex : 2001000
    WHEN ln$nombre_fr like '%d un mille%'     then ln$nombre_fr := REPLACE(ln$nombre_fr, 'd un mille','d mille' );   -- ex : 1000001000
    WHEN ln$nombre_fr like '%ds un mille%'    then ln$nombre_fr := REPLACE(ln$nombre_fr, 'ds un mille','ds mille' ); -- ex : 2000001000
    ELSE null;
   END CASE;
 
 
    RETURN ln$nombre_fr;
END translate_fr;
/

**laurentschneider** · 10/03/2006, 15h16

Code :

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

1
2
3
4
5
 
SCOTT@RAC1> SELECT translate_fr(to_word_en(201000000000000)) from dual;
TRANSLATE_FR(TO_WORD_EN(201000000000000))
--------------------------------------------------------------------------------
deux cent un billion

manque s à billion

Code :

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

1
2
3
4
SCOTT@RAC1> SELECT translate_fr(to_word_en(201000000000000000000)) from dual;
TRANSLATE_FR(TO_WORD_EN(201000000000000000000))
--------------------------------------------------------------------------------
deux cent un billions

au lieu de trillions

**laurentschneider** · 10/03/2006, 15h18

Code :

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

1
2
3
4
SCOTT@RAC1> SELECT translate_fr(to_word_en(21000000000000000000000000000)) from dual;
TRANSLATE_FR(TO_WORD_EN(21000000000000000000000000000))
--------------------------------------------------------------------------------
vingt et un quadrilliardsds

**orafrance** · 10/03/2006, 15h43

encore des copier/coller... c'est corrigé

**laurentschneider** · 10/03/2006, 17h23

c'est pas mal jusqu'au sextillion!

SCOTT@RAC1> SELECT translate_fr(to_word_en(1e36)) lettres from dual ;
un unquintilliards

je pense que pour les entiers positifs inférieurs à 10^36 tu peux la garder!

**orafrance** · 12/03/2006, 09h20

c'est réglé

[sql]convertion d'un nombre en toute lettre

Oracle

Discussions similaires

Partager

Partager