mysql 汉字转拼音的函数 mysql转中文

转载
mob64ca13feda16 2023-09-28 21:46:44
文章标签 mysql 汉字转拼音的函数 mysql 文章分类 MySQL 数据库
mysql 数字金钱转中文金钱函数
create
     function func_to_china_num(MONEY varchar(20)) returns varchar(150)
BEGIN

	declare RV_MONEY0 VARCHAR(20);
	declare RV_MONEY1 VARCHAR(4);
	declare RV_MONEY2 VARCHAR(4);
	declare V_MONEY0 VARCHAR(28);
	declare V_MONEY1 VARCHAR(4);
	declare V_MONEY2 VARCHAR(4);
	declare V_MONEY3 VARCHAR(4);
	declare V_MONEY4 VARCHAR(4);
	declare V_MONEY5 VARCHAR(4);
	declare V_MONEY6 VARCHAR(4);
	declare V_MONEY7 VARCHAR(4);
	declare V_MONEY8 VARCHAR(4);
	declare V_MONEY9 VARCHAR(4);
	declare V_MONEY10 VARCHAR(4);
	declare V_MONEY11 VARCHAR(4);
	declare V_MONEY12 VARCHAR(4);
	declare RPV_MONEY1 VARCHAR(4);
	declare RPV_MONEY2 VARCHAR(4);
	declare PV_MONEY0 VARCHAR(14);
	declare PV_MONEY1 VARCHAR(4);
	declare PV_MONEY2 VARCHAR(4);
	declare PV_MONEY3 VARCHAR(4);
	declare PV_MONEY4 VARCHAR(4);
	declare PV_MONEY5 VARCHAR(4);
	declare PV_MONEY6 VARCHAR(4);
	declare PV_MONEY7 VARCHAR(4);
	declare PV_MONEY8 VARCHAR(4);
	declare PV_MONEY9 VARCHAR(4);
	declare PV_MONEY10 VARCHAR(4);
	declare PV_MONEY11 VARCHAR(4);
	declare PV_MONEY12 VARCHAR(4);
	declare Z_MONEY VARCHAR(28);
	set Z_MONEY=FLOOR(MONEY);
	set V_MONEY0=LTRIM(RTRIM(Z_MONEY));
	set Z_MONEY=FLOOR(MONEY*100);
	set RV_MONEY0=LTRIM(RTRIM(Z_MONEY));
	set RV_MONEY1=SUBSTR(RV_MONEY0,LENGTH(RV_MONEY0),1);
  IF MONEY is null or MONEY=""  THEN
		return "";
  end if;

	IF LENGTH(RV_MONEY0)>1 THEN
		set RV_MONEY2=SUBSTR(RV_MONEY0,LENGTH(RV_MONEY0)-1,1);
	ELSE
		set RV_MONEY2='0';
	END IF;
	set V_MONEY1=SUBSTR(V_MONEY0,LENGTH(V_MONEY0),1);
	IF LENGTH(V_MONEY0)-1>0 THEN
		set V_MONEY2=SUBSTR(V_MONEY0,LENGTH(V_MONEY0)-1,1);
	ELSE
		set V_MONEY2='0';
	END IF;
	IF LENGTH(V_MONEY0)-2>0 THEN
		set V_MONEY3=SUBSTR(V_MONEY0,LENGTH(V_MONEY0)-2,1);
	ELSE
		set V_MONEY3='0';
	END IF;
	IF LENGTH(V_MONEY0)-3>0 THEN
		set V_MONEY4=SUBSTR(V_MONEY0,LENGTH(V_MONEY0)-3,1);
	ELSE
		set V_MONEY4='0';
	END IF;
	IF LENGTH(V_MONEY0)-4>0 THEN
		set V_MONEY5=SUBSTR(V_MONEY0,LENGTH(V_MONEY0)-4,1);
	ELSE
		set V_MONEY5='0';
	END IF;
	IF LENGTH(V_MONEY0)-5>0 THEN
		set V_MONEY6=SUBSTR(V_MONEY0,LENGTH(V_MONEY0)-5,1);
	ELSE
		set V_MONEY6='0';
	END IF;
	IF LENGTH(V_MONEY0)-6>0 THEN
		set V_MONEY7=SUBSTR(V_MONEY0,LENGTH(V_MONEY0)-6,1);
	ELSE
		set V_MONEY7='0';
	END IF;
	IF LENGTH(V_MONEY0)-7>0 THEN
		set V_MONEY8=SUBSTR(V_MONEY0,LENGTH(V_MONEY0)-7,1);
	ELSE
		set V_MONEY8='0';
	END IF;
	IF LENGTH(V_MONEY0)-8>0 THEN
		set V_MONEY9=SUBSTR(V_MONEY0,LENGTH(V_MONEY0)-8,1);
	ELSE
		set V_MONEY9='0';
	END IF;
	IF LENGTH(V_MONEY0)-9>0 THEN
		set V_MONEY10=SUBSTR(V_MONEY0,LENGTH(V_MONEY0)-9,1);
	ELSE
		set V_MONEY10='0';
	END IF;
	IF LENGTH(V_MONEY0)-10>0 THEN
		set V_MONEY11=SUBSTR(V_MONEY0,LENGTH(V_MONEY0)-10,1);
	ELSE
		set V_MONEY11='0';
	END IF;
	IF LENGTH(V_MONEY0)-11>0 THEN
		set V_MONEY12=SUBSTR(V_MONEY0,LENGTH(V_MONEY0)-11,1);
	ELSE
		set V_MONEY12='0';
	END IF;
	select if(RV_MONEY1='0','零分',if(RV_MONEY1='1','壹分',if(RV_MONEY1='2','贰分',if(RV_MONEY1='3','叁分',
	if(RV_MONEY1='4','肆分',if(RV_MONEY1='5','伍分',if(RV_MONEY1='6','陆分',if(RV_MONEY1='7','柒分',if(
	RV_MONEY1='8','捌分','玖分'))))))))) into rpv_money1;
	select if(RV_MONEY2='0','零角',if(RV_MONEY2='1','壹角',if(RV_MONEY2='2','贰角',if(RV_MONEY2='3','叁角',
	if(RV_MONEY2='4','肆角',if(RV_MONEY2='5','伍角',if(RV_MONEY2='6','陆角',if(RV_MONEY2='7','柒角',if(
	RV_MONEY2='8','捌角','玖角'))))))))) into rpv_money2;
	select if(V_MONEY1='0','元',if(V_MONEY1='1','壹元',if(V_MONEY1='2','贰元',if(V_MONEY1='3','叁元',
	if(V_MONEY1='4','肆元',if(V_MONEY1='5','伍元',if(V_MONEY1='6','陆元',if(V_MONEY1='7','柒元',if(
	V_MONEY1='8','捌元','玖元'))))))))) into pv_money1;
	select if(V_MONEY2='0','',if(V_MONEY2='1','壹拾',if(V_MONEY2='2','贰拾',if(V_MONEY2='3','叁拾',
	if(V_MONEY2='4','肆拾',if(V_MONEY2='5','伍拾',if(V_MONEY2='6','陆拾',if(V_MONEY2='7','柒拾',if(
	V_MONEY2='8','捌拾','玖拾'))))))))) into pv_money2;
	select if(V_MONEY3='0','',if(V_MONEY3='1','壹佰',if(V_MONEY3='2','贰佰',if(V_MONEY3='3','叁佰',
	if(V_MONEY3='4','肆佰',if(V_MONEY3='5','伍佰',if(V_MONEY3='6','陆佰',if(V_MONEY3='7','柒佰',if(
	V_MONEY3='8','捌佰','玖佰'))))))))) into pv_money3;
	select if(V_MONEY4='0','',if(V_MONEY4='1','壹仟',if(V_MONEY4='2','贰仟',if(V_MONEY4='3','叁仟',
	if(V_MONEY4='4','肆仟',if(V_MONEY4='5','伍仟',if(V_MONEY4='6','陆仟',if(V_MONEY4='7','柒仟',if(
	V_MONEY4='8','捌仟','玖仟'))))))))) into pv_money4;
	select if(V_MONEY5='0','万',if(V_MONEY5='1','壹万',if(V_MONEY5='2','贰万',if(V_MONEY5='3','叁万',
	if(V_MONEY5='4','肆万',if(V_MONEY5='5','伍万',if(V_MONEY5='6','陆万',if(V_MONEY5='7','柒万',if(
	V_MONEY5='8','捌万','玖万'))))))))) into pv_money5;
	select if(V_MONEY6='0','',if(V_MONEY6='1','壹拾',if(V_MONEY6='2','贰拾',if(V_MONEY6='3','叁拾',
	if(V_MONEY6='4','肆拾',if(V_MONEY6='5','伍拾',if(V_MONEY6='6','陆拾',if(V_MONEY6='7','柒拾',if(
	V_MONEY6='8','捌拾','玖拾'))))))))) into pv_money6;
	select if(V_MONEY7='0','',if(V_MONEY7='1','壹佰',if(V_MONEY7='2','贰佰',if(V_MONEY7='3','叁佰',
	if(V_MONEY7='4','肆佰',if(V_MONEY7='5','伍佰',if(V_MONEY7='6','陆佰',if(V_MONEY7='7','柒佰',if(
	V_MONEY7='8','捌佰','玖佰'))))))))) into pv_money7;
	select if(V_MONEY8='0','',if(V_MONEY8='1','壹仟',if(V_MONEY8='2','贰仟',if(V_MONEY8='3','叁仟',
	if(V_MONEY8='4','肆仟',if(V_MONEY8='5','伍仟',if(V_MONEY8='6','陆仟',if(V_MONEY8='7','柒仟',if(
	V_MONEY8='8','捌仟','玖仟'))))))))) into pv_money8;
	select if(V_MONEY9='0','亿',if(V_MONEY9='1','壹亿',if(V_MONEY9='2','贰亿',if(V_MONEY9='3','叁亿',
	if(V_MONEY9='4','肆亿',if(V_MONEY9='5','伍亿',if(V_MONEY9='6','陆亿',if(V_MONEY9='7','柒亿',if(
	V_MONEY9='8','捌亿','玖亿'))))))))) into pv_money9;
	select if(V_MONEY10='0','',if(V_MONEY10='1','壹拾',if(V_MONEY10='2','贰拾',if(V_MONEY10='3','叁拾',
	if(V_MONEY10='4','肆拾',if(V_MONEY10='5','伍拾',if(V_MONEY10='6','陆拾',if(V_MONEY10='7','柒拾',if(
	V_MONEY10='8','捌拾','玖拾'))))))))) into pv_money10;
	select if(V_MONEY11='0','',if(V_MONEY11='1','壹佰',if(V_MONEY11='2','贰佰',if(V_MONEY11='3','叁佰',
	if(V_MONEY11='4','肆佰',if(V_MONEY11='5','伍佰',if(V_MONEY11='6','陆佰',if(V_MONEY11='7','柒佰',if(
	V_MONEY11='8','捌佰','玖佰'))))))))) into pv_money11;
	select if(V_MONEY12='0','',if(V_MONEY12='1','壹仟',if(V_MONEY12='2','贰仟',if(V_MONEY12='3','叁仟',
	if(V_MONEY12='4','肆仟',if(V_MONEY12='5','伍仟',if(V_MONEY12='6','陆仟',if(V_MONEY12='7','柒仟',if(
	V_MONEY12='8','捌仟','玖仟'))))))))) into pv_money12;
	if RPV_MONEY2 = '零角' AND RPV_MONEY1 = '零分' THEN
		set V_MONEY0=CONCAT(PV_MONEY12,PV_MONEY11,PV_MONEY10,PV_MONEY9,PV_MONEY8,PV_MONEY7,PV_MONEY6,PV_MONEY5,PV_MONEY4,
		PV_MONEY3,PV_MONEY2,PV_MONEY1,'整');
	else
		set V_MONEY0=CONCAT(PV_MONEY12,PV_MONEY11,PV_MONEY10,PV_MONEY9,PV_MONEY8,PV_MONEY7,PV_MONEY6,PV_MONEY5,PV_MONEY4,
		PV_MONEY3,PV_MONEY2,PV_MONEY1,RPV_MONEY2,RPV_MONEY1);
	END IF;

	if SUBSTR(V_MONEY0,1,1)='亿' then
		set V_MONEY0=SUBSTR(V_MONEY0,2,LENGTH(V_MONEY0)-1);
	end if;
	if SUBSTR(V_MONEY0,1,1)='万' then
		set V_MONEY0=SUBSTR(V_MONEY0,2,LENGTH(V_MONEY0)-1);
	end if;
