Public Class Form1
Public Class clsConversion
Dim mOnesArray(8) As String
Dim mOneTensArray(9) As String
Dim mTensArray(7) As String
Dim mPlaceValues(4) As String
Public Sub New()
mOnesArray(0) = "one"
mOnesArray(1) = "two"
mOnesArray(2) = "three"
mOnesArray(3) = "four"
mOnesArray(4) = "five"
mOnesArray(5) = "six"
mOnesArray(6) = "seven"
mOnesArray(7) = "eight"
mOnesArray(8) = "nine"
mOneTensArray(0) = "ten"
mOneTensArray(1) = "eleven"
mOneTensArray(2) = "twelve"
mOneTensArray(3) = "thirteen"
mOneTensArray(4) = "fourteen"
mOneTensArray(5) = "fifteen"
mOneTensArray(6) = "sixteen"
mOneTensArray(7) = "seventeen"
mOneTensArray(8) = "eightteen"
mOneTensArray(9) = "nineteen"
mTensArray(0) = "twenty"
mTensArray(1) = "thirty"
mTensArray(2) = "forty"
mTensArray(3) = "fifty"
mTensArray(4) = "sixty"
mTensArray(5) = "seventy"
mTensArray(6) = "eighty"
mTensArray(7) = "ninety"
mPlaceValues(0) = "hundred"
mPlaceValues(1) = "thousand"
mPlaceValues(2) = "million"
mPlaceValues(3) = "billion"
mPlaceValues(4) = "trillion"
End Sub
Protected Function GetOnes(ByVal OneDigit As Integer) As String
GetOnes = ""
If OneDigit = 0 Then
Exit Function
End If
GetOnes = mOnesArray(OneDigit - 1)
End Function
Protected Function GetTens(ByVal TensDigit As Integer) As String
GetTens = ""
If TensDigit = 0 Or TensDigit = 1 Then
Exit Function
End If
GetTens = mTensArray(TensDigit - 2)
End Function
Public Function ConvertNumberToWords(ByVal NumberValue As String) As String
Dim Delimiter As String = " "
Dim TensDelimiter As String = "-"
Dim mNumberValue As String = ""
Dim mNumbers As String = ""
Dim mNumWord As String = ""
Dim mFraction As String = ""
Dim mNumberStack() As String
Dim j As Integer = 0
Dim i As Integer = 0
Dim mOneTens As Boolean = False
ConvertNumberToWords = ""
' validate input
Try
j = CDbl(NumberValue)
Catch ex As Exception
ConvertNumberToWords = "Invalid input."
Exit Function
End Try
' get fractional part {if any}
If InStr(NumberValue, ".") = 0 Then
' no fraction
mNumberValue = NumberValue
Else
mNumberValue = Microsoft.VisualBasic.Left(NumberValue, InStr(NumberValue, ".") - 1)
mFraction = Mid(NumberValue, InStr(NumberValue, ".")) ' + 1)
mFraction = Math.Round(CSng(mFraction), 2) * 100
If CInt(mFraction) = 0 Then
mFraction = ""
Else
mFraction = "&& " & mFraction & "/100"
End If
End If
mNumbers = mNumberValue.ToCharArray
' move numbers to stack/array backwards
For j = mNumbers.Length - 1 To 0 Step -1
ReDim Preserve mNumberStack(i)
mNumberStack(i) = mNumbers(j)
i += 1
Next
For j = mNumbers.Length - 1 To 0 Step -1
Select Case j
Case 0, 3, 6, 9, 12
' ones value
If Not mOneTens Then
mNumWord &= GetOnes(Val(mNumberStack(j))) & Delimiter
End If
Select Case j
Case 3
' thousands
mNumWord &= mPlaceValues(1) & Delimiter
Case 6
' millions
mNumWord &= mPlaceValues(2) & Delimiter
Case 9
' billions
mNumWord &= mPlaceValues(3) & Delimiter
Case 12
' trillions
mNumWord &= mPlaceValues(4) & Delimiter
End Select
Case Is = 1, 4, 7, 10, 13
' tens value
If Val(mNumberStack(j)) = 0 Then
mNumWord &= GetOnes(Val(mNumberStack(j - 1))) & Delimiter
mOneTens = True
Exit Select
End If
If Val(mNumberStack(j)) = 1 Then
mNumWord &= mOneTensArray(Val(mNumberStack(j - 1))) & Delimiter
mOneTens = True
Exit Select
End If
mNumWord &= GetTens(Val(mNumberStack(j)))
' this places the tensdelimiter; check for succeeding 0
If Val(mNumberStack(j - 1)) <> 0 Then
mNumWord &= TensDelimiter
End If
mOneTens = False
Case Else
' hundreds value
mNumWord &= GetOnes(Val(mNumberStack(j))) & Delimiter
If Val(mNumberStack(j)) <> 0 Then
mNumWord &= mPlaceValues(0) & Delimiter
End If
End Select
Next
Return mNumWord & mFraction
End Function
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
End Class
en helaas weet ik niet hoe dit werkend te krijgen in een programma
