比如可以这样处理
Dim Currency As StringDim d As Double = 12345.099Currency = CUMoney(d)msgbox(Currency & CUNumber(GetDigit(d,-3)) & "厘")