您现在的位置是：网站首页> 编程资料编程资料
如何把一长串数字分位显示？_编程10000问_
2023-05-25
237人已围观
简介 如何把一长串数字分位显示？_编程10000问_
<%
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
%>
<%
aLongNumber = "12345678"
%>
原来的数字: <%=aLongNumber%>
用逗号格式化后: <%=Comma(aLongNumber)%>
