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

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

صورة
* * * * * 2 صوت

اجمل كود للتفقيط الى العربي


41 رد (ردود) على هذا الموضوع

#1 jadquraan

jadquraan

    عضو نشط

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

تاريخ المشاركة 08 August 2009 - 05:06 PM

السلام عليكم

لاحظت ان الكثير يبحث عن كود مرن وقوي لعملية التفقيط

اهديكم هذا الكود

طبعا يتكون من 2 function

سأقوم بإرفاق functions في المرفقات

طبعا هذا الكود يقبل لغاية 9999999999999999999999999999999999999999 اي 41 خانة اي ما يعادل

تسعة مائة وتسعة وتسعون فيمتون وتسعة مائة وتسعة وتسعون تسرسليون وتسعة مائة وتسعة وتسعون سرسليون وتسعة مائة وتسعة وتسعون فريليون وتسعة مائة وتسعة وتسعون تريليون وتسعة مائة وتسعة وتسعون مليار وتسعة مائة وتسعة وتسعون مليون وتسعة مائة وتسعة وتسعون ألف وتسعة مائة وتسعة وتسعون

الـ function الاول

CREATE OR REPLACE Function Digits3_Word( nNum Number ) Return Varchar2 IS
	vReturn	 Varchar2(500) := NULL;
	Digit3	  Number := 0;
	i1		  Number := 0;
	j1		  Number := 0;
	k1		  Number := 0;
	nInNum	  Number := 0;
	vTemp	   Varchar2(50) := NULL;
	Type Digit1Array is table of Varchar2(50);
	Type Digit2Array is table of Varchar2(50);
	Type Digit3Array is table of Varchar2(50);
	--
	Digit1Str Digit1Array := Digit1Array('واحد',
								'إثنان',
								'ثلاثة',
								'أربعة',
								'خمسة',
								'ستة',
								'سبعة',
								'ثمانية',
								'تسعة',
								'عشرة',
								'إحدى عشرة',
								'إثنا عشر',
								'ثلاثة عشر',
								'أربعة عشر',
								'خمسة عشر',
								'ستة عشر',
								'سبعة عشر',
								'ثمانية عشر',
								'تسعة عشر'
							   ); 
	Digit2Str Digit2Array := Digit2Array('',
								'عشرون',
								'ثلاثون',
								'أربعون',
								'خمسون',
								'ستون',
								'سبعون',
								'ثمانون',
								'تسعون'
							   );
	Digit3Str Digit3Array := Digit3Array('مائة',
								'مائتان',
								'ثلاث مائة',
								'أربع مائة',
								'خمس مائة',
								'ست مائة',
								'سبع مائة',
								'ثمان مائة',
								'تسعة مائة'
							   );
	Begin
	  nInNum := nNum;
	  If nInNum>999 Then
		nInNum := 0;
	  End If;
	  vTemp  := LPAD( To_Char( nInNum ), 3, 0 );
	  Digit3 := To_Number( SubStr( vTemp, 1, 1 ) );
	  If Digit3>0 Then
		vReturn := Digit3Str( Digit3 );
	  End If;
	  i1 := To_Number( SubStr( vTemp, 2, 2 ) );
	  j1 := To_Number( SubStr( vTemp, 2, 1 ) );
	  k1 := To_Number( SubStr( vTemp, 3, 1 ) );
	  If Digit3>0 AND (j1>0 OR k1>0) Then
		vReturn := vReturn||' و';
	  End If;
	  If i1>0 and i1<20 Then
		vReturn := vReturn||Digit1Str(i1);
	  End If;
	  If j1>=2 Then
		If k1>0 Then
		  vReturn := vReturn||Digit1Str(k1)||' &#1608;';
		End If;
		vReturn := vReturn||Digit2Str(j1);
	  End If;
	  If nInNum=0 Then
		vReturn := '&#1589;&#1601;&#1585;';
	  End If;
	  Return vReturn;
	End Digits3_Word;


الـ function الثاني

