jueves, 8 de enero de 2009

Convertir numeros a letras usando pl/sql

Convertir numeros a letras

Oracle PL/SQL: Como convertir un número a letras.

Oracle PL/SQL: Pasar número a letras en español , castellano o catalán..

Oracle PL/SQL: Expresar un numero con letras.

Oracle PL/SQL: Convertir una fecha a literal o letras.

Oracle PL/SQL: Usar NLS_DATE_LANGUAGE en to_char.

SITUACIÓN:

Podemos encontrarnos (los clientes que a veces son muy caprichosos...) con que una fecha tipo 11/09/1714 queremos expresarla como "once de septiembre de mil novecientos catorce" y si se nos pide en ingles podemos usar

select to_char (to_date ('11/09/1714','DD/MM/RRRR'),'day month year') from dual;

que nos devuelve:

"tuesday september seventeen fourteen"

por lo que el día ya no nos lo transforma tal cual en letras si no en el día de la semana, el mes funciona bien y el año... bueno yo no se mucho ingles pero diria que no es la mejor traducción no... y en castellano o catalán? pues se puede modificar la sessión o user la select así:

select to_char (to_date ('11/09/1714','DD/MM/RRRR'),'day month year','NLS_DATE_LANGUAGE=CATALAN') from dual;
select to_char (to_date ('11/09/1714','DD/MM/RRRR'),'day month year','NLS_DATE_LANGUAGE=SPANISH') from dual;

que nos devuelven respectivamente:
"dimarts setembre seventeen fourteen"
"martes septiembre seventeen fourteen"

por lo que si que nos traduce el día (pero no el numero si no el día de la semana, como antes) , el mes y... y el año? que le pasa?

EXPLICACIÓN:

Una vez más... cosas raras del oracle mira...

Como esta solución no nos convence tendremos que usar otra y que además nos servirá para convertir cualquier número y no solo fechas (que no dejan de ser una agrupación de números)

SOLUCIÓN:

En el caso de querer convertir un número a letras en inglés lo tenemos bastante fácil haciendo una trampita y pasandolo a fecha juliana con la limitaci'on de que no acepta n'umeros superiores a 7 cifras.

select to_char(to_date('1234567','J'),'Jsp') from dual;

que nos devuelve
"One Million Two Hundred Thirty-Four Thousand Five Hundred Sixty-Seven"

Y en catalán o castellano?

Pues he cogido de internet una función bastante simple pero larga y pesada de hacer y la he traducido también al catalán (aquí trabajamos en catalán xD) y añadido un parámetro.

------------------------------------------------------------------------------------------------------------
----- Converteix una xifra numérica a l'equivalent en text.
----- Parametres: IMP -> l'import en format XXXXXX.XX
----- NUMDEC -> indica la quantitat de numeros que hi ha com a decimals (maxim i per defecte 2)
----- IDIOMA -> CATalà o ESP Castellà
------------------------------------------------------------------------------------------------------------

CREATE OR REPLACE FUNCTION Numero_a_Texto ( Imp Number, NumDec Number Default 2, idioma varchar2 default 'CAT' )

RETURN VarChar2
IS
Es_Un_Numero Number;
imp_let VarChar2(150);
imp_char VarChar2(12);
impd_char VarChar2(2);
importe_let varchar2(100);

BEGIN
-- Se pasa a cadena
imp_char := To_Char(Trunc(Imp));
impd_char:= Substr(Ltrim(Ltrim(To_Char(Imp - Trunc(Imp)),'.'),','), 1, NumDec);

if idioma = 'ESP' then
SELECT

--Centenas de miles de millones.
DECODE (SUBSTR(LPAD(imp_char,12,'0'),1,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,2),'00','CIEN ','CIENTO '),
2,'DOSCIENTAS ',
3,'TRESCIENTAS ',
4,'CUATROCIENTAS ',
5,'QUINIENTAS ',
6,'SEISCIENTAS ',
7,'SETECIENTAS ',
8,'OCHOCIENTAS ',
9,'NOVECIENTAS ',
0,'')

