人民币小写金额转大写(转载)
IF OBJECT_ID('fn_GetFormatMoney', N'FN') IS NOT NULL
DROP FUNCTION fn_GetFormatMoney
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, '') --加前置空格补齐到14位(去掉小数点)
, @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
DROP FUNCTION fn_GetFormatMoney
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, '') --加前置空格补齐到14位(去掉小数点)
, @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
测试:
GO CREATE TABLE tb_money(id INT IDENTITY(1,1) PRIMARY KEY, m NUMERIC(14,2)) INSERT tb_money SELECT 0 UNION ALL SELECT 0.01 UNION ALL SELECT 0.2 UNION ALL SELECT 0.35 UNION ALL SELECT 230 UNION ALL SELECT 10000.2 UNION ALL SELECT 10020.3 UNION ALL SELECT 10300.45 UNION ALL SELECT -10304.07 UNION ALL SELECT 30210020 UNION ALL SELECT -3020000 UNION ALL SELECT 3020400 UNION ALL SELECT 302040000000 UNION ALL SELECT 302004000000.1 select m as '小写金额', dbo.fn_GetFormatMoney(m) as '大写金额' from tb_money /* 小写金额 大写金额 --------------------------------------- -------------------------------- 0.00 零圆整 0.01 壹分 0.20 贰角整 0.35 叁角伍分 230.00 贰佰叁拾圆整 10000.20 壹万圆贰角整 10020.30 壹万零贰拾圆叁角整 10300.45 壹万零叁佰圆肆角伍分 -10304.07 (负)壹万零叁佰零肆圆零柒分 30210020.00 叁仟零贰拾壹万零贰拾圆整 -3020000.00 (负)叁佰零贰万圆整 3020400.00 叁佰零贰万零肆佰圆整 302040000000.00 叁仟零贰拾亿肆仟万圆整 302004000000.10 叁仟零贰拾亿零肆佰万圆壹角整 (14 row(s) affected) */ DROP TABLE tb_money
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 如何编写易于单元测试的代码
· 10年+ .NET Coder 心语,封装的思维:从隐藏、稳定开始理解其本质意义
· .NET Core 中如何实现缓存的预热?
· 从 HTTP 原因短语缺失研究 HTTP/2 和 HTTP/3 的设计差异
· AI与.NET技术实操系列:向量存储与相似性搜索在 .NET 中的实现
· 周边上新:园子的第一款马克杯温暖上架
· Open-Sora 2.0 重磅开源!
· 分享 3 个 .NET 开源的文件压缩处理库,助力快速实现文件压缩解压功能!
· Ollama——大语言模型本地部署的极速利器
· DeepSeek如何颠覆传统软件测试?测试工程师会被淘汰吗?