如何把一长串数字分位显示？
更新时间：2006年11月16日 00:00: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
%>
<html>
<body>
<%
aLongNumber = "12345678"
%>
原来的数字: <%=aLongNumber%><br>
用逗号格式化后: <%=Comma(aLongNumber)%>
</body></html>
相关文章
如何提示用户打开Cookie？...2006-11-11
如何取得服务器上的用户组列表？...2006-11-11
如何在读取Excel文件时创建列表的下拉菜单？...2006-11-11
如何做一个文本书写器？...2006-11-11
如何创建一个PDF文件？...2006-11-11
如何让一个方框栏内的文字滚动显示？...2006-11-11
如何准确地获得一个整数？...2006-11-11
CPU,GPU,DPU,TPU,NPU,BPU等处理器的性能及概念
CPU,GPU,DPU,TPU,NPU,BPU各种U还在傻傻分不清么？本文带你领略这些不同的U所代表的意义，让你有醍醐灌顶般的醒悟收获，有需要的朋友可以借鉴参考2021-08-08
如何将访问者数目周期性地保存？...2006-11-11
如何显示最后十名来访者？...2006-11-11
最新评论