جرب و قولى رأيك :

Select To_char(To_Date('5535','J'),'JSP') As Func
From Dual;

بالتوفيق

السلام عليكم
اخي ولو ما فيها ازعاج ... شو معنى كلمة (( تفقيط )) ؟؟!!

اخي التفقيط هو تحويل الارقام الى كلام بمعنى تحويل الرقم 5 الى خمسة كتابيا

مشكور يارك الله فيك اخي

السلام عليكم
جزاك الله خيرا وجعله في ميزان حسناتك


بس هل يمكن جعل التفقيط بالغة العربية


وبالتوفيق

شكرا جزيلا على الكود الجميل
كان فى استفسار صغير كان اتطلب منى عمل تفقيط للمبلغ اللى هيظهر لإجمالى الفاتوره
وطبعا المبلغ كبير ووقد قمت بتجريب الكود الملحق فوجدته يقف عند رقم

ORA-01854: julian date must be between 1 and 5373484

أى لايمكن كتابه اكثر من هذا الرقم فى عمليه التفقيط

واستفسار آخر كيفيه عمل الكود فى Report Builder
وجزاك الله عنا كل خير
وجعله الله فى ميزان حسناتك

جميل الكود شكرا جزيلا

ماشاء الله رائعة جدا ولكن ما ذا لو أدخل المستخدم هذا الرقم؟


1 Select To_char(To_Date('12345678','J'),'JSP') As Func
2* From Dual
QL> /
elect To_char(To_Date('12345678','J'),'JSP') As Func
*
RROR at line 1:
RA-01830: date format picture ends before converting entire input string

سلام عليكم ورحمه الله

أنظر الى هذا لنك

سيكون فيه الافاده ان شاء الله
http://www.araboug.org/ib/index.php?showtopic=4389&hl=

السلام عليكم

أليكم تفقيط باللغه الانجليزيه

التفقيط هى داله :
تدعم الارقام بالمليون و المليار وحتى .....
100,000,000,000,000,000.00
تدعم الكسور و تقريبها
تدعم الإشاره بالسالب

[left]
CREATE OR REPLACE FUNCTION taf (n IN NUMBER)
  RETURN VARCHAR2
IS
  num           NUMBER;
  v_num         VARCHAR2 (100);
  v_num1        NUMBER;                                           --thousand
  v_num2        NUMBER;                                            --Million
  v_num3        NUMBER;                                            --Billion
  v_num4        NUMBER;                                           --Trillion
  v_num5        NUMBER;                                        --Quadrillion
  v_mark        NUMBER;
  p_mark        NUMBER;
  len_num       NUMBER;
  v_fraction    NUMBER;
  v_num_char    VARCHAR2 (4000);
  v_num_char1   VARCHAR2 (2000);                                  --thousand
  v_num_char2   VARCHAR2 (2000);                                   --Million
  v_num_char3   VARCHAR2 (2000);                                   --Billion
  v_num_char4   VARCHAR2 (2000);                                  --Trillion
  v_num_char5   VARCHAR2 (2000);                               --Quadrillion
  v_frc_char    VARCHAR2 (2000);                                  --fraction
  v_taf         VARCHAR2 (4000);
  v_tot_taf     VARCHAR2 (4000);
BEGIN num := ROUND (ABS (n), 2);
  v_mark := INSTR (num, '.');

  IF v_mark = 0
  THEN
     p_mark := LENGTH (num);
  ELSE
     p_mark := v_mark - 1;
  END IF;

  len_num := NVL (LENGTH (SUBSTR (num, 1, p_mark)), 0);

  IF len_num <= 18
  THEN
     v_num := LPAD (SUBSTR (num, 1, p_mark), 18, 0);
     v_num1 := ROUND (SUBSTR (v_num, -6, 6));
     v_num2 := ROUND (SUBSTR (v_num, -9, 3));
     v_num3 := ROUND (SUBSTR (v_num, -12, 3));
     v_num4 := ROUND (SUBSTR (v_num, -15, 3));
     v_num5 := ROUND (SUBSTR (v_num, -18, 3));

     --thousand
     IF v_num1 = 0 OR v_num1 IS NULL
     THEN
        v_num_char1 := '';
     ELSE
        SELECT TO_CHAR (TO_DATE (v_num1, 'j'), 'jsp')
          INTO v_num_char1 FROM DUAL;
     END IF;

--Million
     IF v_num2 = 0 OR v_num2 IS NULL
     THEN
        v_num_char2 := '';
     ELSE
        SELECT TO_CHAR (TO_DATE (v_num2, 'j'), 'jsp') || ' Million'
          INTO v_num_char2 FROM DUAL;
     END IF;

     --Billion
     IF v_num3 = 0 OR v_num3 IS NULL
     THEN
        v_num_char3 := '';
     ELSE
        SELECT TO_CHAR (TO_DATE (v_num3, 'j'), 'jsp') || ' Billion'
          INTO v_num_char3 FROM DUAL;
     END IF;

     --Trillion
     IF v_num4 = 0 OR v_num4 IS NULL
     THEN
        v_num_char4 := '';
     ELSE
        SELECT TO_CHAR (TO_DATE (v_num4, 'j'), 'jsp') || ' Trillion'
          INTO v_num_char4 FROM DUAL;
     END IF;

     --Quadrillion
     IF v_num5 = 0 OR v_num5 IS NULL
     THEN
        v_num_char5 := '';
     ELSE
        SELECT TO_CHAR (TO_DATE (v_num5, 'j'), 'jsp') || ' Quadrillion'
          INTO v_num_char5 FROM DUAL;
     END IF;

--fraction
     IF v_mark = 0
     THEN
        v_fraction := '';
     ELSE
        v_mark := INSTR (num, '.') + 1;
        v_fraction := RPAD (SUBSTR (num, v_mark, LENGTH (num)), 2, 0);

        SELECT DECODE (TO_CHAR (TO_DATE (v_fraction, 'j'), 'jsp'),
                       'one', 'one' || ' Piastre',
                          TO_CHAR (TO_DATE (v_fraction, 'j'), 'jsp')
                       || ' Piastres'
                      )
          INTO v_frc_char FROM DUAL;
     END IF;

     v_taf :=
        TRIM (   v_num_char5
              || ' '
              || v_num_char4
              || ' '
              || v_num_char3
              || ' '
              || v_num_char2
              || ' '
              || v_num_char1
             );

     IF v_taf IS NULL
     THEN
        v_taf := '';
     ELSIF v_taf = 'one'
     THEN
        v_taf := 'one' || ' Pound';
     ELSE
        v_taf := v_taf || ' Pounds';
     END IF;

     IF v_mark = 0
     THEN
        v_tot_taf := v_taf;
     ELSIF v_taf IS NULL
     THEN
        v_tot_taf := v_frc_char;
     ELSE
        v_tot_taf := v_taf || ' and ' || v_frc_char;
     END IF;

     IF SIGN (n) = -1
     THEN
        RETURN ('( ' || v_tot_taf || ' )');
     ELSE
        RETURN (v_tot_taf);
     END IF;
  ELSE
     RETURN ('The Function No Support This Number');
  END IF;
END;
/[/left]

function_TAF_ENG.txt

SELECT taf (9876543210.12) spell_number  FROM DUAL SELECT taf (-9876543210.12) spell_number  FROM DUAL

شكرا لك بس كيف اضع هذا الكود