Scribd Logo
Upload

Welcome to Scribd!

  • 9 views

    VB

    Uploaded by

    Jovil Nathaniel Garque Mongcal
    This document contains code for a function that spells out numbers in words. It breaks numbers into their place values of hundreds, tens, and ones. Separate functions handle converting individual digits and tens places into words. The main function combines the place values into a spelled out number with the appropriate suffixes like "Thousand" or "Million".

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd

    VB

    Uploaded by

    Jovil Nathaniel Garque Mongcal
    9 views4 pages
    This document contains code for a function that spells out numbers in words. It breaks numbers into their place values of hundreds, tens, and ones. Separate functions handle converting individual digits and tens places into words. The main function combines the place values into a spelled out number with the appropriate suffixes like "Thousand" or "Million".

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document contains code for a function that spells out numbers in words. It breaks numbers into their place values of hundreds, tens, and ones. Separate functions handle converting individual digits and tens places into words. The main function combines the place values into a spelled out number with the appropriate suffixes like "Thousand" or "Million".

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    9 views4 pages

    VB

    Uploaded by

    Jovil Nathaniel Garque Mongcal
    This document contains code for a function that spells out numbers in words. It breaks numbers into their place values of hundreds, tens, and ones. Separate functions handle converting individual digits and tens places into words. The main function combines the place values into a spelled out number with the appropriate suffixes like "Thousand" or "Million".

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    You are on page 1of 4

    Option Explicit

    'Main Function

    Function SpellNumber(ByVal MyNumber)

    Dim Pesos, Cents, Temp

    Dim DecimalPlace, Count

    ReDim Place(9) As String

    Place(2) = " Thousand "

    Place(3) = " Million "

    Place(4) = " Billion "

    Place(5) = " Trillion "

    MyNumber = Trim(Str(MyNumber))

    DecimalPlace = InStr(MyNumber, ".")

    If DecimalPlace > 0 Then

    Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _

    "00", 2))

    MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))

    End If

    Count = 1

    Do While MyNumber <> ""

    Temp = GetHundreds(Right(MyNumber, 3))

    If Temp <> "" Then Pesos = Temp & Place(Count) & Pesos

    If Len(MyNumber) > 3 Then

    MyNumber = Left(MyNumber, Len(MyNumber) - 3)

    Else

    MyNumber = ""

    End If

    Count = Count + 1
    Loop

    Select Case Pesos

    Case ""

    Pesos = "No Payment"

    Case "One"

    Pesos = "One Peso"

    Case Else

    Pesos = Pesos & " Pesos"

    End Select

    Select Case Cents

    Case ""

    Cents = " "

    Case "One"

    Cents = " and One Cent"

    Case Else

    Cents = " and " & Cents & " Cents"

    End Select

    SpellNumber = Pesos & Cents

    End Function

    Function GetHundreds(ByVal MyNumber)

    Dim Result As String

    If Val(MyNumber) = 0 Then Exit Function

    MyNumber = Right("000" & MyNumber, 3)

    ' Convert the hundreds place.

    If Mid(MyNumber, 1, 1) <> "0" Then

    Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "

    End If

    ' Convert the tens and ones place.


    If Mid(MyNumber, 2, 1) <> "0" Then

    Result = Result & GetTens(Mid(MyNumber, 2))

    Else

    Result = Result & GetDigit(Mid(MyNumber, 3))

    End If

    GetHundreds = Result

    End Function

    Function GetTens(TensText)

    Dim Result As String

    Result = "" ' Null out the temporary function value.

    If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19…

    Select Case Val(TensText)

    Case 10: Result = "Ten"

    Case 11: Result = "Eleven"

    Case 12: Result = "Twelve"

    Case 13: Result = "Thirteen"

    Case 14: Result = "Fourteen"

    Case 15: Result = "Fifteen"

    Case 16: Result = "Sixteen"

    Case 17: Result = "Seventeen"

    Case 18: Result = "Eighteen"

    Case 19: Result = "Nineteen"

    Case Else

    End Select

    Else ' If value between 20-99…

    Select Case Val(Left(TensText, 1))

    Case 2: Result = "Twenty "

    Case 3: Result = "Thirty "


    Case 4: Result = "Forty "

    Case 5: Result = "Fifty "

    Case 6: Result = "Sixty "

    Case 7: Result = "Seventy "

    Case 8: Result = "Eighty "

    Case 9: Result = "Ninety "

    Case Else

    End Select

    Result = Result & GetDigit _

    (Right(TensText, 1)) ' Retrieve ones place.

    End If

    GetTens = Result

    End Function

    Function GetDigit(Digit)

    Select Case Val(Digit)

    Case 1: GetDigit = "One"

    Case 2: GetDigit = "Two"

    Case 3: GetDigit = "Three"

    Case 4: GetDigit = "Four"

    Case 5: GetDigit = "Five"

    Case 6: GetDigit = "Six"

    Case 7: GetDigit = "Seven"

    Case 8: GetDigit = "Eight"

    Case 9: GetDigit = "Nine"

    Case Else: GetDigit = ""

    End Select

    End Function

    You might also like