✔ 最佳答案
我所見過的 Function SpellNumber 是 One Hundred Twenty Three Dollars and Ten Cents, 比你的題目是多了一個英文字 Dollars
希望是相同啦
先在 Visual Basic 編輯器, 找到 Funcion SpellNumber 的 code
在 code 的最後如下幾句 delete:
Select Case Cents
Case ""
Cents = " and No Cents"
Case " One "
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
改成:
if cents <> "" then cents = " and " & Cents & " Cents"
其他完全不變。
其實 Function SpellNumber 最大的問題 是 在 Dollars 內 不加 and:
如 1010, Function SpellNumber 會出現 One Thousand Ten
但如出現 One Thousand and Ten 便更佳
2007-04-15 22:59:57 補充:
攪錯咗及亂碼, 應改成:If Cents <> “” Then Cents = “ and ” & Cents & “ Cent ”
2007-04-16 17:37:50 補充:
其實根據英文的文法, 1 仙 才是用cent, two 以上, ten , twenty ....全部都是用cents當然, 你想改, 亦非常容易, 但請提供以下資料, 以便一併改No CentsOneFiveTenFifteen以上那個是用Cent, 那個是用Cents