SQL把小写的金额转换成大写的金额函数

最新推荐文章于 2023-11-30 10:56:24 发布

容妞

最新推荐文章于 2023-11-30 10:56:24 发布

阅读量7.5k

点赞数

分类专栏： SQL数据库

本文链接：https://blog.youkuaiyun.com/lijingrong_ljr/article/details/89029961

版权

SQL数据库专栏收录该内容

23 篇文章

订阅专栏

本文介绍了一个SQL函数，该函数能将数字转换为大写金额格式，支持到分（小数点后两位）。通过使用此函数，可以方便地在财务报表等场景中将数字金额转换为符合中文习惯的大写形式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

/*----------------------------------------------------------*/
/* [FUpMoney] */
/*----------------------------------------------------------*/
IF EXISTS ( SELECT 1 FROM sys.objects o WHERE object_id = object_id( N'[FUpMoney]' ) AND OBJECTPROPERTY( object_id, N'IsTableFunction') IS NOT NULL )
DROP FUNCTION [FUpMoney]
GO
--功能：用于将小写的数值翻译成大写的字符串（支持到分，即小数点后两位）
--入口参数：@decNum------数字型变量

--返回：字符串
--举例：select dbo.fn_ChnMoney(623.88)
-- 结果为“陆佰贰拾叁元捌角捌分”


CREATE FUNCTION FUpMoney(@decNum decimal(22,2))
RETURNS varchar(200)
AS
--功能：用于将小写的数值翻译成大写的字符串（支持到分，即小数点后两位）
--入口参数：@decNum------数字型变量

--返回：字符串 cpc 2019-03-25
--举例：select dbo.fn_ChnMoney(623.88)
-- 结果为“陆佰贰拾叁元捌角捌分”

BEGIN
   DECLARE @chvNum varchar(200)
   DECLARE @chvMoney varchar(200)
   DECLARE @chvTemp varchar(200)
   DECLARE @intIntLen int
   DECLARE @intI int
   DECLARE @chvTempI varchar(200)
   DECLARE @chvReturn varchar(200)

   IF @decNum=0
       SET @chvMoney = '零'
   Else
   BEGIN

       SET @chvTemp=convert(varchar(200),Round(@decNum*100,0))
       IF charindex('.',@chvTemp,1)>0
           SET @chvNum=left(@chvTemp,charindex('.',@chvTemp,1)-1)
       ELSE
       SET @chvNum=@chvTemp

       SET @intIntLen=len(@chvNum)
       SET @chvMoney=''
       Set @chvReturn = ''
       SET @intI=1
       WHILE @intI <= @intIntLen
       BEGIN
           SET @chvTempI = substring(@chvNum,@intIntLen-@intI+1,1)
           SET @chvMoney = substring('零壹贰叁肆伍陆柒捌玖',convert(int,@chvTempI)+1,1) + substring('分角元拾佰仟万拾佰仟亿拾佰仟兆拾佰仟京拾佰仟',(@intI-1)+1,1)
           SET @intI = @intI + 1
           SET @chvReturn = @chvMoney + @chvReturn
       END
   END
   SET @chvReturn=Replace(@chvReturn,'零仟','零')
   SET @chvReturn=Replace(@chvReturn,'零佰','零')
   SET @chvReturn=Replace(@chvReturn,'零拾','零')

   while charindex('零零',@chvReturn,1)>0
       SET @chvReturn=Replace(@chvReturn,'零零','零')

   SET @chvReturn=Replace(@chvReturn,'零兆','兆')
   SET @chvReturn=Replace(@chvReturn,'零亿','亿')
   SET @chvReturn=Replace(@chvReturn,'零万','万')
   SET @chvReturn=Replace(@chvReturn,'零元','元')
   SET @chvReturn=Replace(@chvReturn,'零角零分','整')
   SET @chvReturn=Replace(@chvReturn,'零角','零')
   SET @chvReturn=Replace(@chvReturn,'零分','整')
   SET @chvReturn=LTRIM(RTRIM(@chvReturn))
   RETURN @chvReturn
END
GO