숫자를 쿠웨이트 디나르로 변환합니다.

Question

쿠웨이트 디나르에서 숫자 값을 Excel의 단어로 변환하고 싶습니다. 예 :
120.050 KWD = 쿠웨이트 디나르 1 개와 Fifty Fils Only.
100 쿠웨이트 = 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 

조정할 필요 그대로.