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
投稿
猜你喜欢
SQL Server 数据库备份和还原认识和总结 (一)
2012-10-07 10:52:54
DW实现滚动新闻
2007-12-03 11:35:00
利用ASP在线维护数据库
2007-10-12 13:53:00
Asp 操作Access数据库时出现死锁.ldb的解决方法
2011-03-29 10:49:00
asp版FCKEditor编辑器的用法
2008-07-05 12:15:00
讲解MySQL数据库字符集出错的解决方法
2008-12-02 14:32:00
ASP:一个网站空间多个域名访问
2008-11-21 17:03:00
MySQL手动安装方法与中文解决方案
2011-04-25 18:21:00
根据时段自动切换你的站点CSS皮肤风格
2007-09-20 18:08:00
ajax返回中文乱码问题解决
2009-04-13 16:07:00
css基础教程之序曲
2008-07-23 12:40:00
为什么JavaScript中正则表达式的test方法会出错?
2009-03-17 12:38:00
SQL Server 2005如何设置多字段做关键字
2009-01-08 15:57:00
详解SQL Server中数据库快照工作原理
2009-01-21 14:18:00
如何提升JavaScript的运行速度(递归篇)
2010-05-17 13:30:00
使用Dreamweaver代码片断提高css开发效率
2007-10-28 15:46:00
asp如何建立MYSQL数据库的连接?
2009-11-26 20:30:00
全国哀悼日 建议站点换素装(附代码)
2008-05-19 12:05:00
ASP字符串大写转换成小写 ASP小写转换成大写 ucase lcase
2011-03-31 10:59:00
HTTP状态码
2009-09-21 12:46:00