/* 判断亿和万之间间隔的位数 locate */
	set V_MONEY0=REPLACE(V_MONEY0,'亿万','亿');
/* 判断亿和元之间间隔的位数 locate */
	if locate('元',V_MONEY0)-locate('亿',V_MONEY0)=2 then
		set V_MONEY0=REPLACE(V_MONEY0,'亿壹','亿零壹');
		set V_MONEY0=REPLACE(V_MONEY0,'亿贰','亿零贰');
		set V_MONEY0=REPLACE(V_MONEY0,'亿叁','亿零叁');
		set V_MONEY0=REPLACE(V_MONEY0,'亿肆','亿零肆');
		set V_MONEY0=REPLACE(V_MONEY0,'亿伍','亿零伍');
		set V_MONEY0=REPLACE(V_MONEY0,'亿陆','亿零陆');
		set V_MONEY0=REPLACE(V_MONEY0,'亿柒','亿零柒');
		set V_MONEY0=REPLACE(V_MONEY0,'亿捌','亿零捌');
		set V_MONEY0=REPLACE(V_MONEY0,'亿玖','亿零玖');
	end if;
	set V_MONEY0=REPLACE(V_MONEY0,'亿壹拾','亿零壹拾');
	set V_MONEY0=REPLACE(V_MONEY0,'亿贰拾','亿零贰拾');
	set V_MONEY0=REPLACE(V_MONEY0,'亿叁拾','亿零叁拾');
	set V_MONEY0=REPLACE(V_MONEY0,'亿肆拾','亿零肆拾');
	set V_MONEY0=REPLACE(V_MONEY0,'亿伍拾','亿零伍拾');
	set V_MONEY0=REPLACE(V_MONEY0,'亿陆拾','亿零陆拾');
	set V_MONEY0=REPLACE(V_MONEY0,'亿柒拾','亿零柒拾');
	set V_MONEY0=REPLACE(V_MONEY0,'亿捌拾','亿零捌拾');
	set V_MONEY0=REPLACE(V_MONEY0,'亿玖拾','亿零玖拾');
	set V_MONEY0=REPLACE(V_MONEY0,'亿壹佰','亿零壹佰');
	set V_MONEY0=REPLACE(V_MONEY0,'亿贰佰','亿零贰佰');
	set V_MONEY0=REPLACE(V_MONEY0,'亿叁佰','亿零叁佰');
	set V_MONEY0=REPLACE(V_MONEY0,'亿肆佰','亿零肆佰');
	set V_MONEY0=REPLACE(V_MONEY0,'亿伍佰','亿零伍佰');
	set V_MONEY0=REPLACE(V_MONEY0,'亿陆佰','亿零陆佰');
	set V_MONEY0=REPLACE(V_MONEY0,'亿柒佰','亿零柒佰');
	set V_MONEY0=REPLACE(V_MONEY0,'亿捌佰','亿零捌佰');
	set V_MONEY0=REPLACE(V_MONEY0,'亿玖佰','亿零玖佰');
/* 判断最后一个万和元之间间隔的位数 */
	if locate('元',V_MONEY0)-locate('万',V_MONEY0)=2 then
		set V_MONEY0=REPLACE(V_MONEY0,'万壹','万零壹');
		set V_MONEY0=REPLACE(V_MONEY0,'万贰','万零贰');
		set V_MONEY0=REPLACE(V_MONEY0,'万叁','万零叁');
		set V_MONEY0=REPLACE(V_MONEY0,'万肆','万零肆');
		set V_MONEY0=REPLACE(V_MONEY0,'万伍','万零伍');
		set V_MONEY0=REPLACE(V_MONEY0,'万陆','万零陆');
		set V_MONEY0=REPLACE(V_MONEY0,'万柒','万零柒');
		set V_MONEY0=REPLACE(V_MONEY0,'万捌','万零捌');
		set V_MONEY0=REPLACE(V_MONEY0,'万玖','万零玖');
	end if;
	set V_MONEY0=REPLACE(V_MONEY0,'万壹拾','万零壹拾');
	set V_MONEY0=REPLACE(V_MONEY0,'万贰拾','万零贰拾');
	set V_MONEY0=REPLACE(V_MONEY0,'万叁拾','万零叁拾');
	set V_MONEY0=REPLACE(V_MONEY0,'万肆拾','万零肆拾');
	set V_MONEY0=REPLACE(V_MONEY0,'万伍拾','万零伍拾');
	set V_MONEY0=REPLACE(V_MONEY0,'万陆拾','万零陆拾');
	set V_MONEY0=REPLACE(V_MONEY0,'万柒拾','万零柒拾');
	set V_MONEY0=REPLACE(V_MONEY0,'万捌拾','万零捌拾');
	set V_MONEY0=REPLACE(V_MONEY0,'万玖拾','万零玖拾');
	set V_MONEY0=REPLACE(V_MONEY0,'万壹佰','万零壹佰');
	set V_MONEY0=REPLACE(V_MONEY0,'万贰佰','万零贰佰');
	set V_MONEY0=REPLACE(V_MONEY0,'万叁佰','万零叁佰');
	set V_MONEY0=REPLACE(V_MONEY0,'万肆佰','万零肆佰');
	set V_MONEY0=REPLACE(V_MONEY0,'万伍佰','万零伍佰');
	set V_MONEY0=REPLACE(V_MONEY0,'万陆佰','万零陆佰');
	set V_MONEY0=REPLACE(V_MONEY0,'万柒佰','万零柒佰');
	set V_MONEY0=REPLACE(V_MONEY0,'万捌佰','万零捌佰');
	set V_MONEY0=REPLACE(V_MONEY0,'万玖佰','万零玖佰');
/* 判断最后一个千和元之间间隔的位数 */
	if locate('元',V_MONEY0)-locate('仟',V_MONEY0)=2 then
		set V_MONEY0=REPLACE(V_MONEY0,'仟壹','仟零壹');
		set V_MONEY0=REPLACE(V_MONEY0,'仟贰','仟零贰');
		set V_MONEY0=REPLACE(V_MONEY0,'仟叁','仟零叁');
		set V_MONEY0=REPLACE(V_MONEY0,'仟肆','仟零肆');
		set V_MONEY0=REPLACE(V_MONEY0,'仟伍','仟零伍');
		set V_MONEY0=REPLACE(V_MONEY0,'仟陆','仟零陆');
		set V_MONEY0=REPLACE(V_MONEY0,'仟柒','仟零柒');
		set V_MONEY0=REPLACE(V_MONEY0,'仟捌','仟零捌');
		set V_MONEY0=REPLACE(V_MONEY0,'仟玖','仟零玖');
	end if;
	set V_MONEY0=REPLACE(V_MONEY0,'仟壹拾','仟零壹拾');
	set V_MONEY0=REPLACE(V_MONEY0,'仟贰拾','仟零贰拾');
	set V_MONEY0=REPLACE(V_MONEY0,'仟叁拾','仟零叁拾');
	set V_MONEY0=REPLACE(V_MONEY0,'仟肆拾','仟零肆拾');
	set V_MONEY0=REPLACE(V_MONEY0,'仟伍拾','仟零伍拾');
	set V_MONEY0=REPLACE(V_MONEY0,'仟陆拾','仟零陆拾');
	set V_MONEY0=REPLACE(V_MONEY0,'仟柒拾','仟零柒拾');
	set V_MONEY0=REPLACE(V_MONEY0,'仟捌拾','仟零捌拾');
	set V_MONEY0=REPLACE(V_MONEY0,'仟玖拾','仟零玖拾');
