数字金额大小写转换

数字金额大小写转换

大家好,又见面了,我是全栈君,今天给大家准备了Idea注册码。

数字金额大小写转换此处内容已经被作者隐藏,请输入验证码查看内容
验证码:
请关注本站微信公众号,回复“”,获取验证码。在微信里搜索“”或者“”或者微信扫描右侧二维码都可以关注本站微信公众号。

有些时候,需要打印的凭证实现资本额多次,例如

数字金额大小写转换

有多种写法来实现

比如一下几种

CREATE OR REPLACE FUNCTION chinese_number_program(p_input FLOAT)
   RETURN VARCHAR2 AS

   TYPE typ_money IS TABLE OF VARCHAR2(20);
   c_numbers        typ_money := typ_money('零',
                                           '壹',
                                           '贰',
                                           '叁',
                                           '肆',
                                           '伍',
                                           '陆',
                                           '柒',
                                           '捌',
                                           '玖');
   c_unit           typ_money := typ_money('分',
                                           '角',
                                           '圆',
                                           '拾',
                                           '佰',
                                           '仟',
                                           '万',
                                           '拾',
                                           '佰',
                                           '仟',
                                           '亿',
                                           '拾',
                                           '佰',
                                           '仟',
                                           '兆',
                                           '拾',
                                           '佰',
                                           '仟');
   v_array_money    typ_money := typ_money();
   chinese_number   VARCHAR2(30);
   RESULT           VARCHAR2(1000);
   v_number         INTEGER;
   v_number_element INTEGER;
   i                INT;
BEGIN
   IF (p_input >= power(10, 16)) THEN
      RESULT := '超出计算范围';
      RETURN RESULT;
   END IF;
   v_number := round(p_input * 100);

   i := 1;
   v_array_money.extend(1);
   v_array_money(v_array_money.count) := '整';

   WHILE v_number > 0 LOOP
      v_number_element := MOD(v_number, 10);
      IF (v_number_element = 0) THEN
         IF i IN (3, 7, 11, 15) THEN
            chinese_number := c_unit(i);
         ELSE
            chinese_number := c_numbers(v_number_element + 1);
         END IF;
      ELSE
         chinese_number := c_numbers(v_number_element + 1) || c_unit(i);
      END IF;
   
      CASE
         WHEN chinese_number = '零' THEN
            IF (v_array_money(v_array_money.count) NOT IN
               ('整', '零', '圆', '万', '亿', '兆')) THEN
               v_array_money.extend(1);
               v_array_money(v_array_money.count) := chinese_number;
            END IF;
         WHEN chinese_number LIKE '%亿' THEN
            IF (v_array_money(v_array_money.count) IN ('万')) THEN
               v_array_money(v_array_money.count) := chinese_number;
            ELSE
               v_array_money.extend(1);
               v_array_money(v_array_money.count) := chinese_number;
            END IF;
         WHEN chinese_number LIKE '%兆' THEN
            IF (v_array_money(v_array_money.count) IN ('万', '亿')) THEN
               v_array_money(v_array_money.count) := chinese_number;
            ELSE
               v_array_money.extend(1);
               v_array_money(v_array_money.count) := chinese_number;
            END IF;
         ELSE
            v_array_money.extend(1);
            v_array_money(v_array_money.count) := chinese_number;
      END CASE;
      v_number := floor(v_number / 10);
      i        := i + 1;
   END LOOP;
   FOR i IN v_array_money.first .. v_array_money.last LOOP
      RESULT := v_array_money(i) || RESULT;
   END LOOP;

   RETURN RESULT;
END;

#import <Foundation/Foundation.h>
#import <stdio.h>

void print( NSArray *array ) {
    int i;
    for (i=0;i<[array count];i++)
    {
        NSLog(@"%@",[array objectAtIndex:i]);
    }

}

void print2( NSArray *array ) {
    NSEnumerator *enumerator = [array objectEnumerator];
    id obj;
    while ( obj = [enumerator nextObject] ) {
        printf( "%s\n", [[obj description] cString] );
    }
}

