阿拉伯数字转纯英文（非科学计数法）

已于 2023-11-17 17:37:28 修改
阅读量118 收藏
点赞数
文章标签： 数据库 mysql
于 2023-11-16 17:38:56 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_36390975/article/details/134446807
版权

第一版：

样例：
SELECT NewProc(998435)
nine hundred and ninety eight thousand four hundred and thirty five

CREATE DEFINER=`root`@`%` FUNCTION `NewProc`(MONEY DECIMAL( 15, 2 )) RETURNS varchar(400) CHARSET utf8
BEGIN
DECLARE  result      VARCHAR(400); -- 返回字符串
DECLARE i INT DEFAULT 0;
DECLARE hundreds INT;
DECLARE tenth INT;
DECLARE one INT;
DECLARE thousand INT;
DECLARE million INT;
DECLARE billion INT;
DECLARE NUMBERS VARCHAR(400);
DECLARE s VARCHAR( 15 );
-- set i=0;
Set RESULT='';
Set NUMBERS='one       two       three     four      five      six       seven     eight     nine      ten        eleven    tweleve   thirteen  fourteen   fifteen   sixteen   seventeen eighteen  nineteen  twenty    thirty    forty     fifty     sixty     seventy   eighty    ninety    ';
Set s=LPAD(MONEY,15,'0');
Set billion=Substring(s,1,3);
Set million=Substring(s,4,3);
Set thousand=Substring(s,7,3);

IF MONEY= 0 THEN
	SET RESULT =CONCAT('zero');
ELSE
	WHILE i<=3 DO
	Set hundreds=Substring(s,i*3+1,1);
	Set tenth=Substring(s,i*3+2,1);
	Set one=CONCAT((Case tenth When 1 Then 10 Else 0 End),Substring(s,i*3+3,1));
	Set tenth=(Case When tenth<=1 Then 0 Else tenth End);
		IF (i=3 and (billion>0 or million>0 or thousand>0) and (hundreds=0 and (tenth>0 or one>0))) THEN
		Set result=CONCAT(trim(result),' and ');
		END IF;
		IF hundreds>0 THEN
				Set result=CONCAT(trim(result),' ',TRIM(Substring(numbers,hundreds*10-9,10)),' hundred ');
		END IF;
		IF tenth>=2 and tenth<=9 THEN
			IF hundreds>0 THEN
				Set result=CONCAT(trim(result),' and ');
				Set result=CONCAT(trim(result),' ',TRIM(Substring(numbers,tenth*10+171,10)),' ');
			END IF;
		END IF;
		IF one>=1 and one<=19 THEN
			IF hundreds>0 and tenth=0 THEN
				Set result=CONCAT(trim(result),' and ');
-- 				Set result=CONCAT(result,TRIM(Substring(numbers,one*10-9,10)));
				END IF;
			Set result=CONCAT(trim(result),' ',TRIM(Substring(numbers,one*10-9,10)));
		END IF;
		IF i=0 and billion>0 THEN
			Set result=CONCAT(trim(result),' billion ');
		END IF;
		IF i=1 and million>0 THEN
			Set result=CONCAT(trim(result),' million ');
		END IF;
		IF i=2 and thousand>0 THEN
			Set result=CONCAT(trim(result),' thousand ');
		END IF;
		set i=i+1;
	END WHILE;
	IF(result<>'') THEN
		Set result=CONCAT(trim(result),' ');
	END IF;
	IF Substring(s,14,2)<>'00' THEN
		Set tenth=Substring(s,14,1);
		Set one=Substring(s,15,1);
		IF(tenth>=2 and tenth<=9) THEN
			Set result=CONCAT(trim(result),' ',TRIM(Substring(numbers,tenth*10+171,10)));
		END IF;
		IF	tenth=1 and one>=1 and one<=19 THEN
			Set result=CONCAT(trim(result),' ',TRIM(Substring(numbers,Substring(s,14,2)*10-9,10)));
		ELSE
			Set result=CONCAT(trim(result),' ',TRIM(Substring(numbers,one*10-9,10)));
		END IF;
	END IF;	
END IF;
RETURN RESULT;
END

