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

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

صورة
- - - - -

ارجاع الارقام باللغة الانجليزية


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

#1 nael14

nael14

    مشترك

  • الأعضــاء
  • 173 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 01 November 2008 - 11:40 AM

السلام عليكم
هذة الfunction يمكن ان تستخدم في تقاريرك أو الشاشات لارجاع الارقام باللغة الانجليزية


CREATE OR REPLACE FUNCTION NUMTOCHAR (MNUM IN NUMBER) RETURN VARCHAR2 IS
TCHAR VARCHAR2(16);
MCHAR VARCHAR2(255);
BEGIN TCHAR:=TO_CHAR(MNUM,'099999999999.99');
IF TO_NUMBER(SUBSTR(TCHAR,1,4)) <> 0 THEN
MCHAR:=MCHAR||TO_CHAR(TO_DATE(TO_NUMBER(SUBSTR(TCHAR,1,4)),'J'),'JSP')|| ' BILLION ';
END IF;
IF TO_NUMBER(SUBSTR(TCHAR,5,3)) <> 0 THEN
MCHAR:=MCHAR||TO_CHAR(TO_DATE(TO_NUMBER(SUBSTR(TCHAR,5,3)),'J'),'JSP')|| ' MILLION ';
END IF;
IF TO_NUMBER(SUBSTR(TCHAR,8,3)) <> 0 THEN
MCHAR:=MCHAR||TO_CHAR(TO_DATE(TO_NUMBER(SUBSTR(TCHAR,8,3)),'J'),'JSP')|| ' THOUSAND ';
END IF;
IF TO_NUMBER(SUBSTR(TCHAR,11,3)) <> 0 THEN
MCHAR:=MCHAR||TO_CHAR(TO_DATE(TO_NUMBER(SUBSTR(TCHAR,11,3)),'J'),'JSP')||' ';
END IF;
IF TO_NUMBER(SUBSTR(TCHAR,15,2)) <> 0 THEN
MCHAR:=MCHAR||'AND PAISA '||TO_CHAR(TO_DATE(TO_NUMBER(SUBSTR(TCHAR,15,2)),'J'),'JSP')||' ';
END IF;
IF MCHAR IS NOT NULL THEN
MCHAR:=MCHAR||'ONLY';
END IF;
RETURN MCHAR;
END

;


بعد ما يتم عمل create لها جرب المثال الاتي

select NUMTOCHAR(154756798311) from dual

واليك النتيجة:
ONE HUNDRED FIFTY-FOUR BILLION SEVEN HUNDRED FIFTY-SIX MILLION SEVEN HUNDRED NINETY-EIGHT THOUSAND THREE HUNDRED ELEVEN ONLY

تم التعديل بواسطة nael14, 01 November 2008 - 11:45 AM.

(يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عظيم * يَوْمَ تَرَوْنَهَا تَذْهَلُ كُلُّ مُرْضِعَةٍ عَمَّا أَرْضَعَتْ وَتَضَعُ كُلُّ ذَاتِ حَمْلٍ حَمْلَهَا وَتَرَى النَّاسَ سُكَارَى وَمَا هُمْ بِسُكَارَى وَلَكِنَّ عَذَابَ اللَّهِ شَدِيدٌ)


What a fool believes he sees, no wise man has the power to reason away...


صورة


منذ ولدت و أنت تفخر بالاسلام ..... فمتى يفخر الاسلام بك

OCA/OCP DEVELOPER



المدونة الشخصية بعيدة عن طبيعة عملي