CREATE OR REPLACE Function Tafqeet( nNum Number, vIntegerCurrency Varchar2 := '&#1583;&#1610;&#1606;&#1575;&#1585;', vDecimalCurrency Varchar2 := '&#1601;&#1604;&#1600;&#1600;&#1600;&#1600;&#1600;&#1600;&#1600;&#1600;&#1587;' ) Return Varchar2 IS
	  vReturn   Varchar2(1000);
	  nInNum	Number := 0;
	  nInteger  Number := 0;
	  nDecimal  Number := 0;
	  nDecimal_V  varchar2(10) :=null;
	  vChar	 Varchar2(100);
	  vTemp	 Number := 0;
	  Type	NamesArray is table of Varchar2(500);
	  NameStr NamesArray := NamesArray ( '',
									  '&#1571;&#1604;&#1601;',
									  '&#1605;&#1604;&#1610;&#1608;&#1606;',
									  '&#1605;&#1604;&#1610;&#1575;&#1585;',
									  '&#1578;&#1585;&#1610;&#1604;&#1610;&#1608;&#1606;',
									  '&#1601;&#1585;&#1610;&#1604;&#1610;&#1608;&#1606;',
									  '&#1587;&#1585;&#1587;&#1604;&#1610;&#1608;&#1606;',
									  '&#1578;&#1587;&#1585;&#1587;&#1604;&#1610;&#1608;&#1606;',
									  '&#1601;&#1610;&#1605;&#1578;&#1608;&#1606;'
									);
	Begin
	  nInNum   := ABS( nNum );
	  nInteger := Trunc( nInNum );
	  nDecimal := nInNum - nInteger;
	  nDecimal_V:=substr(to_char(nDecimal,'9D9999'),4,3);
	  vChar := To_Char( nInteger );
	  For I in 1..NameStr.Count Loop
		If vChar is NULL Then
		  Exit;
		End If;
		vTemp := To_Number( SubStr( vChar, (Length( vChar )-2), 3) );
		If vTemp>0 Then
		  vReturn := Digits3_Word( vTemp )||' '||NameStr( I )||' &#1608;'||vReturn;
		End If;
		vChar := SubStr( vChar, 1, ( Length( vChar )-3 ) );
	  End Loop;
	  vReturn := SubStr( vReturn, 1, ( Length( vReturn )-1 ) );
	  vReturn := LTrim(RTrim(vReturn));
	  If nNum>=1000 and nNum<2000 Then
		vReturn := SubStr( vReturn, 5, Length( vReturn ) );
	  End If;
	  If nNum>=2000 and nNum<3000 Then
		vReturn := '&#1571;&#1604;&#1601;&#1575;&#1606;'||SubStr( vReturn, 11, Length( vReturn ) );
	  End If;
	  If nNum>=3000 and nNum<=10000 Then
		vReturn := SubStr( vReturn,1,(INSTR( vReturn,'&#1571;&#1604;&#1575;&#1601;' )-1) )||
					'&#1571;&#1604;&#1601;'||
					SubStr( vReturn, (INSTR( vReturn, '&#1571;&#1604;&#1601;')+3), Length( vReturn ) );
	  End If;
	  vReturn := LTrim(RTrim(vReturn));
	  If nDecimal>0 Then
	  if vDecimalCurrency is  null then
		vReturn := vReturn||' '||vIntegerCurrency||' &#1608; &#1601;&#1604;&#1600;&#1600;&#1600; '|| nDecimal_v || ' &#1600;&#1600;&#1587;'  || ' &#1601;&#1602;&#1591; &#1604;&#1575; &#1594;&#1610;&#1585;';
		else
		vReturn := vReturn||' '||vIntegerCurrency||' &#1608; '|| nDecimal_v || ' ' || vDecimalCurrency  || ' &#1601;&#1602;&#1591; &#1604;&#1575; &#1594;&#1610;&#1585;';
		end if;
	  Else
		vReturn := vReturn||' '||vIntegerCurrency || ' &#1601;&#1602;&#1591; &#1604;&#1575; &#1594;&#1610;&#1585;';
	  End If;
	  If nInteger>0 Then
		vReturn := vReturn;
	  ElsIf nInteger=0 and nDecimal>0  Then
				   
	  if vDecimalCurrency is  null then
	  vReturn:=nDecimal;
		vReturn :=  '&#1601;&#1604;&#1600;&#1600; '||  nDecimal_v || ' &#1600;&#1600;&#1587; ' || ' &#1601;&#1602;&#1591; &#1604;&#1575; &#1594;&#1610;&#1585;';
		else
		vReturn := nDecimal_v || ' ' || vDecimalCurrency || '&#1601;&#1602;&#1591; &#1604;&#1575; &#1594;&#1610;&#1585;';
		
		end if;
		else
		
		vReturn:='&#1589;&#1601;&#1585; '||vIntegerCurrency || ' &#1601;&#1602;&#1591; &#1604;&#1575; &#1594;&#1610;&#1585;';
	  
	  End If;
	  Return (LTrim(RTrim(vReturn)));
	End Tafqeet;


