SQLserver小写数字转换为大写函数.docx

文档介绍：/********************************************************作者:(wleii165@)版本::20020227修改时间:功能:小写金额转换成大写参数:n_LowerMoney 小写金额          v_TransType 种类 -- 1: directly translate, 0: read it in words 输出:大写金额********************************************************/CREATE PROCEDURE  (***@n_LowerMoney numeric(15,2),***@v_TransType int,***@RET VARCHAR(200) output) AS   Declare ***@v_LowerStr VARCHAR(200) -- 小写金额 Declare ***@v_UpperPart VARCHAR(200) Declare ***@v_UpperStr VARCHAR(200) -- 大写金额Declare ***@i_I intset nocount onselect ***@v_LowerStr = LTRIM(RTRIM(STR(***@n_LowerMoney,20,2))) --四舍五入为指定的精度并删除数据左右空格select ***@i_I = 1select ***@v_UpperStr = ''while ( ***@i_I <= len(***@v_LowerStr))begin      select ***@v_UpperPart = case substring(***@v_LowerStr,len(***@v_LowerStr) - ***@i_I + 1,1)                            WHEN  '.' THEN  '元'                            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_I                            WHEN  1