Question

我在db。

中有一个要求

1）。表格ABC，栏目：check_amount number number(18,4)。这基本上包含例如的支票金额。 3000.50将支付给员工。

现在发出一个检查，该检查包含这个check_amount的数量和文本形式。对于eg.check将有：

pay to <emplyee_name> ****$3000.50**** ****THREE THOUSAND DOLLARS AND FIFTY CENTS****

我必须使用DB列值生成此文本并在检查时显示该文本。

任何人都可以帮助我，我怎样才能在oracle 11g中实现这一目标？

提示：我听说过Julien格式，但这不起作用。非常感谢任何建议。

从纳林

Answer 1

由于Julian格式仅适用于整数，因此您可以分隔小数部分，然后将Julian格式技巧应用于分隔的数字。这是一个简单的演示。

DECLARE
   x   NUMBER (8, 2) := 1253.5;
   y   NUMBER;
   z   NUMBER;
BEGIN
   y := FLOOR (x);
   z := 100 * (x - y);
   DBMS_OUTPUT.put_line (TO_CHAR (TO_DATE (y, 'j'), 'jsp'));

   IF (z > 0)
   THEN
      DBMS_OUTPUT.put_line (TO_CHAR (TO_DATE (z, 'j'), 'jsp'));
   END IF;
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.put_line ('err:' || SQLERRM);
END;

Answer 2

使用Julian dates时存在限制，其范围为1 to 5373484。这就是为什么如果你把值放在5373484之后，它会给你一个错误，如下所示：

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

为了解决上述问题，创建一个函数，并使用j-＆gt; jsp的小技巧，您可以获取所需的结果。

CREATE OR REPLACE FUNCTION spell_number (p_number IN NUMBER)
   RETURN VARCHAR2
AS
   TYPE myArray IS TABLE OF VARCHAR2 (255);
   v_decimal     PLS_INTEGER;

   l_str myArray
     := myArray ('',
                 ' thousand ',
                 ' million ',
                 ' billion ',
                 ' trillion ',
                 ' quadrillion ',
                 ' quintillion ',
                 ' sextillion ',
                 ' septillion ',
                 ' octillion ',
                 ' nonillion ',
                 ' decillion ',
                 ' undecillion ',
                 ' duodecillion ');

   l_num      VARCHAR2 (50) DEFAULT TRUNC (p_number);
   l_return   VARCHAR2 (4000);
BEGIN
  FOR i IN 1 .. l_str.COUNT
   LOOP
     EXIT WHEN l_num IS NULL;

      IF (SUBSTR (l_num, LENGTH (l_num) - 2, 3) <> 0)
      THEN
         l_return :=
            TO_CHAR (TO_DATE (SUBSTR (l_num, LENGTH (l_num) - 2, 3), 'J'),
                     'Jsp')
             || l_str (i)
             || l_return;
      END IF;

     l_num := SUBSTR (l_num, 1, LENGTH (l_num) - 3);
   END LOOP;

   v_decimal := 100* (p_number -TRUNC(p_number)) ;

   IF v_decimal>0 THEN 

       RETURN l_return ||' Dollars AND '||TO_CHAR (TO_DATE (v_decimal, 'j'), 'jsp')|| ' Cents';        


  ELSE

   RETURN l_return ||' Dollars' ;
  END IF;

END;
/

select  spell_number(122344343444444.23) from dual;

<强>输出：

一百二十二万亿三百四十四十四亿三百四十四百万四十四万四千四百四十四美元和二十三分钱Blog Link

将db列中的整数值转换为oracle中的文本

2 个答案: