所有值保留两位小数，并返回有人民币符号

很久不来论坛了，今天来分享两个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