امثله على طريقة استدعاء عملية التفقيط

select Tafqeet(1524552) from dual;
&#1608;&#1575;&#1581;&#1583; &#1605;&#1604;&#1610;&#1608;&#1606; &#1608;&#1582;&#1605;&#1587; &#1605;&#1575;&#1574;&#1577; &#1608;&#1571;&#1585;&#1576;&#1593;&#1577; &#1608;&#1593;&#1588;&#1585;&#1608;&#1606; &#1571;&#1604;&#1601; &#1608;&#1582;&#1605;&#1587; &#1605;&#1575;&#1574;&#1577; &#1608;&#1573;&#1579;&#1606;&#1575;&#1606; &#1608;&#1582;&#1605;&#1587;&#1608;&#1606; &#1583;&#1610;&#1606;&#1575;&#1585; &#1601;&#1602;&#1591; &#1604;&#1575; &#1594;&#1610;&#1585;

select Tafqeet(1524552.525) from dual;
&#1608;&#1575;&#1581;&#1583; &#1605;&#1604;&#1610;&#1608;&#1606; &#1608;&#1582;&#1605;&#1587; &#1605;&#1575;&#1574;&#1577; &#1608;&#1571;&#1585;&#1576;&#1593;&#1577; &#1608;&#1593;&#1588;&#1585;&#1608;&#1606; &#1571;&#1604;&#1601; &#1608;&#1582;&#1605;&#1587; &#1605;&#1575;&#1574;&#1577; &#1608;&#1573;&#1579;&#1606;&#1575;&#1606; &#1608;&#1582;&#1605;&#1587;&#1608;&#1606; &#1583;&#1610;&#1606;&#1575;&#1585; &#1608; 525 &#1601;&#1604;&#1600;&#1600;&#1600;&#1600;&#1600;&#1600;&#1600;&#1600;&#1587; &#1601;&#1602;&#1591; &#1604;&#1575; &#1594;&#1610;&#1585;

select Tafqeet(1524552,'&#1585;&#1610;&#1575;&#1604;','&#1607;&#1604;&#1604;&#1607;') from dual;
&#1608;&#1575;&#1581;&#1583; &#1605;&#1604;&#1610;&#1608;&#1606; &#1608;&#1582;&#1605;&#1587; &#1605;&#1575;&#1574;&#1577; &#1608;&#1571;&#1585;&#1576;&#1593;&#1577; &#1608;&#1593;&#1588;&#1585;&#1608;&#1606; &#1571;&#1604;&#1601; &#1608;&#1582;&#1605;&#1587; &#1605;&#1575;&#1574;&#1577; &#1608;&#1573;&#1579;&#1606;&#1575;&#1606; &#1608;&#1582;&#1605;&#1587;&#1608;&#1606; &#1585;&#1610;&#1575;&#1604; &#1601;&#1602;&#1591; &#1604;&#1575; &#1594;&#1610;&#1585;