||
--Decenas miles de millones.
DECODE (SUBSTR(LPAD(imp_char,12,'0'),2,1),
1,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1),
0,'DIEZ ',
1,'ONCE MIL ',
2,'DOCE MIL ',
3,'TRECE MIL ',
4,'CATORCE MIL ',
5,'QUINCE MIL ',
6,'DICISEIS MIL ',
7,'DIECISIETE MIL ',
8,'DIECIOCHO MIL ',
9,'DIECINUEVE MIL '),
2,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'VEINTE ','VEINTI'),
3,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'TREINTA ','TREINTA Y '),
4,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'CUARENTA ','CUARENTA Y '),
5,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'CINCUENTA ','CINCUENTA Y '),
6,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'SESENTA ','SESENTA Y '),
7,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'SETENTA ','SETENTA Y '),
8,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'OCHENTA ','OCHENTA Y '),
9,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'NOVENTA ','NOVENTA Y '),
0,'')

||
--Unidades de milles de millones
DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),'1','',
DECODE(SUBSTR(LPAD(imp_char,12,'0'),1,3),'001','MIL ','UN MIL ' ) ),
2,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','DOS MIL '),
3,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','TRES MIL '),
4,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','CUATRO MIL '),
5,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','CINCO MIL '),
6,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','SEIS MIL '),
7,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','SIETE MIL '),
8,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','OCHO MIL '),
9,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','NUEVE MIL '),
0,DECODE(SUBSTR(LPAD(imp_char,12,'0'),1,3),'000','','MIL '))

||
--Centenas de millon.
DECODE (SUBSTR(LPAD(imp_char,12,'0'),4,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,2),'00','CIEN ','CIENTO '),
2,'DOSCIENTAS ',
3,'TRESCIENTAS ',
4,'CUATROCIENTAS ',
5,'QUINIENTAS ',
6,'SEISCIENTAS ',
7,'SETECIENTAS ',
8,'OCHOCIENTAS ',
9,'NOVECIENTAS ',
0,'')

||
--Decenas de millon.
DECODE (SUBSTR(LPAD(imp_char,12,'0'),5,1),
1,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1),
0,'DIEZ ',
1,'ONCE MILLONES ',
2,'DOCE MILLONES ',
3,'TRECE MILLONES ',
4,'CATORCE MILLONES ',
5,'QUINCE MILLONES ',
6,'DICISEIS MILLONES ',
7,'DIECISIETE MILLONES ',
8,'DIECIOCHO MILLONES ',
9,'DIECINUEVE MILLONES '),
2,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'VEINTE ','VEINTI'),
3,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'TREINTA ','TREINTA Y '),
4,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'CUARENTA ','CUARENTA Y '),
5,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'CINCUENTA ','CINCUENTA Y '),
6,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'SESENTA ','SESENTA Y '),
7,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'SETENTA ','SETENTA Y '),
8,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'OCHENTA ','OCHENTA Y '),
9,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'NOVENTA ','NOVENTA Y '),
0,'')

||
--Unidades de millon.
DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),'1','',
DECODE(SUBSTR(LPAD(imp_char,12,'0'),3,2),'00','UN MILLON ','UN MILLONES ') ),
2,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','DOS MILLONES '),
3,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','TRES MILLONES '),
4,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','CUATRO MILLONES '),
5,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','CINCO MILLONES '),
6,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','SEIS MILLONES '),
7,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','SIETE MILLONES '),
8,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','OCHO MILLONES '),
9,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','NUEVE MILLONES '),
0,DECODE(SUBSTR(LPAD(imp_char,12,'0'),3,3),'000','','MILLONES '))

||
--Centenas de millar.
DECODE (SUBSTR(LPAD(imp_char,12,'0'),7,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,2),'00','CIEN ','CIENTO '),
2,'DOSCIENTAS ',
3,'TRESCIENTAS ',
4,'CUATROCIENTAS ',
5,'QUINIENTAS ',
6,'SEISCIENTAS ',
7,'SETECIENTAS ',
8,'OCHOCIENTAS ',
9,'NOVECIENTAS ',
0,'')

