zoukankan      html  css  js  c++  java
  • SQL人民币小写转大写函数

    View Code
    CREATE FUNCTION LowerToUpper
    (
    @LowerMoney DECIMAL(38, 4)
    )
    RETURNS VARCHAR(200) --返回的大写金额的字符
    AS
    BEGIN
    DECLARE @LowerStr VARCHAR(50) --小写金额
    DECLARE @UpperStr VARCHAR(200) --大写金额
    DECLARE @UpperTmp VARCHAR(15) --大写金额的临时字符串
    DECLARE @i INT --递增量
    DECLARE @LowerLen INT --小写金额的总长度

    SET @LowerStr = @LowerMoney --把Decimal型的值全部赋给字符串变量 注:(赋值过去的话如8 在字符串变量中是显示8.0000 因为小数位精确到四位,没有的话,它会自动补0)
    SET @LowerStr = REPLACE(@LowerStr, '.', '') --把小数点替换成空字符 --精确到小数点的四位 角分厘毫

    SET @LowerLen = LEN(@LowerStr) --获取小写金额的总长度(包括四个小数位)
    SELECT @i = 1, @UpperStr = '', @UpperTmp = '' --设置默认初始值

    WHILE @i <= @LowerLen
    BEGIN
    SET @UpperTmp = CASE WHEN SUBSTRING(@LowerStr,
    @LowerLen - @i + 1, 1) = '0'
    AND @i = 5
    AND ( CONVERT(INT, RIGHT(@LowerStr,
    4)) = 0
    OR @LowerLen > 5
    ) THEN '' --注:如果个位为0的话,并且四位小数都是0或者它的长度超过5(也就是超过元),则为元
    --When SubString(@LowerStr,@LowerLen - @i + 1,1) = '0' Then ''
    ELSE +CASE SUBSTRING(@LowerStr,
    @LowerLen - @i + 1,
    1) --看当前位是数字几,就直接替换成汉字繁体大写
    WHEN '0' THEN ''
    WHEN '1' THEN ''
    WHEN '2' THEN ''
    WHEN '3' THEN ''
    WHEN '4' THEN ''
    WHEN '5' THEN ''
    WHEN '6' THEN ''
    WHEN '7' THEN ''
    WHEN '8' THEN ''
    WHEN '9' THEN ''
    END + CASE @i
    WHEN 1 THEN ''
    WHEN 2 THEN ''
    WHEN 3 THEN ''
    WHEN 4 THEN ''
    WHEN 5 THEN ''
    WHEN 9 THEN ''
    WHEN 13 THEN '亿'
    WHEN 17 THEN ''
    WHEN 21 THEN ''
    WHEN 25 THEN ''
    WHEN 29 THEN ''
    WHEN 33 THEN ''
    WHEN 37 THEN '' --Decimal型最大长度是38 后面的就不用再考虑了
    ELSE +CASE @i % 4
    WHEN 2 THEN '' --拾 6 10 14 18 22 26 30 34 38 …………
    WHEN 3 THEN '' --佰 7 11 15 19 23 27 31 35 39 …………
    WHEN 0 THEN '' --仟 8 12 16 20 24 28 32 36 40 …………
    END
    END
    END
    SET @UpperStr = ISNULL(@UpperTmp, '') + ISNULL(@UpperStr, '')
    SET @i = @i + 1
    END
    IF CONVERT(INT, RIGHT(@LowerStr, 4)) = 0
    SET @UpperStr = LEFT(@UpperStr, LEN(@UpperStr) - 8) + '' --判断小数位数是不是都是0,是0就可以取整
    WHILE PATINDEX('%零[仟佰拾角分厘毫零]%', @UpperStr) <> 0 --把零拾或零佰或零零变成一个零
    BEGIN
    SET @UpperStr = STUFF(@UpperStr,
    PATINDEX('%零[仟佰拾角分厘毫零]%', @UpperStr), 2,
    '')
    END
    WHILE PATINDEX('%[沟穰杼垓京兆亿萬]零[沟穰杼垓京兆亿萬]%', @UpperStr) <> 0 --把零萬或零亿的清空掉
    BEGIN
    SELECT @UpperStr = STUFF(@UpperStr,
    PATINDEX('%[沟穰杼垓京兆亿萬]零[沟穰杼垓京兆亿萬]%',
    @UpperStr) + 1, 2, '')
    END
    WHILE PATINDEX('%[仟佰拾]零[沟穰杼垓京兆亿萬]%', @UpperStr) <> 0 --把类似拾零萬或佰零萬或仟零萬中间的零清空掉
    BEGIN
    SELECT @UpperStr = STUFF(@UpperStr,
    PATINDEX('%[仟佰拾]零[沟穰杼垓京兆亿萬]%',
    @UpperStr) + 1, 1, '')
    END
    IF PATINDEX('%_零[元]%', @UpperStr) <> 0 --把类似拾零元或百零元中间的零清空掉
    BEGIN
    SELECT @UpperStr = STUFF(@UpperStr,
    PATINDEX('%_零[元]%', @UpperStr) + 1,
    1, '')
    END
    ELSE
    IF ( PATINDEX('零[元]%', @UpperStr) <> 0 )
    AND ( CONVERT(INT, RIGHT(@LowerStr, 4)) <> 0 ) --判断当前否是零元开头,并且后面的四个小数不为0
    BEGIN
    SELECT @UpperStr = STUFF(@UpperStr,
    PATINDEX('零[元]%', @UpperStr), 2,
    '') --把零元清空掉
    END
    IF RIGHT(@UpperStr, 1) = ''
    SET @UpperStr = LEFT(@UpperStr, LEN(@UpperStr) - 1) --如果最后一位是零也清空掉
    IF @UpperStr = '元整'
    SET @UpperStr = '' + @UpperStr --如果只是0的话,就显示零元整
    RETURN @UpperStr --返回大写金额
    END

    GO
  • 相关阅读:
    每日一题_191101
    阿基米德三角形(交互式学件)
    2018四川高考数学(全国卷3)理科21题以泰勒公式为命题背景(同时深挖去年高考题)和它的另类解法的瞎谈
    给老谢画的图(平面几何中的动点与最值问题)
    2018四川高考文科21题
    数学解题的思维过程
    Qt Creator 模块QtSql
    QT Creator快捷键不能用
    QT 随机数
    C++ 4 种具有更 为准确语义的新强制转换类型
  • 原文地址:https://www.cnblogs.com/ToddLai/p/2287397.html
Copyright © 2011-2022 走看看