Here is a PL/SQL function that returns the integer passed to it as words. I’ll leave it as an excersize for the stupid, uh, I mean student, to use it to handle decimals and dollors/cents….

function to_words( i_this_number in number )
return varchar2
is

/*
Written by Joe Begenwald, 2005
anthony.j.begenwald@everestkc.net
*/

this_number varchar2(38) := to_char(i_this_number);
this_number_len number := length( this_number );
working_len number := length( this_number );
working_string varchar2(3);
pos number;

output_string varchar2(1000);
idx pls_integer := 1;

/*
the following list goes well past 38 digits.
the extra names are there just because I know them!
nothing past UNDECILLION will ever get used.
*/

type names_t is table of varchar2(100);
names names_t := names_t( null
,’thousand’
,’million’
,’billion’
,’trillion’
,’quadrillion’
,’quintillion’
,’sextillion’
,’septillion’
,’octillion’
,’nonillion’
,’decillion’
,’undecillion’
,’duodecillion’
,’tredecillion’
,’quattuordecillion’
,’quindecillion’
,’sexdecillion’
,’septendecillion’
,’octodecillion’
,’novemdecillion’
,’vigintillion’ );

begin
while working_len > 0
loop
if working_len > 2
then
pos := working_len – 2;
else
pos := 1;
end if;
working_string := substr( this_number, pos, least(working_len,3) );
working_len := working_len – length(working_string);

output_string := lower( to_char( trunc(sysdate) +
to_number(working_string)/86400, ‘SSSSSSP’ ) )
|| ‘ ‘ || names(idx) || ‘ ‘ || output_string;
idx := idx + 1;
end loop;
return output_string;
end to_words;

select decode( sign( &&num ), -1, ‘Negative ‘, 0, ‘Zero’, NULL ) ||
decode( sign( abs(&num) ), +1, to_char( to_date( abs(&num),’J'),’Jsp’) ) || ‘ Dollars Only’
from dual
/

Enjoy.

Nikunj

But this will not go beyond certain value.

And i have already writtern a function to print numbers in words.

I just want to know whether it is possible to do in in single query. Using decode function something like that.

Anyway thanks for your ideas.

Cheers!

For example, if you create a function called TO_WORDS, you can use

SELECT COL1, COL3, TO_WORD(CAL5), …

Here is a fast and comprehensive function for you:

—————————————————-
declare

t varchar2(1000 );

function to_words( i_this_number in number )
return varchar2
is

/*
Written by Joe Begenwald, 2005
anthony.j.begenwald@everestkc.net
*/

this_number varchar2(38) := to_char(i_this_number);
this_number_len number := length( this_number );
working_len number := length( this_number );
working_string varchar2(3);
pos number;

output_string varchar2(1000);
idx pls_integer := 1;

/*
the following list goes well past 38 digits.
the extra names are there just because I know them!
nothing past UNDECILLION will ever get used.
*/

type names_t is table of varchar2(100);
names names_t := names_t( null
,’thousand’
,’million’
,’billion’
,’trillion’
,’quadrillion’
,’quintillion’
,’sextillion’
,’septillion’
,’octillion’
,’nonillion’
,’decillion’
,’undecillion’
,’duodecillion’
,’tredecillion’
,’quattuordecillion’
,’quindecillion’
,’sexdecillion’
,’septendecillion’
,’octodecillion’
,’novemdecillion’
,’vigintillion’ );

begin

while working_len > 0
loop
if working_len > 2
then
pos := working_len – 2;
else
pos := 1;
end if;

working_string := substr( this_number, pos, least(working_len,3) );
working_len := working_len – length(working_string);

output_string := lower( to_char( trunc(sysdate) +
to_number(working_string)/86400, ‘SSSSSSP’ ) )
|| ‘ ‘ || names(idx) || ‘ ‘ || output_string;

idx := idx + 1;

end loop;

return output_string;

end to_words;

begin

dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 1 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 12 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 123 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 1234 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 12345 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 123456 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 1234567 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 12345678 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 123456789 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 1234567890 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 12345678901 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 123456789012 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 1234567890123 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 12345678901234 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 123456789012345 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 1234567890123456 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 12345678901234567 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 123456789012345678 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 1234567890123456789 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 12345678901234567890 ) );
dbms_output.put_line( ‘-’ );
dbms_output.put_line( to_words( 123456789012345678901 ) );

end;
—————————————————-

http://asktom.oracle.com/pls/ask/f?p=4950:8:11004214828373033368::NO::F4950_P8_DISPLAYID,F4950_P8_CRITERIA:1407603857650,

SQL>select to_char(to_date(112004,’J'), ‘JSP’) from dual;

SQL>ONE HUNDRED TWELVE THOUSAND FOUR

Regards
Srinivas.V