大家好:

    作一个简单的帐单时,数据库中"货币"字段中的值明明是"125.50",可输出显示时却成了"125.5",只有当数据库中的值有两位小数时才能显示出两位.这是怎么回事?

    比如: 数据库中是"10.56",显示时就是正常的"10.56";
          数据库中是"10.00",显示时就成了"10".

    请教如何解决呢? 多谢!

[[it] 本帖最后由 chanding 于 2009-7-2 17:26 编辑 [/it]]

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