/* 判断最后一个佰和元之间间隔的位数 */
	 if locate('元',V_MONEY0)-locate('佰',V_MONEY0)=2  or locate('元',V_MONEY0)-locate('佰',V_MONEY0)=3 or locate('万',V_MONEY0)-locate('佰',V_MONEY0)=2 then
		set V_MONEY0=REPLACE(V_MONEY0,'佰壹','佰零壹');
		set V_MONEY0=REPLACE(V_MONEY0,'佰贰','佰零贰');
		set V_MONEY0=REPLACE(V_MONEY0,'佰叁','佰零叁');
		set V_MONEY0=REPLACE(V_MONEY0,'佰肆','佰零肆');
		set V_MONEY0=REPLACE(V_MONEY0,'佰伍','佰零伍');
		set V_MONEY0=REPLACE(V_MONEY0,'佰陆','佰零陆');
		set V_MONEY0=REPLACE(V_MONEY0,'佰柒','佰零柒');
		set V_MONEY0=REPLACE(V_MONEY0,'佰捌','佰零捌');
		set V_MONEY0=REPLACE(V_MONEY0,'佰玖','佰零玖');
	 end if;

	if SUBSTR(V_MONEY0,LENGTH(V_MONEY0)/2-1,1)='零' then
		set V_MONEY0=SUBSTR(V_MONEY0,1,LENGTH(V_MONEY0)/2-2);
	end if;
	if SUBSTR(V_MONEY0,LENGTH(V_MONEY0)/2-1,1)='零' then
		set V_MONEY0=SUBSTR(V_MONEY0,1,LENGTH(V_MONEY0)/2-2);
		set V_MONEY0=CONCAT(V_MONEY0,'整');
	end if;
/* 判断有没有零角,有就替换成零 */
	set V_MONEY0=REPLACE(V_MONEY0,'零角','零');
	if V_MONEY0='元整' then
		set V_MONEY0='零元';
	end if;
	return V_MONEY0;
END;
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。