参考SQL Server SQL货币数字转英文字符语句
目前的方法比较笨，之后会出其他版本到博客，再看吧
这个版本的逻辑有些问题，hundred>0的情况包括了，却没有=0的情况，顺带兼顾了英文语法ninty-nine，所以今天做了逻辑上的优化。接下来要写小数点了（需要大换新）。

CREATE DEFINER=`root`@`%` FUNCTION `NewProc`(MONEY DECIMAL( 15, 2 )) RETURNS varchar(400) CHARSET utf8
BEGIN
DECLARE  result      VARCHAR(400); -- 返回字符串
DECLARE i INT DEFAULT 0;
DECLARE hundreds INT;
DECLARE tenth INT;
DECLARE one INT;
DECLARE thousand INT;
DECLARE million INT;
DECLARE billion INT;
DECLARE NUMBERS VARCHAR(400);
DECLARE s VARCHAR( 15 );
-- set i=0;
Set RESULT='';
Set NUMBERS='one       two       three     four      five      six       seven     eight     nine      ten        eleven    tweleve   thirteen  fourteen   fifteen   sixteen   seventeen eighteen  nineteen  twenty    thirty    forty     fifty     sixty     seventy   eighty    ninety    ';
Set s=LPAD(MONEY,15,'0');
Set billion=Substring(s,1,3);
Set million=Substring(s,4,3);
Set thousand=Substring(s,7,3);

IF MONEY= 0 THEN
	SET RESULT =CONCAT('zero');
ELSE
	WHILE i<=3 DO
	Set hundreds=Substring(s,i*3+1,1);
	Set tenth=Substring(s,i*3+2,1);
	Set one=(Case tenth When 1 Then 10 Else 0 End)+Substring(s,i*3+3,1);
	Set tenth=(Case When tenth<=1 Then 0 Else tenth End);
-- 	SET result=concat(result,'zheliten',tenth,' zhelione ',one,'zheli hundreds',hundreds);
		IF (i=3 and (billion>0 or million>0 or thousand>0) and (hundreds=0 and (tenth>0 or one>0))) THEN
		Set result=CONCAT(trim(result),' and ');
		END IF;
-- 		Set result=CONCAT(result,billion,'billion','zhe',hundreds,'hundreds');
		IF hundreds>0 THEN
				Set result=CONCAT(trim(result),' ',TRIM(Substring(numbers,hundreds*10-9,10)),' hundred ');
				IF one>=1 THEN
					Set result=CONCAT(trim(result),' and ');
				END IF;
			END IF;
			IF tenth>=2 and tenth<=9 THEN
				Set result=CONCAT(result,TRIM(Substring(numbers,tenth*10+171,10)));
				IF one>=1 and one<=9 THEN
					Set result=CONCAT(trim(result),'-',TRIM(Substring(numbers,one*10-9,10)));
				END IF;
			ELSEIF tenth=0 and one>=1 and one<=19 then
				Set result=CONCAT(trim(result),' ',TRIM(Substring(numbers,one*10-9,10)));
			END IF;
		IF i=0 and billion>0 THEN
			Set result=CONCAT(trim(result),' billion ');
		END IF;
		IF i=1 and million>0 THEN
			Set result=CONCAT(trim(result),' million ');
		END IF;
		IF i=2 and thousand>0 THEN
			Set result=CONCAT(trim(result),' thousand ');
		END IF;
		set i=i+1;
	END WHILE;
	IF(result<>'') THEN
		Set result=CONCAT(trim(result),' ');
	END IF;
	IF Substring(s,14,2)<>'00' THEN
		Set tenth=Substring(s,14,1);
		Set one=Substring(s,15,1);
		IF(tenth>=2 and tenth<=9) THEN
			Set result=CONCAT(trim(result),' ',TRIM(Substring(numbers,tenth*10+171,10)));
		END IF;
		IF	tenth=1 and one>=1 and one<=19 THEN
			Set result=CONCAT(trim(result),' ',TRIM(Substring(numbers,Substring(s,14,2)*10-9,10)));
		ELSE
			Set result=CONCAT(trim(result),' ',TRIM(Substring(numbers,one*10-9,10)));
		END IF;
	END IF;	
END IF;
RETURN RESULT;
END

测试数据的时候发现又有些缺陷，不仅是小数点之后的问题，还有对倒数两位数的转换也是有很大问题。
1.倒数两位数的tenth和one都比较简单，在这里应该对20以下的数字做个转换，转换成one的数据。
2.我采用小数点前的和小数点后分开转换，这边先贴上，第一种方法等会再加。
第二种方法比较好

CREATE DEFINER=`root`@`%` FUNCTION `NewProc`(MONEY DECIMAL( 15, 2 )) RETURNS varchar(400) CHARSET utf8
BEGIN
DECLARE  result      VARCHAR(400); -- 返回字符串
DECLARE i INT DEFAULT 0;
DECLARE hundreds INT;
DECLARE tenth INT;
DECLARE one INT;
DECLARE thousand INT;
DECLARE million INT;
DECLARE billion INT;
DECLARE NUMBERS VARCHAR(400);
DECLARE s VARCHAR( 18 );
-- set i=0;
Set RESULT='';
Set NUMBERS='one       two       three     four      five      six       seven     eight     nine      ten        eleven    tweleve   thirteen  fourteen   fifteen   sixteen   seventeen eighteen  nineteen  twenty    thirty    forty     fifty     sixty     seventy   eighty    ninety    ';
Set s=LPAD(MONEY,18,'0');
Set billion=Substring(s,1,3);
Set million=Substring(s,4,3);
Set thousand=Substring(s,7,3);

IF MONEY= 0 THEN
	SET RESULT =CONCAT('zero');
ELSE
	WHILE i<=3 DO
	Set hundreds=Substring(s,i*3+1,1);
	Set tenth=Substring(s,i*3+2,1);
	Set one=(Case tenth When 1 Then 10 Else 0 End)+Substring(s,i*3+3,1);
	Set tenth=(Case When tenth<=1 Then 0 Else tenth End);
-- 	SET result=concat(result,'zheliten',tenth,' zhelione ',one,'zheli hundreds',hundreds);
		IF (i=3 and (billion>0 or million>0 or thousand>0) and (hundreds=0 and (tenth>0 or one>0))) THEN
		Set result=CONCAT(trim(result),' and ');
		END IF;
-- 		Set result=CONCAT(result,billion,'billion','zhe',hundreds,'hundreds');
		IF hundreds>0 THEN
				Set result=CONCAT(trim(result),' ',TRIM(Substring(numbers,hundreds*10-9,10)),' hundred ');
				IF one>=1 THEN
					Set result=CONCAT(trim(result),' and ');
				END IF;
			END IF;
			IF tenth>=2 and tenth<=9 THEN
				Set result=CONCAT(result,TRIM(Substring(numbers,tenth*10+171,10)));
				IF one>=1 and one<=9 THEN
					Set result=CONCAT(trim(result),'-',TRIM(Substring(numbers,one*10-9,10)));
				END IF;
			ELSEIF tenth=0 and one>=1 and one<=19 then
				Set result=CONCAT(trim(result),' ',TRIM(Substring(numbers,one*10-9,10)));
			END IF;
		IF i=0 and billion>0 THEN
			Set result=CONCAT(trim(result),' billion ');
		END IF;
		IF i=1 and million>0 THEN
			Set result=CONCAT(trim(result),' million ');
		END IF;
		IF i=2 and thousand>0 THEN
			Set result=CONCAT(trim(result),' thousand ');
		END IF;
		set i=i+1;
	END WHILE;
	IF Substring(s,14,2)<>'00' THEN
		Set result=CONCAT(trim(result),' ','point');
		Set tenth=Substring(s,17,1);	
		Set one=Substring(s,18,1);
		IF(tenth<>'0') THEN
			Set result=CONCAT(trim(result),' ',TRIM(Substring(numbers,tenth*10-9,10)));
		ELSE
				Set result=CONCAT(trim(result),' ','zero');
		END IF;
			Set result=CONCAT(trim(result),' ',TRIM(Substring(numbers,one*10-9,10)));
	END IF;	
END IF;
RETURN RESULT;
END

CREATE DEFINER=`root`@`%` FUNCTION `EngPoint`(MONEY DECIMAL( 15, 2 )) RETURNS varchar(400) CHARSET utf8
BEGIN
DECLARE  result      VARCHAR(400); -- 返回字符串
DECLARE i INT DEFAULT 0;
DECLARE j INT DEFAULT 0;
DECLARE hundreds INT;
DECLARE tenth INT;
DECLARE one INT;
DECLARE cent INT;
DECLARE thousand INT;
DECLARE million INT;
DECLARE billion INT;
DECLARE NUMBERS VARCHAR(400);
DECLARE s VARCHAR( 15);
DECLARE integers varchar(15);
DECLARE fraction varchar(2);

Set RESULT='';
Set NUMBERS='one       two       three     four      five      six       seven     eight     nine      ten        eleven    tweleve   thirteen  fourteen   fifteen   sixteen   seventeen eighteen  nineteen  twenty    thirty    forty     fifty     sixty     seventy   eighty    ninety    ';
Set s=LPAD(MONEY,15,'0');
Set fraction=SUBSTRING_INDEX(s,'.',-1);
Set integers=SUBSTRING_INDEX(s,'.',1);
Set billion=Substring(integers,1,3);
Set million=Substring(integers,4,3);
Set thousand=Substring(integers,7,3);
IF integers= 0 THEN
	SET RESULT =CONCAT('zero');
ELSE
	WHILE i<=3 DO
	Set hundreds=Substring(integers,i*3+1,1);
	Set tenth=Substring(integers,i*3+2,1);
	Set one=(Case tenth When 1 Then 10 Else 0 End)+Substring(integers,i*3+3,1);
	Set tenth=(Case When tenth<=1 Then 0 Else tenth End);
		IF (i=3 and (billion>0 or million>0 or thousand>0) and (hundreds=0 and (tenth>0 or one>0))) THEN
		Set result=CONCAT(trim(result),' and ');
		END IF;
		IF hundreds>0 THEN
				Set result=CONCAT(trim(result),' ',TRIM(Substring(NUMBERS,hundreds*10-9,10)),' hundred ');
				IF one>=1 THEN
					Set result=CONCAT(trim(result),' and ');
				END IF;
			END IF;
			IF tenth>=2 and tenth<=9 THEN
				Set result=CONCAT(result,TRIM(Substring(NUMBERS,tenth*10+171,10)));
				IF one>=1 and one<=9 THEN
					Set result=CONCAT(trim(result),'-',TRIM(Substring(NUMBERS,one*10-9,10)));
				END IF;
			ELSEIF tenth=0 and one>=1 and one<=19 then
				Set result=CONCAT(trim(result),' ',TRIM(Substring(NUMBERS,one*10-9,10)));
			END IF;
		IF i=0 and billion>0 THEN
			Set result=CONCAT(trim(result),' billion ');
		END IF;
		IF i=1 and million>0 THEN
			Set result=CONCAT(trim(result),' million ');
		END IF;
		IF i=2 and thousand>0 THEN
			Set result=CONCAT(trim(result),' thousand ');
		END IF;
		set i=i+1;
	END WHILE;
END IF;
	IF (fraction<>0) THEN
		Set result=CONCAT(trim(result),' ','point');
		WHILE j<2 DO
			set cent =SUBSTRING(fraction,j+1,1);
			IF cent<>'0' THEN
				Set result=CONCAT(trim(result),' ',TRIM(Substring(NUMBERS,cent*10-9,10)));
			ELSE
				Set result=CONCAT(trim(result),' ','zero');
			END IF;
			set j=j+1;
		END WHILE;
	END IF;
Set result=CONCAT(trim(result),' ','ONLY');
RETURN RESULT;
END

不清楚的可以随时问，看到会回复

qq_36390975
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
sql数字转英文
ahshow的专栏
09-28 1095
create function decodehundred(@hundredstring varchar(300) )returns  varchar(1000)asbegin declare  @tmp varchar(1000),@decodehundred varchar(1000)set @decodehundred = declare @strno1 varchar(1000)sel
sql将阿拉伯数字转换为中文数字，MySQL数字转大写，自定义函数
qq_38653209的博客
10-29 9422
CREATE FUNCTION `mathToChar`(`str` VARCHAR(100)) RETURNS VARCHAR(100) character set gbk BEGIN DECLARE str1 VARCHAR(1) character set gbk DEFAULT '' ; DECLARE return_str VARCHAR(255) character s...
把阿拉伯数字转换成英文描述
cong31848的博客
04-03 238
Select To_Char(To_Date(1234567, 'j'), 'jsp') From Dual; Comment: "jsp" is a addition format element for datetime...
数字转换成英文的SQL函数
Sakurain的专栏
12-13 1521
/**//********************************************************************* 数字转换成英文大写** Code CreateBy guofeng 2005.11.21*******************************************************************/CREATE FUNC
SQL Server T-SQL 数字转英文 自定义函数
qq_34677276的博客
06-16 431
SQL Server T-SQL 数字转英文 自定义函数
科学计数法转换时间戳 科学计数法转换时间戳
09-06
而科学计数法是一种表示大数值或小数值的方式，它将数字写为一个1到10之间的数字乘以10的幂次。在某些场景下，科学计数法可能会用于存储或传递时间戳，特别是在数据传输或存储空间有限的情况下。然而，在实际操作中...
PHP实现将科学计数法转换为原始数字字符串的方法
10-25
主要介绍了PHP实现将科学计数法转换为原始数字字符串的方法,通过一个简单的自定义函数使用正则替换实现该功能,是非常实用的技巧,需要的朋友可以参考下
java中将科学计数法转换普通计数法的简单方法
08-31
在Java编程语言中，处理数字时，特别是在进行大数据计算或者显示时，可能会遇到科学计数法的表示形式。科学计数法是一种节省空间且方便表示极小或极大的数值的格式，例如1.23E+5代表123000。然而，在某些场景下，...
Long类型转换为科学计数法
09-28
将Long类型数据转换为科学计数法，使用的原生的写法，无需任何工具插件，编写环境支持JDK7/8及以上
SQL数字转英文函数
weixin_34248023的博客
01-03 196
-- 数字转英文 -- ============================================= -- Author: qianjin036a -- Create date:06/14/2008 02:27:17 -- Description:Arabic numerals to English -- ==================================...
SQL货币数字转英文字符语句
09-11
SQL货币数字转英文字符，需要的朋友可以参考下。
阿拉伯数字转换成中文.sql
04-13
阿拉伯数字转换成中文数字， 例如： 10转换成十，111转换成一百一十一 最高支持的数字单位亿， 再大的话可能需要自己修改
SQL 数字转换英文函数
cuanji3287的博客
08-03 100
USE[WWERP]GO/******对象:UserDefinedFunction[dbo].[fun_currencyENG]脚本日期:08/02/200915:58:03******/SET...
[MSSQL]SQL 数字转换英文函数
德仔
08-17 2275
CREATE FUNCTION [dbo].[fun_currencyENG] (@num numeric(15,2)) RETURNS varchar(400) AS BEGIN DECLARE @i int,@hundreds int,@tenth int,@one int DECLARE @thousand int,@million int,@billion int DECLARE
oracle 英文转数字,数字转换成英文
weixin_30393633的博客
04-02 651
今天看到一篇帖子，讲述的是如何把数字转换成英文表示。本人觉得不错，将其收入我的经典sql。原文如下：利用to_timestamp,to_char两个内置函数将范围为(-999999999,999999999)的数值转换为英文表示：SELECT initcap(to_char(to_timestamp(substr(lpad(abs(123456789), 9, '0'),1,3),'FF3'),'...
SQL Server 金额转换成英文大写
最新发布
x1043556915的博客
09-28 509
SQL Server 金额转换成英文大写
如何在Excel或sqlserver中写用户函数实现数字货币向英文转换集锦
军哥博客欢迎您
05-19 1566
如何创建名为 SpellNumber 的示例函数 启动 Microsoft Excel。按 Alt+F11 启动 Visual Basic 编辑器。在“插入”菜单上，单击“模块”。在模块表中键入下面的代码。 Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Dollars, Cents,
数字转换成英文大写的SQL函数
伴老
11-21 4288
/********************************************************************* 数字转换成英文大写** Code CreateBy Abandonship 2005.11.21*******************************************************************/CREATE FUNCTI
[MSSQL]SQL数字转英文函数
德仔
02-16 1218
-- ============================================= -- Author: qianjin036a -- Create date:06/14/2008 02:27:17 -- Description:Arabic numerals to English -- ============================================

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值