||
--Decenas de millar.
DECODE (SUBSTR(LPAD(imp_char,12,'0'),8,1),
1,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1),
0,'DIEZ ',
1,'ONCE MIL ',
2,'DOCE MIL ',
3,'TRECE MIL ',
4,'CATORCE MIL ',
5,'QUINCE MIL ',
6,'DICISEIS MIL ',
7,'DIECISIETE MIL ',
8,'DIECIOCHO MIL ',
9,'DIECINUEVE MIL '),
2,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'VEINTE ','VEINTI'),
3,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'TREINTA ','TREINTA Y '),
4,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'CUARENTA ','CUARENTA Y '),
5,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'CINCUENTA ','CINCUENTA Y '),
6,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'SESENTA ','SESENTA Y '),
7,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'SETENTA ','SETENTA Y '),
8,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'OCHENTA ','OCHENTA Y '),
9,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'NOVENTA ','NOVENTA Y '),
0,'')

||
--Unidades de millar
DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),'1','',
DECODE(SUBSTR(LPAD(imp_char,12,'0'),7,3),'001','MIL ','UN MIL ' ) ),
2,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','DOS MIL '),
3,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','TRES MIL '),
4,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','CUATRO MIL '),
5,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','CINCO MIL '),
6,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','SEIS MIL '),
7,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','SIETE MIL '),
8,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','OCHO MIL '),
9,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','NUEVE MIL '),
0,DECODE(SUBSTR(LPAD(imp_char,12,'0'),7,3),'000','','MIL '))

||
--Centenas.
DECODE (SUBSTR(LPAD(imp_char,12,'0'),10,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,2),'00','CIEN','CIENTO '),
2,'DOSCIENTAS ',
3,'TRESCIENTAS ',
4,'CUATROCIENTAS ',
5,'QUINIENTAS ',
6,'SEISCIENTAS ',
7,'SETECIENTAS ',
8,'OCHOCIENTAS ',
9,'NOVECIENTAS ',
0,'')

||
--Decenas.
DECODE (SUBSTR(LPAD(imp_char,12,'0'),11,1),
1,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12),
0,'DIEZ ',
1,'ONCE ',
2,'DOCE ',
3,'TRECE ',
4,'CATORCE ',
5,'QUINCE ',
6,'DICISEIS ',
7,'DIECISIETE ',
8,'DIECIOCHO ',
9,'DIECINUEVE '),
2,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'VEINTE ','VEINTI'),
3,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'TREINTA ','TREINTA Y '),
4,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'CUARENTA ','CUARENTA Y '),
5,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'CINCUENTA ','CINCUENTA Y '),
6,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'SESENTA ','SESENTA Y '),
7,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'SETENTA ','SETENTA Y '),
8,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'OCHENTA ','OCHENTA Y '),
9,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'NOVENTA ','NOVENTA Y '),
0,'')

