クウェートディナールの番号をワードに変換する

Question

クウェートディナールの数値をExcelのワードに変換したいとします。たとえば、
120.050 KWD =クウェートディナールとフィフティフィールのみです。
100 KWD = 100クウェートディナールのみ。

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 

微調整が必​​要であるとして、。