原作在SQL 2000中有一些问题。修正错误并在SQL 2000中运行通过。
/********************************************************作者：(wleii165@yahoo.com)版本：1.0创建时间：20020227
修改时间：
功能：小写金额转换成大写参数：n_LowerMoney 小写金额v_TransType 种类 -- 1: directly translate, 0: read it in words输出：大写金额********************************************************/ CREATE PROCEDURE dbo.L2U (@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 int set nocount on select @v_LowerStr = LTRIM(RTRIM(STR(@n_LowerMoney,20,2))) --四舍五入为指定的精度并删除数据左右空格select @i_I = 1 select @v_UpperStr = ''while ( @i_I 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 THEN '分'WHEN 2 THEN '角'WHEN 3 THEN ''WHEN 4 THEN ''WHEN 5 THEN '拾'http://www.bkjia.com/PHPjc/631137.html www.bkjia.com true http://www.bkjia.com/PHPjc/631137.html TechArticle原作在SQL 2000中有一些问题。修正错误并在SQL 2000中运行通过。 /******************************************************** 作者：(wleii165@yahoo.com) 版本：1...