هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

2 مشترك

    كود التفقيت باللغة العربية

    MTSHAJALI
    avatar
    MTSHAJALI
    Admin


    عدد المساهمات : 35
    نقاط : 70
    تاريخ التسجيل : 12/07/2010
    العمر : 46
    • مساهمة رقم 1

    كود التفقيت باللغة العربية Empty كود التفقيت باللغة العربية

    مُساهمة من طرف MTSHAJALI الثلاثاء سبتمبر 28, 2010 4:03 pm

    يتكون من دالتين

    طبعا هذا الكود يقبل لغاية 9999999999999999999999999999999999999999 اي 41 خانة اي ما يعادل (تسعة مائة وتسعة وتسعون فيمتون وتسعة مائة وتسعة وتسعون تسرسليون وتسعة مائة وتسعة وتسعون سرسليون وتسعة مائة وتسعة وتسعون فريليون وتسعة مائة وتسعة وتسعون تريليون وتسعة مائة وتسعة وتسعون مليار وتسعة مائة وتسعة وتسعون مليون وتسعة مائة وتسعة وتسعون ألف وتسعة مائة وتسعة وتسعون )
    • الرجوع الى أعلى الصفحة
    MTSHAJALI
    avatar
    MTSHAJALI
    Admin


    عدد المساهمات : 35
    نقاط : 70
    تاريخ التسجيل : 12/07/2010
    العمر : 46
    • مساهمة رقم 2

    كود التفقيت باللغة العربية Empty الدالة الاولى

    مُساهمة من طرف MTSHAJALI الثلاثاء سبتمبر 28, 2010 4:03 pm

    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)||' و';
    End If;
    vReturn := vReturn||Digit2Str(j1);
    End If;
    If nInNum=0 Then
    vReturn := 'صفر';
    End If;
    Return vReturn;
    End Digits3_Word;
    • الرجوع الى أعلى الصفحة
    MTSHAJALI
    avatar
    MTSHAJALI
    Admin


    عدد المساهمات : 35
    نقاط : 70
    تاريخ التسجيل : 12/07/2010
    العمر : 46
    • مساهمة رقم 3

    كود التفقيت باللغة العربية Empty الدالة الثانية

    مُساهمة من طرف MTSHAJALI الثلاثاء سبتمبر 28, 2010 4:07 pm

    CREATE OR REPLACE Function Tafqeet( nNum Number, vIntegerCurrency Varchar2 := 'دينار', vDecimalCurrency Varchar2 := null ) 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 ( '',
    'ألف',
    'مليون',
    'مليار',
    'تريليون',
    'فريليون',
    'سرسليون',
    'تسرسليون',
    'فيمتون'
    );
    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 )||' و'||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 := ' ألفان '||SubStr( vReturn, 11, Length( vReturn ) );
    End If;
    If nNum>=3000 and nNum<=19999 Then
    /* vReturn := SubStr( vReturn,1,(INSTR( vReturn,' ألاف' )-1) )||
    ' ألف'||
    SubStr( vReturn, (INSTR( vReturn, ' ألف')+3), Length( vReturn ) );
    */
    vreturn:= replace(vReturn,'ألف','آلاف') ;
    End If;
    vReturn := LTrim(RTrim(vReturn));
    If nDecimal>0 Then
    if vDecimalCurrency is null then
    vReturn := vReturn||' '||vIntegerCurrency||' و فلـــ '|| nDecimal_v || ' ــس' || ' فقط لا غير';
    else
    vReturn := vReturn||' '||vIntegerCurrency||' و '|| nDecimal_v || ' ' || vDecimalCurrency || ' فقط لا غير';
    end if;
    Else
    vReturn := vReturn||' '||vIntegerCurrency || ' فقط لا غير';
    End If;
    If nInteger>0 Then
    vReturn := vReturn;
    ElsIf nInteger=0 and nDecimal>0 Then

    if vDecimalCurrency is null then
    vReturn:=nDecimal;
    vReturn := 'فلــ '|| nDecimal_v || ' ــس ' || ' فقط لا غير' ;
    else
    vReturn := nDecimal_v || ' ' || vDecimalCurrency || 'فقط لا غير' ;

    end if;
    else

    vReturn:='صفر '||vIntegerCurrency || ' فقط لا غير';

    End If;
    Return (LTrim(RTrim(vReturn)));
    End Tafqeet;


    عدل سابقا من قبل MTSHAJALI في الثلاثاء سبتمبر 28, 2010 4:14 pm عدل 1 مرات
    • الرجوع الى أعلى الصفحة
    MTSHAJALI
    avatar
    MTSHAJALI
    Admin


    عدد المساهمات : 35
    نقاط : 70
    تاريخ التسجيل : 12/07/2010
    العمر : 46
    • مساهمة رقم 4

    كود التفقيت باللغة العربية Empty امثلة على دالة التفقيت من حيث استدعائها وتمرير الارقام اليها

    مُساهمة من طرف MTSHAJALI الثلاثاء سبتمبر 28, 2010 4:09 pm

    select Tafqeet(1524552) from dual;
    واحد مليون وخمس مائة وأربعة وعشرون ألف وخمس مائة وإثنان وخمسون دينار فقط لا غير

    select Tafqeet(1524552.525) from dual;
    واحد مليون وخمس مائة وأربعة وعشرون ألف وخمس مائة وإثنان وخمسون دينار و 525 فلــــــــس فقط لا غير

    select Tafqeet(1524552,'ريال','هلله') from dual;
    واحد مليون وخمس مائة وأربعة وعشرون ألف وخمس مائة وإثنان وخمسون ريال فقط لا غير

    select Tafqeet(1524552.656,'ريال','هلله') from dual;
    واحد مليون وخمس مائة وأربعة وعشرون ألف وخمس مائة وإثنان وخمسون ريال و 656 هلله فقط لا غير

    select Tafqeet(1524552.658,'دولار','سنت') from dual;
    واحد مليون وخمس مائة وأربعة وعشرون ألف وخمس مائة وإثنان وخمسون دولار و 658 سنت فقط لا غير
    • الرجوع الى أعلى الصفحة
    نور
    نور
    نور


    عدد المساهمات : 30
    نقاط : 72
    تاريخ التسجيل : 09/07/2010
    العمر : 34
    الموقع : http://www.nabras2007.p2h.info/vb/index.php
    • مساهمة رقم 5

    كود التفقيت باللغة العربية Empty رد: كود التفقيت باللغة العربية

    مُساهمة من طرف نور الثلاثاء سبتمبر 28, 2010 9:31 pm

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

    تحياتي لك

    الله يعطيك العافية
    • الرجوع الى أعلى الصفحة

      الوقت/التاريخ الآن هو الجمعة مايو 17, 2024 10:38 am