在vbscript就简单
<SCRIPT LANGUAGE="vbScript">
<!--
document.write(formatNumber("123123123123132",0))
//-->
</SCRIPT>
javascript中似乎没有直接的
<SCRIPT LANGUAGE="vbScript">
<!--
document.write(formatNumber("123123123123132",0))
//-->
</SCRIPT>
javascript中似乎没有直接的
'格式化金钱函数,MoneyString数据,Mark币种符号
Function FormatMoney(MoneyString,Mark)
Dim IntLen,BeforeDotMoneyString,AfterDotMoneyString
Dim length,Seek,TempString,LeftString,TempMoneyString
Dim i
If MoneyString<>"" Then
If IsMoney(MoneyString) Then
'判断是否存在小数点
If Instr(MoneyString,".") Then
IntLen=Len(Int(MoneyString))
BeforeDotMoneyString=Left(MoneyString,IntLen)
AfterDotMoneyString=Right(MoneyString,Len(MoneyString)-IntLen)
Else
BeforeDotMoneyString=MoneyString
AfterDotMoneyString=".00"
End If If MoneyString>=0 Then length=len(BeforeDotMoneyString)
If MoneyString<0 Then Length=len(BeforeDotMoneyString)
LeftString=BeforeDotMoneyString
If length>3 Then
If MoneyString>=0 Then
if length mod 3=0 then length=length-1'使其不能被3整除
Else
if (length-1) mod 3=0 then length=length-2'使其不能被3整除
End If
Seek=int((length)/3)
for i=1 to Seek
TempString=","&right(LeftString,3)
LeftString=left(LeftString,len(LeftString)-3)
TempMoneyString=TempString & TempMoneyString
next
FormatMoney=Mark & LeftString & TempMoneyString & AfterDotMoneyString
Else
FormatMoney=Mark & MoneyString' & AfterDotMoneyString
End If
Else
FormatMoney="Not Money"
End If
Else
FormatMoney=MoneyString
End IF
End Function
'--------------------------------------------------------------------------
'判断是否是Money
Function IsMoney(MoneyString)
if InStr(trim(MoneyString),"d") or Not IsNumeric(trim(MoneyString))Then
IsMoney=false
else
IsMoney=true
End If
End Function