select Tafqeet(1524552.656,'&#1585;&#1610;&#1575;&#1604;','&#1607;&#1604;&#1604;&#1607;') from dual;
&#1608;&#1575;&#1581;&#1583; &#1605;&#1604;&#1610;&#1608;&#1606; &#1608;&#1582;&#1605;&#1587; &#1605;&#1575;&#1574;&#1577; &#1608;&#1571;&#1585;&#1576;&#1593;&#1577; &#1608;&#1593;&#1588;&#1585;&#1608;&#1606; &#1571;&#1604;&#1601; &#1608;&#1582;&#1605;&#1587; &#1605;&#1575;&#1574;&#1577; &#1608;&#1573;&#1579;&#1606;&#1575;&#1606; &#1608;&#1582;&#1605;&#1587;&#1608;&#1606; &#1585;&#1610;&#1575;&#1604; &#1608; 656 &#1607;&#1604;&#1604;&#1607; &#1601;&#1602;&#1591; &#1604;&#1575; &#1594;&#1610;&#1585;

select Tafqeet(1524552.658,'&#1583;&#1608;&#1604;&#1575;&#1585;','&#1587;&#1606;&#1578;') from dual;
&#1608;&#1575;&#1581;&#1583; &#1605;&#1604;&#1610;&#1608;&#1606; &#1608;&#1582;&#1605;&#1587; &#1605;&#1575;&#1574;&#1577; &#1608;&#1571;&#1585;&#1576;&#1593;&#1577; &#1608;&#1593;&#1588;&#1585;&#1608;&#1606; &#1571;&#1604;&#1601; &#1608;&#1582;&#1605;&#1587; &#1605;&#1575;&#1574;&#1577; &#1608;&#1573;&#1579;&#1606;&#1575;&#1606; &#1608;&#1582;&#1605;&#1587;&#1608;&#1606; &#1583;&#1608;&#1604;&#1575;&#1585; &#1608; 658 &#1587;&#1606;&#1578; &#1601;&#1602;&#1591; &#1604;&#1575; &#1594;&#1610;&#1585;


دمتم بخير

ملفات مرفقة

  • ملف مرفق  Tafqeet.rar   1.56كيلو   803 عدد مرات التحميل

تم التعديل بواسطة jadquraan, 08 August 2009 - 05:07 PM.



إذا أعجبك قولي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين والمسلمات ما تقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..


اخوكم جاد القرعان
الأردن- الطفيلة
مبرمج نظم
جامعة الطفيلة التقنية
vb6,vb.net,aspx with ajax,oracle 10g (sql,plsql,forms,reports) ,
oracle database administrator(DBA)
oracle application server administrator
web application administrator
jadquraan@yahoo.com
jadquraan@ttu.edu.jo
00962777935393

CV


#2 ORA-2008

ORA-2008

    مشترك

  • الأعضــاء
  • 192 مشاركة
  • البـلـد: Country Flag
  • الاهتمامات:FLY 4 EVER
    http://www.i3lani.co.cc

تاريخ المشاركة 08 August 2009 - 05:32 PM

مرحبــــا
شكـــــــــــــــــــــــرا يا حلـــــــــــــــــــــــــــو
صورة

#3 jadquraan

jadquraan

    عضو نشط

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

تاريخ المشاركة 08 August 2009 - 05:41 PM

العفو اخي
هذا اقل واجب


إذا أعجبك قولي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين والمسلمات ما تقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..


اخوكم جاد القرعان
الأردن- الطفيلة
مبرمج نظم
جامعة الطفيلة التقنية
vb6,vb.net,aspx with ajax,oracle 10g (sql,plsql,forms,reports) ,
oracle database administrator(DBA)
oracle application server administrator
web application administrator
jadquraan@yahoo.com
jadquraan@ttu.edu.jo
00962777935393

CV


#4 Ahmad.Hasan

Ahmad.Hasan

    مشرف قسم الـ Forms & Reports والمشاريع

  • فريق الإشراف
  • 4,871 مشاركة
  • الاسم الأول:Ahmad
  • اسم العائلة:Hasan
  • البـلـد: Country Flag
  • المنصب الحالي:Oracle HCM Consultant

تاريخ المشاركة 10 August 2009 - 01:29 PM

ماشاءالله..مجهود رائع أخي جاد...
بارك الله فيــــــــك...
تحياتي

.Oracle E-Business Suite R12 HCM Certified Implementation Specialist

 

.Oracle Fusion Human Capital Management 11g Human Resources Certified Implementation Specialist

 


#5 abdu1_far

abdu1_far

    عضو نشط

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

تاريخ المشاركة 11 August 2009 - 09:37 AM

بجد تسلم أيدك
ربنا يجزيك خير
قال رسول الله صلى الله عليه وسلم "إن لله عز وجل عباداً أختصهم بقضاء حوائج الناس ، حببهم إلي الخير وحبب الخير إليهم
هم الاّمنون من عذاب الله يوم القيامة " أوكما قال صلى الله عليه وسلم

#6 MR.DIAB

MR.DIAB

    مشترك

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

تاريخ المشاركة 11 August 2009 - 11:21 AM

جزاك الله عنا كل خير

(اللهم حرر بيت المقدس ..اللهم بلغنا رمضان.. ، وارزقنا حج بيتك..)


!!! We must do more to save Palestine



BOYCOTT every thing related to Israel



Mr.DIAB

Oracle Techno Functional Consultant


#7 جلال شواقفه

جلال شواقفه

    عضو مميز

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

تاريخ المشاركة 11 August 2009 - 03:42 PM

شكرا جزيلا
ارجو من يستفيد من مشاركاتي الدعاء لوالدي ولاموات المسلمين بالمغفره والرحمه......

جلال محمود شواقفه
مدير دائرة الحاسوب
بلدية المفرق الكبرى
المملكه الاردنيه الهاشميه.

#8 weloooo

weloooo

    مشرف

  • فريق الإشراف
  • 249 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 19 August 2009 - 02:07 PM

السلام عليكم.

جزاك الله خيرا.

أحمد يحيى


Oracle Apps Senior Technical Consultant


#9 حسن ماستر

حسن ماستر

    عضو

  • الأعضــاء
  • 33 مشاركة

تاريخ المشاركة 23 August 2009 - 10:46 PM

تسلم

#10 misho911

misho911

    عضو

  • الأعضــاء
  • 9 مشاركة

تاريخ المشاركة 25 August 2009 - 12:11 PM

شكرا على المجهود
و لكن هناك مشكلة بالكود
من 3000 الى 10000 لا يعمل بشكل صحيح


[وسط]فلسطين الحبيبة ... كيف أغفوا وفي عينيّ أطياف العذاب....؟؟!!

[/وسط]

#11 jadquraan

jadquraan

    عضو نشط

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

تاريخ المشاركة 07 October 2009 - 12:11 AM

هذا الكود انا استخدمه في انظمتي وهي تتعامل مع مبالغ كبيرة ويتكرر فيها التعامل مع الفترة المحددة من قبلك ولكن لم يشتكي اي من المستفيدين من ذلك

لكن سأتفقده قد يكون يحتوي على خطأ


إذا أعجبك قولي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين والمسلمات ما تقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..


اخوكم جاد القرعان
الأردن- الطفيلة
مبرمج نظم
جامعة الطفيلة التقنية
vb6,vb.net,aspx with ajax,oracle 10g (sql,plsql,forms,reports) ,
oracle database administrator(DBA)
oracle application server administrator
web application administrator
jadquraan@yahoo.com
jadquraan@ttu.edu.jo
00962777935393

CV


#12 mmsalman87

mmsalman87

    عضو مميز

  • الأعضــاء
  • 1,689 مشاركة
  • الاسم الأول:Maher
  • اسم العائلة:Salman
  • البـلـد: Country Flag
  • المنصب الحالي:Senior Oracle HCM SaaS Pre Sale Consultant

تاريخ المشاركة 07 October 2009 - 08:16 AM

مشكور على المجهود الرائع

                                                                                             

                                                                                                                  Maher Salman

• Oracle Fusion Human Capital Management 11g Human Resources Certified Implementation Specialist 

Taleo (TEE): Onboarding Administration Ed 3 LVC, Oracle University.

• Taleo (TBE): Recruit Essentials Ed 4.1 LVC, Oracle University.

• Oracle Fusion HCM Implementation, Oracle University.

• Oracle Certified Professional Developer (OCP) - Oracle Forms: Build Internet Applications.

• Oracle Certified Associate Developer (OCA).

• Oracle E-Business Suite R12 Human Capital Management Certified Implementation Specialist (HCM)

                                                                                                                                        
                                                                                                           http://learnoracle.net                                                                                                                

                                                                                                                             
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------

أهم مواضيعي ( Oracle Developer )

- برنامج حفظ الكودات - My Codes

- كيفية عمل نظام متعدد اللغات

- انشاء شاشة دخول وتغيير كلمة السر والتحكم بالمستخدمين

- Import And Export On Toad

- التحكم في النظام من خلال الملف Formsweb.cfg

​- Advanced Dynamic List

- توليد ارقام وحروف عشوائية 

 

 

أهم مواضيعي ( Oracle HRMS)

 

Using Special Value set in oracle hrms 


#13 ahmed_fatthy

ahmed_fatthy

    مشترك

  • الأعضــاء
  • 69 مشاركة
  • الاسم الأول:ahmed
  • اسم العائلة:fatthy
  • البـلـد: Country Flag

تاريخ المشاركة 07 October 2009 - 11:18 AM

الأخ العزيز الكود فعلا لايعمل مع الأرقام من 3000 الي 10000 كما قال الأخ مشكورا
نرجو مراجعتة

akl_ahmed@ymail.com

restrict_programmer@yahoo.com


#14 Ahmed Zain

Ahmed Zain

    مشرف

  • فريق الإشراف
  • 261 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 07 October 2009 - 02:46 PM

السلام عليكم ورحمة الله وبركاته
بعد التحية
اخي فالله
وفقك الله الى ماتحب ويرضي
مجهود ممتاذ
اخوك فالله

اللهم صلي وسلم على نبينا محمد وعلى اله وصحبه اجمعين الى يوم الدين سلام طيبا مباركا فيه


يا ابن آدم:انما انت أيام...كلما مضى منك يوم مضى بعضك العمر يمضي ولا تدري متى ينتهي فهل عملت لآخرتك؟؟؟


﴿ كتبت وقد أيقنت يوم كتابتي بأن يدي تفنى ويبقى كتابها فإن كتبت خيراً ستجزى بمثله وإن كتبت شراً عليها حسابها ﴾

 




Ahmed Zain El-Abedeen Mohamed
Senior Oracle Developer


My C.V & Cover Latter


لا يؤخذ العلم من أربعة ويؤخذ ممن سوى ذلك ولا يؤخذ من سفيه ولا من صاحب هوى ولا ممن يكذب في أحاديث الناس ولا ممن لا يعرف ما يحدث به من حيث المصادر والاختيار


#15 khatab2010

khatab2010

    عضو

  • الأعضــاء
  • 20 مشاركة
  • الاسم الأول:Mohammad
  • اسم العائلة:Khattab
  • البـلـد: Country Flag

تاريخ المشاركة 07 October 2009 - 04:09 PM

الكود أكثر من رائع يا أخي العزيز
ولكن لايعمل فعلاً من رقم 3000 إلى 10000
أرجو مراجعة هذا الكود
If nNum>=3000 and nNum<=10000 Then
vReturn := SubStr( vReturn,1,(INSTR( vReturn,'&#1571;&#1604;&#1575;&#1601;' )-1) )||
'&#1571;&#1604;&#1601;'||
SubStr( vReturn, (INSTR( vReturn, '&#1571;&#1604;&#1601;')+3), Length( vReturn ) );
End If;


ولي سؤال أنا أريد عندما أكتب 1.20 تكون النتيجة واحد ريال و20 هللة وليس واحد ريال و200 هللة

تم التعديل بواسطة khatab2010, 07 October 2009 - 04:10 PM.