所有值保留两位小数,并返回有人民币符号
很久不来论坛了,今天来分享两个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