网络编程
位置:首页>> 网络编程>> Asp编程>> ASP把长的数字用格式化为货币样式的函数

ASP把长的数字用格式化为货币样式的函数

 来源:asp之家 发布时间:2009-09-18 14:49:00 

标签:格式化,货币,函数

 

Function Comma(str)
If Not(IsNumeric(str)) Or str = 0 Then
Result = 0
ElseIf Len(Fix(str)) < 4 Then
Result = str
Else
Pos = Instr(1,str,".")
If Pos > 0 Then
Dec = Mid(str,Pos)
End if
Res = StrReverse(Fix(str))
LoopCount = 1
While LoopCount <= Len(Res)
TempResult = TempResult + Mid(Res,LoopCount,3)
LoopCount = LoopCount + 3
If LoopCount <= Len(Res) Then
TempResult = TempResult + ","
End If
Wend
Result = StrReverse(TempResult) + Dec 
End If
Comma = Result
End Function

答:不用这么复杂

用asp自带的函数就可以

formatcurrency函数:

formatcurrency(表达式[,小数位数[,零整数显示否,负号显示否[,分组否]]])

例:formatcurrency(-123456.2,3,false,false,true)

formatnumber函数:

formatnumber(表达式[,小数位数[,零整数显示否,负号显示否[,分组否]]])

例:formatnumber(1/3,3)

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com