PLSQL SUBSTR函数忽略尾随零

问题描述

select TO_NUMBER (SUBSTR(10.31,INSTR (10.31,'.') + 1)) from dual

以上查询返回31作为输出。但是下面的查询返回3作为输出。

select TO_NUMBER (SUBSTR(10.30,INSTR (10.30,'.') + 1)) from dual

如何获得30而不是3的输出？

解决方法

考虑到Oracle的SUBSTR函数应该在字符串而不是数字上运行，我实际上惊讶于您当前的查询甚至没有错误运行。话虽如此，如果您正确地将当前查询与字符串一起使用，那么它将起作用：

SELECT TO_NUMBER(SUBSTR('10.30',INSTR ('10.30','.') + 1)) FROM dual;  -- returns 30

执行此操作的一种更紧凑（虽然不一定性能更高）的方法可能是使用REGEXP_SUBSTR：

SELECT REGEXP_SUBSTR('10.30','[0-9]+$') FROM dual;

在存在小数点的情况下，这将仅保留出现在小数点后的数字。否则，它将只返回没有小数部分的输入的所有数字。

,

（从注释中）您似乎要从要转换为单词的数字值开始，应该先将其拆分为美元和美分。

如果您确实需要使用substr等，则可以以一种已知的格式开始，例如to_char(amount,'fm9990.00')，因此它将是一个字符串，该字符串恰好有两个小数位。但是，如果您具有数值，则使用算术函数将其转换为所需的单位会更容易。整美元为trunc(amount)，美分为100 * mod(amount,1)。

另一个问题是'Jsp'日期格式方法不能处理零。如果您使用的是Oracle 12.2或更高版本，则可以使用default on conversion error子句来解决：

create table demo
( amount number(6,2) );

insert into demo values (10.3);
insert into demo values (.25);
insert into demo values (25);

select amount,nvl(to_char(to_date(trunc(amount) default null on conversion error,'J'),'Jsp'),'Zero') as dollars,nvl(to_char(to_date(100 * mod(amount,1) default null on conversion error,'Zero') as cents
from   demo;

  AMOUNT DOLLARS      CENTS
-------- ------------ -------------
   10.30 Ten          Thirty
   25.00 Twenty-Five  Zero
    0.25 Zero         Twenty-Five

在12.1中，您可以使用内联函数解决该问题（即使在以后的版本中，也可能不是一个坏主意，以简化查询的其余部分）：

with
     function to_words(num number) return varchar2 as
     begin
         return
             case num
                 when 0 then 'Zero'
                 else to_char(to_date(num,'Jsp')
             end;
     end; 
select amount,to_words(trunc(amount)) as dollars,to_words(100 * mod(amount,1)) as cents
from   demo;

对于大于5373484（日期为'9999-12-31'的儒略表示）的值，可以从Ask Tom: Spell the number（在此处转换为WITH子句，但可以将其创建为独立函数）中使用）：

with function spell_number
    ( p_number in number )
    return varchar2
as
    -- Tom Kyte,2001:
    -- https://asktom.oracle.com/pls/asktom/f?p=100:11:0::::P11_QUESTION_ID:1407603857650
    l_num    varchar2(50) := trunc(p_number);
    l_return varchar2(4000);

    type myarray is table of varchar2(15);

    l_str myarray :=
        myarray
        ( '',' thousand ',' million ',' billion ',' trillion ',' quadrillion ',' quintillion ',' sextillion ',' septillion ',' octillion ',' nonillion ',' decillion ',' undecillion ',' duodecillion ');
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),'Jsp') || l_str(i) || l_return;
        end if;
        l_num := substr(l_num,1,length(l_num) - 3);
    end loop;

    return l_return;
end spell_number;
select amount,spell_number(trunc(amount)) as dollars,spell_number(100 * mod(amount,1)) as cents
from   demo
/