下载帝国网站管理系统5.0正式版
 帝国论坛技术交流区网络编程为感谢大家的支持和帮助,此段代码公开
帝国CMS5.0正式版发布
中客:域名1元,空间10元,随时可退款!
测试:生成20万数据共用107分钟
《帝国下载系统》全面免费
帝国备份王2008版发布
帝国软件旗下新站 - 站长工具
1G双线帝国空间+200M数据库=158
帝国CMS教程下载
主题:为感谢大家的支持和帮助,此段代码公开 [加入收藏夹]   

美丽错误
用户头衔:秀才

精华贴   :1
发贴数   :44
经验值   :350
注册时间:2004-07-29
信息 搜索 好友 发送悄悄话 《帝国网站管理系统》基础教程下载】   [第 1 楼]
为感谢大家的支持和帮助,此段代码公开
小写数字金额,转换成大写中文,绝无错误
function mxb(){
newchar="";

Num=document.form1.money.value;

for(i=Num.length-1;i>=0;i--)
{
Num = Num.replace(",","")//替换tomoney()中的“,”
Num = Num.replace(" ","")//替换tomoney()中的空格
Num = Num.replace("¥","")//替换掉可能出现的¥字符
}

if(isNaN(Num))
{ //验证输入的字符是否为数字
alert("请检查小写金额是否正确");
return;
}
//小数点前进行转化
part = String(Num).split(".");
newchar = "";
for(i=part[0].length-1;i>=0;i--){
if(part[0].length > 10){ alert("位数过大,无法计算");return "";}//若数量超过拾亿单位,提示
tmpnewchar = ""
perchar = part[0].charAt(i);
switch(perchar){
case "0": tmpnewchar="零" + tmpnewchar ;break;
case "1": tmpnewchar="壹" + tmpnewchar ;break;
case "2": tmpnewchar="贰" + tmpnewchar ;break;
case "3": tmpnewchar="叁" + tmpnewchar ;break;
case "4": tmpnewchar="肆" + tmpnewchar ;break;
case "5": tmpnewchar="伍" + tmpnewchar ;break;
case "6": tmpnewchar="陆" + tmpnewchar ;break;
case "7": tmpnewchar="柒" + tmpnewchar ;break;
case "8": tmpnewchar="捌" + tmpnewchar ;break;
case "9": tmpnewchar="玖" + tmpnewchar ;break;
}
switch(part[0].length-i-1){
case 0: tmpnewchar = tmpnewchar +"元" ;break;
case 1: if(perchar!=0)tmpnewchar= tmpnewchar +"拾" ;break;
case 2: if(perchar!=0)tmpnewchar= tmpnewchar +"佰" ;break;
case 3: if(perchar!=0)tmpnewchar= tmpnewchar +"仟" ;break;
case 4: tmpnewchar= tmpnewchar +"万" ;break;
case 5: if(perchar!=0)tmpnewchar= tmpnewchar +"拾" ;break;
case 6: if(perchar!=0)tmpnewchar= tmpnewchar +"佰" ;break;
case 7: if(perchar!=0)tmpnewchar= tmpnewchar +"仟" ;break;
case 8: tmpnewchar= tmpnewchar +"亿" ;break;
case 9: tmpnewchar= tmpnewchar +"拾" ;break;
}
newchar = tmpnewchar + newchar;
}

//for循环结束


if(Num.indexOf(".")!=-1){
for(i=0;i<part[1].length;i++){
tmpnewchar = ""
perchar = part[1].charAt(i)
switch(perchar){
case "0": tmpnewchar="零" + tmpnewchar ;break;
case "1": tmpnewchar="壹" + tmpnewchar ;break;
case "2": tmpnewchar="贰" + tmpnewchar ;break;
case "3": tmpnewchar="叁" + tmpnewchar ;break;
case "4": tmpnewchar="肆" + tmpnewchar ;break;
case "5": tmpnewchar="伍" + tmpnewchar ;break;
case "6": tmpnewchar="陆" + tmpnewchar ;break;
case "7": tmpnewchar="柒" + tmpnewchar ;break;
case "8": tmpnewchar="捌" + tmpnewchar ;break;
case "9": tmpnewchar="玖" + tmpnewchar ;break;
}
if(i==0)tmpnewchar =tmpnewchar + "角";
if(i==1)tmpnewchar = tmpnewchar + "分";
newchar = newchar + tmpnewchar;
}

}
//替换所有无用汉字
while(newchar.search("零零") != -1) {
newchar = newchar.replace("零零", "零");
newchar = newchar.replace("零亿", "亿");
newchar = newchar.replace("亿万", "亿");
newchar = newchar.replace("零万", "万");
newchar = newchar.replace("零元", "元");
newchar = newchar.replace("零元", "元");
newchar = newchar.replace("零角", "");
newchar = newchar.replace("零分", "");
}

newchar = newchar+"整";
<!--alert("请确认你录入的金额和类别!!!"+"\n"+"\n"+"类别为:"+document.form1.kind.value+"\n"+"\n"+"金额:"+"\n"+"\n"+newchar);--!>
document.form1.chinamoney.value=newchar;
}