void print3( NSArray *array ) {
    id obj;
    NSLog(@"new array is ");
    for (obj in array)
    {
        NSLog(@"%@",obj);
    }
}

NSString * printByLine( NSArray *array ) {
    id obj;
    NSMutableString * oneLine;
    oneLine=[NSMutableString stringWithCapacity:100];
    NSString * oneString;

    for (obj in array)
    {
        oneString=[obj copy];

        //[oneLine appendString:oneString];
        [oneLine insertString:oneString atIndex:0];

       // NSLog(@"xx= %@,%d,%d",oneLine,oneLine,oneString);
    }

    return oneLine;


}



int main() {
    NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];

    //NSArray *arr_numbers = [[NSArray alloc] initWithObjects:@"Áã", @"Ò¼", @"·¡", @"Èþ", @"ËÁ", @"Îé", @"½", @"Æâ", @"°Æ", @"¾Á", nil];
    NSArray *arr_numbers = [[NSArray alloc] initWithObjects:@"Zero", @"One", @"Two", @"Three", @"Four", @"Five", @"Six", @"Seven", @"Eight", @"Nine", nil];

    //NSArray *arr_unit = [[NSArray alloc] initWithObjects:@"·Ö", @"½Ç", @"Ô²", @"Ê°", @"°Û", @"Ǫ", @"Íò", @"Ê°", @"°Û", @"Ǫ", @"ÒÚ", @"Ê°", @"°Û", @"Ǫ", @"Õ×", @"Ê°", @"°Û", @"Ǫ",nil];
    NSArray *arr_unit = [[NSArray alloc] initWithObjects:@"F", @"J", @"Yuan", @"S", @"B", @"Q", @"W", @"S", @"B", @"Q", @"Yi", @"S", @"B", @"Q", @"Z", @"S", @"B", @"Q",nil];

    NSMutableArray * mutable_money = [[NSMutableArray alloc] init];

    NSSet * set_special_number=[[NSSet alloc] initWithObjects:@"Zheng",@"Zero",@"Yuan",@"W",@"Yi",@"Z"];

    //print(arr_numbers);
   // print2(arr_numbers);
   // print3(arr_unit);

    float p_input_number;
    int input_number;
    int input_number_element;
    int i=0;

    NSString * chinese_number;
    NSString * result;
    p_input_number=1008.20;

    if (p_input_number>9999999)
    {
        result =@"out of maximize range";
        NSLog(@"%@",result);
        return 0;
    }


    input_number=p_input_number*100;

    [mutable_money addObject:@"Zheng"];

    //[[chinese_number alloc] init];

    while (input_number>0)
    {
        input_number_element=input_number%10;

        if(input_number_element==0)
        {
            if (i == 2 || i==6 || i==10 || i==14)
            {
                chinese_number=[arr_unit objectAtIndex:i];
            }
            else
            {
                chinese_number=[arr_numbers objectAtIndex:input_number_element];
            }

        }
        else
        {
            chinese_number=[[arr_numbers objectAtIndex:input_number_element] stringByAppendingString:[arr_unit objectAtIndex:i]];
        }

      //  NSLog(@"%@,%@,%@",chinese_number,[arr_numbers objectAtIndex:input_number_element],[arr_unit objectAtIndex:i]);
       // NSLog(@"%d,%d,%d",chinese_number,[arr_numbers objectAtIndex:input_number_element],[arr_unit objectAtIndex:i]);


        if ([chinese_number isEqualToString:@"Zero"])
        {
            if (!([set_special_number containsObject:[mutable_money lastObject]]))
            {
            [mutable_money addObject:chinese_number];

            //NSLog(@"zero is %@,%@,%@",chinese_number,[arr_numbers objectAtIndex:input_number_element],[arr_unit objectAtIndex:i]);

            }
        }
        else if ([chinese_number hasSuffix:@"Yi"])
        {
            if ([[mutable_money lastObject] isEqualToString:@"W"])
            {
                [mutable_money removeLastObject];
                [mutable_money addObject:chinese_number];
            }
            else
            {
                [mutable_money addObject:chinese_number];
            }

            //NSLog(@"Yi is %@,%@,%@",chinese_number,[arr_numbers objectAtIndex:input_number_element],[arr_unit objectAtIndex:i]);
        }

        else
        {
            [mutable_money addObject:chinese_number];
            //NSLog(@"Others is %@,%@,%@",chinese_number,[arr_numbers objectAtIndex:input_number_element],[arr_unit objectAtIndex:i]);
        }

        input_number=input_number/10;
        i++;

    }





   NSLog(@"%@",printByLine(mutable_money));



    // free memory

    [arr_numbers release];
    [arr_unit release];
    [mutable_money release];

    [pool release];

    return 0;
}

FUNCTION money_format_zhs(p_money_amount IN NUMBER) RETURN VARCHAR2 IS
  
    c_money_amount VARCHAR2(20);
    n_string       VARCHAR2(40) := '壹贰叁肆伍陆柒捌玖';
    l_string       VARCHAR2(600);
    n              CHAR;
    l_length       NUMBER;
    i              NUMBER;
    tmp            NUMBER;
    is_zero        BOOLEAN;
    z_count        NUMBER;
    l_money_amount NUMBER;
    l_sign         VARCHAR2(10);
  
  BEGIN
  
    l_money_amount := round(abs(p_money_amount),
                            2);
  
    IF p_money_amount < 0 THEN
      l_sign := '负';
    ELSE
      l_sign := '';
    END IF;
  
    tmp := l_money_amount * 100;
  
    c_money_amount := rtrim(ltrim(to_char(tmp,
                                          '999999999999999999')));
  
    l_length := length(c_money_amount);
  
    i := 0;
  
    WHILE i < l_length
    LOOP
    
      i := i + 1;
      n := substr(c_money_amount,
                  i,
                  1);
    
      IF n <> '0' THEN
      
        l_string := l_string || substr(n_string,
                                       to_number(n),
                                       1);
      
        IF l_length - i = 1 THEN
          l_string := l_string || '角';
        END IF;
      
        IF l_length - i = 0 THEN
          l_string := l_string || '分';
        END IF;
      
        IF l_length > 4
           AND l_length - i > 1 THEN
        
          IF MOD(l_length - i - 1,
                 4) = 0 THEN
            l_string := l_string || '仟';
          END IF;
        
          IF MOD(l_length - i,
                 4) = 0 THEN
          
            l_string := l_string || '佰';
          
          END IF;
        
          IF MOD(l_length - i + 1,
                 4) = 0 THEN
          
            l_string := l_string || '拾';
          
          END IF;
        
        ELSE
        
          IF l_length - i = 3 THEN
          
            l_string := l_string || '拾';
          
          END IF;
        
        END IF;
      
      END IF;
    
      IF n = '0' THEN
      
        IF l_length - i IN (10,
                            6,
                            2,
                            0,
                            i) THEN
        
          IF is_zero THEN
            l_string := substr(l_string,
                               1,
                               length(l_string) - 1);
            is_zero  := FALSE;
          END IF;
        
          z_count := 0;
        
        ELSE
        
          IF z_count = 0 THEN
            l_string := l_string || '零';
            is_zero  := TRUE;
          END IF;
        
          z_count := z_count + 1;
        
        END IF;
      
      ELSE
      
        z_count := 0;
        is_zero := FALSE;
      
      END IF;
    
      IF (l_length - i = 6 OR l_length - i = 14)
         AND substr(c_money_amount,
                    i - 3,
                    4) <> '0000' THEN
      
        l_string := l_string || '万';
      
      END IF;
    
      IF l_length - i = 10 THEN
      
        l_string := l_string || '亿';
      
      END IF;
    
      IF l_length - i = 2 THEN
      
        l_string := l_string || '圆';
      
      END IF;
    
    END LOOP;
  
    l_string := l_string || '整';
  
    l_string := l_sign || l_string;
  
    RETURN l_string;
  
  EXCEPTION
    WHEN OTHERS THEN
      RETURN(SQLERRM);
  END;

 FUNCTION money_format_us(p_money_amount IN NUMBER) RETURN VARCHAR2 IS
  
    TYPE lt_array_type IS VARRAY(50) OF VARCHAR2(20); --一维数组,字符串类型
    l_array lt_array_type := lt_array_type('ONE ',
                                           'TWO ',
                                           'THREE ',
                                           'FOUR ',
                                           'FIVE ',
                                           'SIX ',
                                           'SEVEN ',
                                           'EIGHT ',
                                           'NINE ',
                                           'TEN ',
                                           'ELEVEN ',
                                           'TWELVE ',
                                           'THIRTEEN ',
                                           'FOURTEEN ',
                                           'FIFTEEN ',
                                           'SIXTEEN ',
                                           'SEVENTEEN ',
                                           'EIGHTEEN ',
                                           'NINETEEN ',
                                           'TWENTY ',
                                           'THIRTY ',
                                           'FORTY ',
                                           'FIFTY ',
                                           'SIXTY ',
                                           'SEVENTY ',
                                           'EIGHTY ',
                                           'NINETY ',
                                           'HUNDRED ',
                                           'THOUSAND ',
                                           'MILLION ',
                                           'BILLION ');
  
    c_money_amount VARCHAR2(14);
    l_string       VARCHAR2(600);
    n              CHAR;
    l_pre_n        CHAR;
    l_length       NUMBER;
    i              NUMBER;
    tmp            NUMBER;
    l_decimal_flag VARCHAR2(1);
    l_money_amount NUMBER;
    l_sign         VARCHAR2(10);
  
  BEGIN
  
    l_money_amount := round(abs(p_money_amount),
                            2);
  
    IF p_money_amount < 0 THEN
      l_sign := 'NEGATIVE ';
    ELSE
      l_sign := '';
    END IF;
  
    tmp := l_money_amount * 100;
  
    c_money_amount := rtrim(ltrim(to_char(tmp,
                                          '999999999999999999')));
  
    l_length := length(c_money_amount);
  
    i := 0;
  
    WHILE i < l_length - 2
    LOOP
    
      i := i + 1;
    
      IF MOD(l_length - 2 - i,
             3) = 2 THEN
      
        n := substr(c_money_amount,
                    i,
                    1);
      
        IF n <> '0' THEN
        
          l_string := l_string || l_array(to_number(n));
          l_string := l_string || l_array(to_number(28));
        
        END IF;
      
      END IF;
    
      IF MOD(l_length - 2 - i,
             3) = 1 THEN
      
        n := substr(c_money_amount,
                    i,
                    1);
      
        IF n = '1' THEN
        
          l_pre_n := n;
        
        END IF;
      
        IF n NOT IN ('0',
                     '1') THEN
        
          l_string := l_string || l_array(to_number(n) + 18);
        
        END IF;
      
      END IF;
    
      IF MOD(l_length - 2 - i,
             3) = 0 THEN
      
        IF nvl(l_pre_n,
               'X') = '1' THEN
        
          n := substr(c_money_amount,
                      i,
                      1);
        
          l_string := l_string || l_array(to_number(l_pre_n || n));
        
          l_pre_n := NULL;
        
        ELSE
        
          n := substr(c_money_amount,
                      i,
                      1);
        
          IF n <> '0' THEN
          
            l_string := l_string || l_array(to_number(n));
          
          END IF;
        
        END IF;
      
      END IF;
    
      IF l_length - i = 5
         AND substr(c_money_amount,
                    i - 2,
                    3) <> '000' THEN
      
        l_string := l_string || l_array(to_number(29));
      
      END IF;
    
      IF l_length - i = 8
         AND substr(c_money_amount,
                    i - 2,
                    3) <> '000' THEN
      
        l_string := l_string || l_array(to_number(30));
      
      END IF;
    
      IF l_length - i = 11 THEN
      
        l_string := l_string || l_array(to_number(31));
      
      END IF;
    
    END LOOP;
  
    n := substr(c_money_amount,
                l_length - 1,
                1);
  
    IF n NOT IN ('0',
                 '1') THEN
    
      l_decimal_flag := 'Y';
      l_string       := l_string || 'AND ';
      l_string       := l_string || l_array(to_number(n) + 18);
    
    END IF;
  
    IF n = '1' THEN
    
      l_decimal_flag := 'Y';
      l_string       := l_string || 'AND ';
    
      l_pre_n := n;
    
      n := substr(c_money_amount,
                  l_length,
                  1);
    
      l_string := l_string || l_array(to_number(l_pre_n || n));
    
    ELSE
    
      n := substr(c_money_amount,
                  l_length,
                  1);
    
      IF n <> '0' THEN
      
        IF nvl(l_decimal_flag,
               'N') = 'N' THEN
        
          l_string := l_string || 'AND ';
        
        END IF;
      
        l_decimal_flag := 'Y';
      
        l_string := l_string || l_array(to_number(n));
      
      END IF;
    
    END IF;
  
    IF l_decimal_flag = 'Y' THEN
    
      l_string := l_string || 'CENTS ';
    
    ELSE
    
      l_string := l_string;
    
    END IF;
  
    l_string := l_sign || l_string || 'ONLY ';
  
    RETURN l_string;
  
  EXCEPTION
    WHEN OTHERS THEN
      RETURN(SQLERRM);
  END;

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/117845.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)
blank

相关推荐

  • 运维博客—OOM「建议收藏」

    运维博客—OOM「建议收藏」http://www.furion.info/649.html

  • python里字符串转数字_c 字符串转数字

    python里字符串转数字_c 字符串转数字python数字转字符串的实现方法:1、使用格式化字符串,语句如“tt=322tem=’%d’%tt”;2、通过“str(5)”方法实现转换。推荐:《python教程》数字转成字符串方法一:使用格式化字符串:tt=322tem=’%d’%tttem即为tt转换成的字符串常用的格式化字符串:%d整数%f%F浮点数%e%E科学计数%g%Ge和%f/%E和%F的简写%%输出%格式化…

    2022年10月12日
  • A4988步进驱动

    A4988步进驱动基本知识绕组  常用的步进电机有四根线,1A1B2A2B,1A和1B是一个绕组,2A和2B是一个绕组,用万用表测试1A和1B之间是短路的,2A和2B之间是短路的,1A和1B,2A和2B是等效的。  通常状况下,步进电机可以自由转动(用手可以拧动),1A和1B接在一起的时候,用手拧会感到明显阻力,1A和1B,2A和2B分别接在一起,则阻力更大。步距角  所谓步进电机,就是可以…

  • vim中复制粘贴快捷键_保存到剪贴板的截图去哪里找

    vim中复制粘贴快捷键_保存到剪贴板的截图去哪里找gg定位到第一行,V选中光标所在行,G定位到文件末尾Ctrl+ACtrl+C全选复制:map&lt;C-A&gt;&lt;Esc&gt;ggVGyCtrl+ACtrl+xq剪切:map&lt;C-X&gt;&lt;Esc&gt;ggVGdCtrl+v粘贴:map&lt;C-V&gt;&lt;Esc&gt;p…

  • matlab实现香农编码原理_香农编码c语言实现

    matlab实现香农编码原理_香农编码c语言实现最近有个实验是用MATLAB实现香农编码的,在网上看到了别人写的程序,大部分都不支持手动输入信源,我自己就加上了几行,能够直接输入信源分布,下面是程序:pa=input(‘请输入信源分布:’)k=length(pa);   %计算信源符号个数ifmin(pa)&lt;0||max(pa)&gt;1  %判断信源概率值是否介于0到1之间  %disp([‘信源分布pa(x)=[‘,…

  • linux ss 命令用法说明

    linux ss 命令用法说明

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号