小写转大写金额-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

小写转大写金额
功能：小写金额转变成大写
参数：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 <= 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 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 \\\'拾\\\'
WHEN 10 THEN \\\'佰\\\'
WHEN 11 THEN \\\'仟\\\'
WHEN 12 THEN \\\'亿\\\'
WHEN 13 THEN \\\'拾\\\'
WHEN 14 THEN \\\'佰\\\'
WHEN 15 THEN \\\'仟\\\'
WHEN 16 THEN \\\'万\\\'
ELSE \\\'\\\'
END
select @v_UpperStr = @v_UpperPart + @v_UpperStr
select @i_I = @i_I + 1
end

--------print \\\'//v_UpperStr =\\\'+@v_UpperStr +\\\'//\\\'

if ( @v_TransType=0 )
begin
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'零拾\\\',\\\'零\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'零佰\\\',\\\'零\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'零仟\\\',\\\'零\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'零零零\\\',\\\'零\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'零零\\\',\\\'零\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'零角零分\\\',\\\'整\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'零分\\\',\\\'整\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'零角\\\',\\\'零\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'零亿零万零元\\\',\\\'亿元\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'亿零万零元\\\',\\\'亿元\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'零亿零万\\\',\\\'亿\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'零万零元\\\',\\\'万元\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'万零元\\\',\\\'万元\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'零亿\\\',\\\'亿\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'零万\\\',\\\'万\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'零元\\\',\\\'元\\\')
select @v_UpperStr = REPLACE(@v_UpperStr,\\\'零零\\\',\\\'零\\\')
end

-- 对壹元以下的金额的处理
if ( substring(@v_UpperStr,1,1)=\\\'元\\\' )
begin
select @v_UpperStr = substring(@v_UpperStr,2,(len(@v_UpperStr) - 1))
end

if (substring(@v_UpperStr,1,1)= \\\'零\\\')
begin
select @v_UpperStr = substring(@v_UpperStr,2,(len(@v_UpperStr) - 1))
end

if (substring(@v_UpperStr,1,1)=\\\'角\\\')
begin
select @v_UpperStr = substring(@v_UpperStr,2,(len(@v_UpperStr) - 1))
end

if ( substring(@v_UpperStr,1,1)=\\\'分\\\')
begin
select @v_UpperStr = substring(@v_UpperStr,2,(len(@v_UpperStr) - 1))
end

if (substring(@v_UpperStr,1,1)=\\\'整\\\')
begin
select @v_UpperStr = \\\'零元整\\\'
end

select @ret=@v_UpperStr

GO

调用过程：

declare @ret varchar(200)

exec L2U 567983.897,1,@ret output

select @ret

返回类别: 教程
上一教程: 用DTS导入多个文件数据到SQL SERVER中
下一教程: 远程治理ACCESS数据库

您可以阅读与"小写转大写金额"相关的教程:
· 金额阿拉伯数字转变为中文的自定义函数
· 金额阿拉伯数字转变为中文的存储过程
· 如何区分大小写比较？


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接