| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 917 人关注过本帖
标题:所有值保留两位小数,并返回有人民币符号
只看楼主 加入收藏
天涯听雨
Rank: 2
来 自:东莞
等 级:论坛游民
威 望:4
帖 子:497
专家分:64
注 册:2007-8-25
结帖率:100%
收藏
 问题点数:0 回复次数:2 
所有值保留两位小数,并返回有人民币符号
很久不来论坛了,今天来分享两个ASP函数


'=======================================================================================
'当数值为大于0小于1时,前台显示需处理进行加 "0"
'所有值保留两位小数
Function GetDec(byval Decimal)   
    if IsNull(Decimal) or Not isNumeric(Decimal) then
       GetDec=""
       Exit Function
    end if
    Decimal=FormatCurrency(Decimal)
    Decimal=Replace(Decimal,"¥","")
   
    if Cdbl(Decimal)>=0 and Cdbl(Decimal)<1 then
       Decimal="0"&Decimal&""
    end if
    if Cdbl(Decimal)<0 and Cdbl(Decimal)>-1 then
       Decimal=Replace(Decimal,"-","")
       Decimal="-0"&Decimal&""
    end if
    GetDec=Decimal
End Function

'=======================================================================================
'数值返回货币格式
Function GetMoney(byval Decimal)
    GetMoney="¥"&GetDec(Decimal)
End Function
搜索更多相关主题的帖子: 人民币 小数 符号 
2010-10-10 17:18
gupiao175
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:40
帖 子:1787
专家分:7527
注 册:2007-6-27
收藏
得分:0 
路过,支持!

Q:1428196631,百度:开发地 即可找到我,有事请留言!
2010-10-11 22:20
gupiao175
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:40
帖 子:1787
专家分:7527
注 册:2007-6-27
收藏
得分:0 
楼主现在在做什么编程语言啊,楼主ASP挺厉害的,我还从你那学过几招!

Q:1428196631,百度:开发地 即可找到我,有事请留言!
2010-10-11 22:22
快速回复:所有值保留两位小数,并返回有人民币符号
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020877 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved