主题:转换大写中文数字

转换代码如下：



function Transform()

{

var whole = document.all.num.value;



//分离整数与小数

var num;

var dig;

if(whole.indexOf(".") == -1)

{

num = whole;

dig = "";

}

else

{

num = whole.substr(0,whole.indexOf("."));

dig = whole.substr( whole.indexOf(".")+1, whole.length);

}



//转换整数部分

var i=1;

var len = num.length;



var dw2 = new Array("","万","亿");//大单位

var dw1 = new Array("拾","佰","千");//小单位

var dw = new Array("","壹","贰","叁","肆","伍","陆","柒","捌","玖");//整数部分用

var dws = new Array("零","壹","贰","叁","肆","伍","陆","柒","捌","玖");//小数部分用

var k1=0;//计小单位

var k2=0;//计大单位

var str="";



for(i=1;i<=len;i++)

{

var n = num.charAt(len-i);

if(n=="0")

{

if(k1!=0)

str = str.substr( 1, str.length-1);

}



str = dw[Number(n)].concat(str);//加数字



if(len-i-1>=0)//在数字范围内

{

if(k1!=3)//加小单位

{

str = dw1[k1].concat(str);

k1++;

}

else//不加小单位，加大单位

{

k1=0;

var temp = str.charAt(0);

if(temp=="万" || temp=="亿")//若大单位前没有数字则舍去大单位

str = str.substr( 1, str.length-1);

str = dw2[k2].concat(str);

}

}





if(k1==3)//小单位到千则大单位进一

{

k2++;

}



}



//转换小数部分

var strdig="";

for(i=0;i<2;i++)

{

var n = dig.charAt(i);

strdig += dws[Number(n)];//加数字

}



str += " 点 "+strdig;





document.all.text.value = str;

}

Never lose my way...

再顶:什么调用呢?

闲看庭前花开花落
初级ASP程序员吧

日期转换

引用： <% Function NumToNum(NumDate) Select Case NumDate Case "0" NumToNum = "零" Case "1" NumToNum = "一" Case "2" NumToNum = "二" Case "3" NumToNum = "三" Case "4" NumToNum = "四" Case "5" NumToNum = "五" Case "6" NumToNum = "六" Case "7" NumToNum = "七" Case "8" NumToNum = "八" Case "9" NumToNum = "九" End Select End Function Function YearToDate(oldYear) For i = 1 To Len(OldYear) YearToDate = YearToDate + NumToNum(Mid(OldYear, i, 1)) Next YearToDate = YearToDate + "年" End Function Function MonthToDate(OldMonth) If Len(OldMonth) = 1 Then MonthToDate = NumToNum(oldMonth) + "月" Else Select Case oldMonth Case "10" MonthToDate = "十月" Case "11" MonthToDate = "十一月" Case "12" MonthToDate = "十二月" End Select End If End Function Function DayToDate(OldDay) If Len(OldDay) = 1 Then DayToDate = NumToNum(OldDay) + "日" Else If Mid(OldDay, 1, 1) = "1" Then DayToDate = "十" Else DayToDate = NumToNum(Mid(OldDay, 1, 1)) + "十" End If If Mid(OldDay, 2, 1) <> "0" Then DayToDate = DayToDate + NumToNum(Mid(OldDay, 2, 1)) + "日" Else DayToDate = DayToDate + "日" End If End If End Function Function OldToNew(OldDate) Dim OldYear, OldMonth, OldDay Dim NewYear, NewMonth, NewDay Dim i OldDate = CDate(OldDate) OldYear = Year(OldDate) OldMonth = Month(OldDate) OldDay = Day(OldDate) NewYear = YearToDate(oldYear) NewMonth = MonthToDate(oldMonth) NewDay = DayToDate(oldDay) OldToNew = NewYear&NewMonth&NewDay End Function Dim OldDate, NewDate oldDate = "2004-11-10" NewDate = OldToNew(oldDate) Response.Write NewDate

TOP 1