读出数据库中的货币值时如何保留两位小数?

'=======================================================================================
'当数值为大于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