当前位置：首页 > 设计在线 > 网页设计 > CSS/Xhtml > 货币千分位格式显示

货币千分位格式显示

点击次数：28 次 发布日期：2008-11-26 22:42:56 作者：源代码网
源代码网推荐

<%
源代码网推荐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
源代码网推荐%>
源代码网推荐<html>
源代码网推荐<body>
源代码网推荐<%
源代码网推荐aLongNumber = "12345678"
源代码网推荐%>
源代码网推荐An un-formatted number: <%=aLongNumber%><br>
源代码网推荐The Comma formatted number: <%=Comma(aLongNumber)%>
源代码网推荐</body>
源代码网推荐</html>


源代码网供稿.
网友评论 (0)
我也要写评论
会员中心
设计在线
本站推荐
设计在线之精华