SQL大小写金额转换
2024-08-31 13:16:17
--功能: 用于将小写的数值翻译成大写的字符串(支持到分,即小数点后两位)
--入口参数:@decNum------数字型变量 --返回:字符串
--举例:select dbo.fn_ChnMoney(623.88)
-- 结果为“陆佰贰拾叁元捌角捌分” CREATE FUNCTION fn_ChnMoney(@decNum decimal(18,2))
RETURNS varchar(200)
AS
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
最新文章
- 利用Caffe做回归(regression)
- 动态下载 Yahoo 网络数据存入 Microsoft SQL Server 再 Matlab 调用的一个完整例子
- mybatis(一)安装
- 李洪强iOS开发之【零基础学习iOS开发】【02-C语言】02-第一个C语言程序
- 剑指OFFER之二维数组中的查找(九度OJ1384)
- js基础第一天
- eclipse创建项目时出现appcompat_v7包及解决办法
- hdoj 2502 月之数
- Android常用的颜色列表 color.xml
- poj1003
- 0118——RTLabel和正则表达式
- document.referrer之隐藏来源
- asp .net 模板引擎 使用 Razor 生成html静态页面
- JS直接调用C#后台方法(ajax调用)
- web Components 学习之路
- 关于oracle数据库中获取版本号类数据最大值的sql
- java高并发实战(二)——线程(并行程序)基础
- LINUX搭建PySpider爬虫服务
- ES9新特性
- springmvc表单验证
热门文章
- [HDU5687]2016";百度之星"; - 资格赛 Problem C
- [LeetCode] 455. 分发饼干 assign-cookies(贪心算法)
- caioj 1204 Catalan数(模板)
- USACO Section 1.3 : Calf Flac (calfflac)
- Unity Image Effect
- Java (JDK7)中的String常量和String.intern的实现
- nj11--http
- vim 插件之vim-trailing-whitespace
- matplotlib 可视化 —— 移动坐标轴(中心位置)
- 8.解决IntelliJ Idea 集成TortoiseSVN 时找不到svn.exe