||
--Unidades.
DECODE (SUBSTR(LPAD(imp_char,12,'0'),12,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','UN '),
2,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','DOS '),
3,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','TRES '),
4,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','CUATRO '),
5,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','CINCO '),
6,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','SEIS '),
7,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','SIETE '),
8,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','OCHO '),
9,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','NUEVE '),
0,DECODE(SUBSTR(LPAD(imp_char,12,'0'),1,12),'000000000000','CERO ','') )
||
DECODE(LPAD(impd_char,2,'0'),'00','','CON ')||
--Decimales
--Decenas.
DECODE (SUBSTR(LPAD(impd_char,2,'0'),1,1),
0,DECODE(SUBSTR(LPAD(impd_char,2,'0'),2),
1,'UNO ',
2,'DOS ',
3,'TRES ',
4,'CUATRO ',
5,'CINCO ',
6,'SEIS ',
7,'SIETE ',
8,'OCHO ',
9,'NUEVE '),
1,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2),
0,'DIEZ ',
1,'ONCE ',
2,'DOCE ',
3,'TRECE ',
4,'CATORCE ',
5,'QUINCE ',
6,'DICISEIS ',
7,'DIECISIETE ',
8,'DIECIOCHO ',
9,'DIECINUEVE '),
2,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'VEINTE ','VEINTI'),
3,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'TREINTA ','TREINTA Y '),
4,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'CUARENTA ','CUARENTA Y '),
5,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'CINCUENTA ','CINCUENTA Y '),
6,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'SESENTA ','SESENTA Y '),
7,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'SETENTA ','SETENTA Y '),
8,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'OCHENTA ','OCHENTA Y '),
9,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'NOVENTA ','NOVENTA Y '),
0,'')
||
--Unidades.
DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),0,'',
DECODE (SUBSTR(LPAD(impd_char,2,'0'),2,1),
1,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','UN '),
2,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','DOS '),
3,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','TRES '),
4,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','CUATRO '),
5,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','CINCO '),
6,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','SEIS '),
7,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','SIETE '),
8,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','OCHO '),
9,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','NUEVE ')))
INTO importe_let
FROM DUAL;

elsif idioma = 'CAT' then
SELECT

--Centenes de milers de milions.
DECODE (SUBSTR(LPAD(imp_char,12,'0'),1,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,2),'00','CENT ','CENT '),
2,'DOSCENTS ',
3,'TRESCENTS ',
4,'QUATRECENTS ',
5,'CINCENTS ',
6,'SISCENTS ',
7,'SETCENTS ',
8,'VUITCENTS ',
9,'NOUCENTS ',
0,'')

||
--Desenes milers de milions.
DECODE (SUBSTR(LPAD(imp_char,12,'0'),2,1),
1,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1),
0,'DEU ',
1,'ONZE MIL ',
2,'DOTZE MIL ',
3,'TRETZE MIL ',
4,'CATORZE MIL ',
5,'QUINZE MIL ',
6,'SETZE MIL ',
7,'DISSET MIL ',
8,'DIVUIT MIL ',
9,'DINOU MIL '),
2,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'VINT ','VINT-I-'),
3,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'TRENTA ','TREINTA '),
4,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'QUARANTA ','QUARANTA '),
5,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'CINQUANTA ','CINQUANTA '),
6,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'SEIXANTA ','SEIXANTA '),
7,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'SETANTA ','SETANTA '),
8,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'VUITANTA ','VUITANTA '),
9,DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1), 0,'NORANTA ','NORANTA '),
0,'')

||
--Unitats de milers de milions
DECODE (SUBSTR(LPAD(imp_char,12,'0'),3,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),'1','',
DECODE(SUBSTR(LPAD(imp_char,12,'0'),1,3),'001','MIL ','UN MIL ' ) ),
2,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','DOS MIL '),
3,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','TRES MIL '),
4,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','QUATRE MIL '),
5,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','CINC MIL '),
6,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','SIS MIL '),
7,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','SET MIL '),
8,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','VUIT MIL '),
9,DECODE(SUBSTR(LPAD(imp_char,12,'0'),2,1),1,'','NOU MIL '),
0,DECODE(SUBSTR(LPAD(imp_char,12,'0'),1,3),'000','','MIL '))

||
--Centenes de milió
DECODE (SUBSTR(LPAD(imp_char,12,'0'),4,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,2),'00','CENT ','CENT '),
2,'DOS-CENTS ',
3,'TRES-CENTS ',
4,'CUATRE-CENTS ',
5,'CINC-CENTS ',
6,'SIS-CENTS ',
7,'SET-CENTS ',
8,'VUIT-CENTS ',
9,'NOU-CENTS ',
0,'')