2004-08-06 21:23:54 已设置保密 顶部 回复 引用 报告 编辑 删除

wm_chief
用户头衔:管理员

精华贴   :21
发贴数   :47645
经验值   :108456
注册时间:2002-10-30
信息 搜索 好友 发送悄悄话 《帝国网站管理系统》零基础实例入门教程】   [第 2 楼]

感谢提供,已加入精华



[零基础入门教程] [模板制作教程] [采集使用教程]
官方使用交流群:12261591
2004-08-06 09:37:14 已设置保密 顶部 回复 引用 报告 编辑 删除

Kenf
用户头衔:书生

精华贴   :0
发贴数   :62
经验值   :259
注册时间:2003-12-17
信息 搜索 好友 发送悄悄话 《帝国网站管理系统》基础教程下载】   [第 3 楼]

好东西嘢。在下先收下了。多谢楼主提供。楼主的大恩大德没齿难忘




2004-08-09 21:36:38 已设置保密 顶部 回复 引用 报告 编辑 删除

美丽错误
用户头衔:秀才

精华贴   :1
发贴数   :44
经验值   :350
注册时间:2004-07-29
信息 搜索 好友 发送悄悄话 《帝国网站管理系统》零基础实例入门教程】   [第 4 楼]

不用只要大家有用就行




2004-08-10 11:14:05 已设置保密 顶部 回复 引用 报告 编辑 删除

wm_chief
用户头衔:管理员

精华贴   :21
发贴数   :47645
经验值   :108456
注册时间:2002-10-30
信息 搜索 好友 发送悄悄话 《帝国网站管理系统》基础教程下载】   [第 5 楼]

不用只要大家有用就行

再次感谢提供,:)



[零基础入门教程] [模板制作教程] [采集使用教程]
官方使用交流群:12261591
2004-08-10 13:25:18 已设置保密 顶部 回复 引用 报告 编辑 删除

yellow1983
用户头衔:书生

精华贴   :0
发贴数   :1
经验值   :3
注册时间:2004-11-01
信息 搜索 好友 发送悄悄话 《帝国网站管理系统》零基础实例入门教程】   [第 6 楼]
小弟 愚昧 不知
小弟是初学者 不知道楼主的这段程序怎么用?
能否解释一下 谢谢




2004-11-01 10:41:46 已设置保密 顶部 回复 引用 报告 编辑 删除

wmchief
用户头衔:管理员

精华贴   :0
发贴数   :96
经验值   :443
注册时间:2002-12-31
信息 搜索 好友 发送悄悄话 《帝国网站管理系统》基础教程下载】   [第 7 楼]

小弟是初学者 不知道楼主的这段程序怎么用?
能否解释一下 谢谢

小写数字金额,转换成大写中文




2004-11-01 11:01:05 已设置保密 顶部 回复 引用 报告 编辑 删除


快速回复
内容

使用EBB代码
使用smile代码
显示签名
自动分析url
自动分析img
表情                   
                
    (按 Ctrl+Enter 直接提交)
    顶部  加入收藏夹
关于帝国 | 广告服务 | 联系我们 | 法律声明 | 隐私条款 | 许可协议
Powered by: EBB Version 2.2.1