--1、人民币小写金额转大写(第一版)
====================================================================
-- Title: 人民币小写金额转大写
-- Author: dobear Mail(MSN): dobear_0922@hotmail.com
-- Environment: Vista + SQL2005
-- Date: 2008-06-12
-- Remark: dobear原创,转载请注明出处,有问题请发Mail告之
-- ====================================================================
go
--创建函数
create function [dbo].[fn_getformatmoney] (@money numeric(14,2))
returns nvarchar(32) as
begin
declare @money_num nvarchar(20) --存储金额的字符形式
, @money_chn nvarchar(32) --存储金额的中文大写形式
, @n_chn nvarchar(1), @i int --临时变量
select @money_chn=case when @money>=0 then '' else '(负)' end
, @money=abs(@money)
, @money_num=stuff(str(@money, 15, 2), 13, 1, '') --加前置空格补齐到位(去掉小数点)
, @i=patindex('%[1-9]%', @money_num) --找到金额最高位
while @i>=1 and @i<=14
begin
set @n_chn=substring(@money_num, @i, 1)
if @n_chn<>'0' or (substring(@money_num,@i+1,1)<>'0' and @i not in(4, 8, 12, 14)) --转换阿拉伯数字为中文大写形式
set @money_chn=@money_chn+substring('零壹贰叁肆伍陆柒捌玖', @n_chn+1, 1)
if @n_chn<>'0' or @i in(4, 8, 12) --添加中文单位
set @money_chn=@money_chn+substring('仟佰拾亿仟佰拾万仟佰拾圆角分',@i,1)
set @i=@i+1
end
set @money_chn=replace(@money_chn, '亿万', '亿') --当金额为x亿零万时去掉万
if @money=0 set @money_chn='零圆整' --当金额为零时返回'零圆整'
if @n_chn='0' set @money_chn=@money_chn+'整' --当金额末尾为零分时以'整'结尾
return @money_chn --返回大写金额
end
go
--测试示例
select dbo.fn_getformatmoney(4545.44)
--运行结果
/*
肆仟伍佰肆拾伍圆肆角肆分
*/
--2、人民币小写金额转大写(第二版)
/*编写者:(博客天地www.inbaidu.com )
创建时间:
功能:小写金额转换成大写
参数:@LowerMoney 小写金额加上小数点最长可以保留位
输出:大写金额
简介:SQL版小写金额转换成大写金额(最多可以精确到小数点四位)
注: Decimal 数据类型最多可存储个数字
转载:请保留以上信息,谢谢!!!
********************************************************/
go
--创建函数
create function [dbo].[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型的值全部赋给字符串变量注:(赋值过去的话如在字符串变量中是显示.0000 因为小数位精确到四位,没有的话,它会自动补)
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 '元' --注:如果个位为的话,并且四位小数都是或者它的长度超过(也就是超过元),则为元
--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型最大长度是后面的就不用再考虑了
else
+ case @i%4
when 2 then '拾' --拾10 14 18 22 26 30 34 38 …………
when 3 then '佰' --佰11 15 19 23 27 31 35 39 …………
when 0 then '仟' --仟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) + '整' --判断小数位数是不是都是,是就可以取整
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) --判断当前否是零元开头,并且后面的四个小数不为
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 --如果只是的话,就显示零元整
return @upperstr --返回大写金额
end
--测试示例
Select dbo.LowerToUpper(120000000) --壹亿贰仟萬元整
Select dbo.LowerToUpper(102000000) --壹亿零贰佰萬元整
Select dbo.LowerToUpper(100200000) --壹亿零贰拾萬元整
Select dbo.LowerToUpper(100020000) --壹亿零贰萬元整
Select dbo.LowerToUpper(100002000) --壹亿贰仟元整
--运行结果
/*
壹亿贰仟萬元整
壹亿零贰佰萬元整
壹亿零贰拾萬元整
壹亿零贰萬元整
壹亿贰仟元整
*/
分享到:
相关推荐
在SQL Server中如何用函数把人民币小写金额转大写。
create or replace function sf_get_money(p_num in number default null) 此函数处理数字小写金额转换为大写金额
在ACCESS中通过小写人民币转大写ACCESS函数可以把金额这项数据作为汉字显示或打印。支票、电汇凭证、记账凭证。
oracle中将小写金额转换为大写金额函数 oracle中将小写金额转换为大写金额函数
三个SQL函数:小写金额转换成人民币大写
VB 将小写金额转换成大写金额,直接调用就可以了!!!
用这个JS函数可以把小写的金额变成大写的
PB编写的把小写金额转换成大写金额的函数.
DELPHI中最精简的小写金额转大写的函数
用MySQL函数实现 小写金额与大写金额的互转,用数据库来实现
oracle数据库,使用自定义函数,实现了金额的大写转换。sql语句中,直接调用此函数即可得到金额大写。
VC++ 一个把小写金额转换成大写金额的函数。 如:¥12345.67元 -->壹万贰仟叁佰肆拾伍元陆角柒分。 ¥10001.02元 -->壹万零壹元零贰分 ¥10000.00元 -->壹万元整
金额小写转大写_sql函数
小写金额转换为大写金额程序(VB6.0代码编写) 小写金额转换为大写金额,当输入数字时就会对应产生大写金额。 QQ223857666勾月
{用Delphi编写人民币大小写转换程序在财务管理系统中,有时需要打印大写人民币数字,于是笔者编写了以下一些函数使这一需要得以满足,现介绍如下:注:copy(2005-Jey-QQ:344430663)本程序在Delphi7、Winwin2000下调...
Sqlserver金额大写函数,思路清晰、代码简单。可用于SqlServer各版本中。
这是一个自己写的函数,用于将金额的小写转换为大写形式,用c++语言写的,但是思想可用于所有的语言中
将数字金额转成人民币大写,如1999.00,转为:壹仟玖佰玖拾玖元整;2000.00,转为:贰仟元整;2000.01,转为:贰仟元零壹分
pb 小写数字转换成大写数字,支持到千万亿.
小写金额转大写金额源码 winform