将数字转换成科威特第纳尔的单词

Question

我要将科威特第纳尔的数值转换为Excel中的单词，例如：
120.050 KWD =一百二十科威特第纳尔和五十只只。
100 KWD =仅一百科威特第纳尔。

Answer 1

这可以通过使用模运算来完成：

Function NumberToFullProseForm(value As Decimal) As String 

    Dim value As Decimal = 120.050 

    Dim v100 As Decimal = (value % 100)/100 
    Dim v10 As Decimal = (value % 10)/10 
    Dim v1 As Decimal = value % 1 
    Dim v01 As Decimal = (value * 10) % 1 
    Dim v001 As Decimal = (value * 100) % 1 

    Dim output = 
     DigitToText(v100) + " Hundred and " + 
     DigitToTens(v10) + " and " + 
     DigitToText(v1) + " Dinars and" + 
     DigitToText(v01) + " Tens" + 
     DigitToText(vv001) + " Cents" 

    Return output 
End Function 

Function DigitToText(digit As Char) As String 

    If digit = 0 Then Return "Zero" 
    If digit = 1 Then Return "One" 
    ' etc 
End Function 

Function DigitToTens(digit As Char) As String 
    If digit = 0 Then Return "" 
    If digit = 1 Then Return "Ten" 
    If digit = 2 Then Return "Twenty" 
    ' etc 
End Function 

调整为，是必要的。