||
--Desenes de milió (m'entra complexe d'assafata del cuponazo)
DECODE (SUBSTR(LPAD(imp_char,12,'0'),5,1),
1,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1),
0,'DEU ',
1,'ONZE MILIONS ',
2,'DOTZE MILIONS ',
3,'TRETZE MILIONS ',
4,'CATORZE MILIONS ',
5,'QUINZE MILIONS ',
6,'SETZE MILIONS ',
7,'DISSET MILIONS ',
8,'DIVUIT MILIONS ',
9,'DINOU MILIONS '),
2,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'VINT ','VINT-I-'),
3,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'TRENTA ','TRENTA '),
4,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'QUARANTA ','QUARANTA '),
5,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'CINQUANTA ','CINQUANTA '),
6,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'SEIXANTA ','SEIXANTA '),
7,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'SETANTA ','SETANTA '),
8,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'VUITANTA ','VUITANTA '),
9,DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1), 0,'NORANTA ','NORANTA '),
0,'')

||
--Unitats de milió
DECODE (SUBSTR(LPAD(imp_char,12,'0'),6,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),'1','',
DECODE(SUBSTR(LPAD(imp_char,12,'0'),3,2),'00','UN MILIÓ ','UN MILIONS ') ),
2,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','DOS MILIONS '),
3,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','TRES MILIONS '),
4,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','QUATRE MILIONS '),
5,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','CINC MILIONS '),
6,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','SIS MILIONS '),
7,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','SET MILIONS '),
8,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','VUIT MILIONS '),
9,DECODE(SUBSTR(LPAD(imp_char,12,'0'),5,1),1,'','NOU MILIONS '),
0,DECODE(SUBSTR(LPAD(imp_char,12,'0'),3,3),'000','','MILIONS '))

||
--Centenes de millar
DECODE (SUBSTR(LPAD(imp_char,12,'0'),7,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,2),'00','CENT ','CENT '),
2,'DOS-CENTS ',
3,'TRES-CENTS ',
4,'CUATRE-CENTS ',
5,'CINC-CENTS ',
6,'SIS-CENTS ',
7,'SET-CENTS ',
8,'VUIT-CENTS ',
9,'NOU-CENTS ',
0,'')

||
--Desenes de millar
DECODE (SUBSTR(LPAD(imp_char,12,'0'),8,1),
1,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1),
0,'DEU ',
1,'ONZE MIL ',
2,'DOTZE MIL ',
3,'TRETZE MIL ',
4,'CATORZE MIL ',
5,'QUINZE MIL ',
6,'SETZE MIL ',
7,'DISSET MIL ',
8,'DIVUIT MIL ',
9,'DINOU MIL '),
2,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'VINT ','VINT-I-'),
3,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'TRENTA ','TRENTA '),
4,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'QUARANTA ','QUARANTA '),
5,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'CINQUANTA ','CINQUANTA '),
6,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'SEIXANTA ','SEIXANTA '),
7,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'SETANTA ','SETANTA '),
8,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'VUITANTA ','VUITANTA '),
9,DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1), 0,'NORANTA ','NORANTA '),
0,'')

||
--Unitats de millar
DECODE (SUBSTR(LPAD(imp_char,12,'0'),9,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),'1','',
DECODE(SUBSTR(LPAD(imp_char,12,'0'),7,3),'001','MIL ','UN MIL ' ) ),
2,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','DOS MIL '),
3,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','TRES MIL '),
4,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','QUATRE MIL '),
5,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','CINC MIL '),
6,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','SIS MIL '),
7,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','SET MIL '),
8,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','VUIT MIL '),
9,DECODE(SUBSTR(LPAD(imp_char,12,'0'),8,1),1,'','NOU MIL '),
0,DECODE(SUBSTR(LPAD(imp_char,12,'0'),7,3),'000','','MIL '))

||
--Centenes
DECODE (SUBSTR(LPAD(imp_char,12,'0'),10,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,2),'00','CENT','CENT '),
2,'DOS-CENTS ',
3,'TRES-CENTS ',
4,'CUATRE-CENTS ',
5,'CINC-CENTS ',
6,'SIS-CENTS ',
7,'SET-CENTS ',
8,'VUIT-CENTS ',
9,'NOU-CENTS ',
0,'')

||
--Desenes
DECODE (SUBSTR(LPAD(imp_char,12,'0'),11,1),
1,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12),
0,'DEU ',
1,'ONZE ',
2,'DOTZE ',
3,'TRETZE ',
4,'CATORZE ',
5,'QUINZE ',
6,'SETZE ',
7,'DISSET ',
8,'DIVUIT ',
9,'DINOU '),
2,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'VINT ','VINT-I-'),
3,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'TRENTA ','TRENTA '),
4,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'QUARANTA ','QUARANTA '),
5,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'CINQUANTA ','CINQUANTA '),
6,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'SEIXANTA ','SEIXANTA '),
7,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'SETANTA ','SETANTA '),
8,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'VUITANTA ','VUITANTA '),
9,DECODE (SUBSTR(LPAD(imp_char,12,'0'),12), 0,'NORANTA ','NORANTA '),
0,'')

||
--Unitats.
DECODE (SUBSTR(LPAD(imp_char,12,'0'),12,1),
1,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','UN '),
2,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','DOS '),
3,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','TRES '),
4,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','QUATRE '),
5,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','CINC '),
6,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','SIS '),
7,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','SET '),
8,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','VUIT '),
9,DECODE(SUBSTR(LPAD(imp_char,12,'0'),11,1),1,'','NOU '),
0,DECODE(SUBSTR(LPAD(imp_char,12,'0'),1,12),'000000000000','ZERO ','') )
||
DECODE(LPAD(impd_char,2,'0'),'00','','AMB ')||
--Decimals
--Desenes.
DECODE (SUBSTR(LPAD(impd_char,2,'0'),1,1),
0,DECODE(SUBSTR(LPAD(impd_char,2,'0'),2),
1,'UN ',
2,'DOS ',
3,'TRES ',
4,'QUATRE ',
5,'CINC ',
6,'SIS ',
7,'SET ',
8,'VUIT ',
9,'NOU '),
1,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2),
0,'DEU ',
1,'ONZE ',
2,'DOTZE ',
3,'TRETZE ',
4,'CATORZE ',
5,'QUINZE ',
6,'SETZE ',
7,'DISSET ',
8,'DIVUIT ',
9,'DINOU '),
2,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'VINT ','VINT-I-'),
3,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'TRENTA ','TRENTA '),
4,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'QUARANTA ','QUARANTA '),
5,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'CINQUANTA ','CINQUANTA '),
6,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'SEIXANTA ','SEIXANTA '),
7,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'SETANTA ','SETANTA '),
8,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'VUITANTA ','VUITANTA '),
9,DECODE (SUBSTR(LPAD(impd_char,2,'0'),2), 0,'NORANTA ','NORANTA '),
0,'')
||
--Unitats.
DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),0,'',
DECODE (SUBSTR(LPAD(impd_char,2,'0'),2,1),
1,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','UN '),
2,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','DOS '),
3,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','TRES '),
4,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','QUATRE '),
5,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','CINC '),
6,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','SIS '),
7,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','SET '),
8,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','VUIT '),
9,DECODE(SUBSTR(LPAD(impd_char,2,'0'),1,1),1,'','NOU ')))
INTO importe_let
FROM DUAL;
end if;

RETURN (importe_let);

END Numero_a_Texto;


Luego usando esta función he creado otra pequeñita que directamente nos pasa una fecha determinada a su descripción en letras.

create or replace function data_a_text(data in date, idioma in varchar2) return varchar2 is
Result varchar2(200);
begin
if idioma = 'CAT' then
select lower(numero_a_texto (to_char (data,'dd'),2, 'CAT') || 'de ' ||
trim(to_char (data,'month','NLS_DATE_LANGUAGE=CATALAN')) || ' de ' ||
numero_a_texto (to_char (data,'rrrr'),2, 'CAT')) into result from dual;
elsif idioma = 'ESP' then
select lower(numero_a_texto (to_char (data,'dd'),2, 'ESP') || 'de ' ||
trim(to_char (data,'month','NLS_DATE_LANGUAGE=SPANISH')) || ' de ' ||
numero_a_texto (to_char (data,'rrrr'),2, 'ESP')) into result from dual;
end if;
return(Result);
end data_a_text;

Espero que os sean útiles :P

Que versión de Oracle Forms usas?