إنتقال للمحتوى

  • تسجيل الدخول عبر الفيس بوك تسجيل الدخول عبر تويتر Log In with LinkedIn Log In with Google      تسجيل دخول    
  • إنشاء حساب

صورة
- - - - -

تحويل الا رقا م الى حروف


لا توجد ردود على هذا الموضوع

#1 عبدالله أسعد

عبدالله أسعد

    مشرف سابق وعضو مميز

  • المجموعة الماسية
  • 1,194 مشاركة

تاريخ المشاركة 16 November 2004 - 01:32 AM

لو عا يز تحول من ارقا م 426 الى حروف اربع الاف وو ما ئتان و ستون بس بالا نجليزى طبعا


create or replace function moneyfunc(value number) return char is
num1 number(12,2);
num2 varchar2(20);
y number;
a varchar2(20);
temp number;
money number;
money_str varchar2(200);
t_str varchar2(200);
y1 number(12,2);
numx number(12,2);
numy number(12,2);
c1 varchar2(20);
d varchar2(20);
f number;
k number(2);
b varchar2(20);

begin num1 := value;
money := num1;
num1 := floor(num1/1000000000);
if num1 > 0 then

select to_char(to_date(num1,'j'),'jsp')
into num2 from dual; money_str := num2||' hundred ';
end if;

select mod(money,1000000000)
into num1 from dual; money := num1;
y := floor(num1/10000000);

if y > 0 then
select to_char(to_date(y,'j'),'jsp')
into a from dual; t_str := a;

money_str := money_str|| t_str||' crore(s) ';
num1 := mod(num1,10000000);

end if;
y := floor(num1/100000);

if y > 0 then

select to_char(to_date(y,'j'),'jsp')
into a from dual; t_str := a;
money_str := money_str||t_str||' lac ';

select mod(num1,100000)
into num1 from dual; end if;

y := floor(num1/1000);
if y > 0 then
select to_char(to_date(y,'j'),'jsp')
into b from dual; t_str := b;
money_str := money_str||t_str||' thousand ';

num1 := mod(num1,1000);

select to_char(to_date(floor(num1/100),'j'),'jsp')
into a from dual; t_str := a;

end if;
y := floor(num1/100);
if y > 0 then

select to_char(to_date(y,'j'),'jsp')
into a from dual; t_str := a;
money_str := money_str||t_str||' hundred and ';
num1 := mod(num1,100);

end if;

if num1 > 0 then
select floor(num1)
into temp from dual; num1 := temp;

select to_char(to_date(num1,'j'),'jsp')
into a from dual; t_str := a;
money_str := money_str||t_str;

end if;

y1 := money;
select instr(to_char(y1),'.')
into numy from dual; if numy > 0 then
select substr(y1,(numy+1),2)
into c1 from dual; select vsize(c1)
into k from dual; f := to_number(c1);
if k = 1 then
f := f * 10;
select to_char(to_Date(f,'j'),'jsp')
into d from dual; else
select to_char(to_date(f,'j'),'jsp')
into d from dual; end if;

return('Rupee(s) '||money_str||' and '||d||' paise only');
else
return('Rupee(s) '||money_str||' only' );
end if;
end;



تم إضافة الملف بالمرفقات
إدارة المنتدي

ملفات مرفقة

  • ملف مرفق  tafkeet_e.txt   3.03كيلو   327 عدد مرات التحميل

الدعاء نجى يونس وأهلك قوم نوح ورفع قدر سليمان وأظهر دين محمد عليه الصلاة و السلام فلا تتردد و قل يارب يارب يارب
Oracle DBA@Amig.com.eg