Nothing Special   »   [go: up one dir, main page]
Scribd Logo
Upload

Welcome to Scribd!

  • 35 views

    Module Amount in Words

    Uploaded by

    LouJanisLaude
    This document contains code for a SpellNumber function that takes a numeric value as input and returns a string representing the number spelled out in words. It uses several helper functions to spell out individual digits, tens places, hundreds places, and add suffixes to properly format the output string. The code handles numbers from 0 to millions by breaking the input number into digit groups and calling the helper functions to spell out each group before reassembling the final output string.

    Copyright:

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

    Module Amount in Words

    Uploaded by

    LouJanisLaude
    35 views4 pages
    This document contains code for a SpellNumber function that takes a numeric value as input and returns a string representing the number spelled out in words. It uses several helper functions to spell out individual digits, tens places, hundreds places, and add suffixes to properly format the output string. The code handles numbers from 0 to millions by breaking the input number into digit groups and calling the helper functions to spell out each group before reassembling the final output string.

    Original Description:

    Original Title

    module amount in words

    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 SpellNumber function that takes a numeric value as input and returns a string representing the number spelled out in words. It uses several helper functions to spell out individual digits, tens places, hundreds places, and add suffixes to properly format the output string. The code handles numbers from 0 to millions by breaking the input number into digit groups and calling the helper functions to spell out each group before reassembling the final output string.

    Copyright:

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

    Module Amount in Words

    Uploaded by

    LouJanisLaude
    This document contains code for a SpellNumber function that takes a numeric value as input and returns a string representing the number spelled out in words. It uses several helper functions to spell out individual digits, tens places, hundreds places, and add suffixes to properly format the output string. The code handles numbers from 0 to millions by breaking the input number into digit groups and calling the helper functions to spell out each group before reassembling the final output string.

    Copyright:

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

    '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 "
        ' String representation of amount.
        MyNumber = Trim(Str(MyNumber))
        ' Position of decimal place 0 if none.
        DecimalPlace = InStr(MyNumber, ".")
        ' Convert cents and set MyNumber to dollar amount.
        If DecimalPlace > 0 Then
            Cents = GetTens2(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 Pesos"
            Case "One"
                Pesos = "One Peso"
             Case Else
                Pesos = Pesos & ""
        End Select
        Select Case Cents
            Case ""
                Cents = " Pesos Only "
            Case "One"
                Cents = " and One Cent"
                  Case Else
                Cents = " & " & Cents & "/100 Pesos Only"
        End Select
        SpellNumber = Pesos & Cents
    End Function
         
    ' Converts a number from 100-999 into text
    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
         
    ' Converts a number from 10 to 99 into text.
    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
        
    ' Converts a number from 1 to 9 into text.
    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

    ' Converts a number from 10 to 99 into text.


    Function GetTens2(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 = "10"
                Case 11: Result = "11"
                Case 12: Result = "12"
                Case 13: Result = "13"
                Case 14: Result = "14"
                Case 15: Result = "15"
                Case 16: Result = "16"
                Case 17: Result = "17"
                Case 18: Result = "18"
                Case 19: Result = "19"
                Case Else
            End Select
        Else                                 ' If value between 20-99...
            Select Case Val(Left(TensText, 1))
                Case 2: Result = "2"
                Case 3: Result = "3"
                Case 4: Result = "4"
                Case 5: Result = "5"
                Case 6: Result = "6"
                Case 7: Result = "7"
                Case 8: Result = "8"
                Case 9: Result = "9"
                Case Else
            End Select
            Result = Result & GetDigit2 _
                (Right(TensText, 1))  ' Retrieve ones place.
        End If
        GetTens2 = Result
    End Function

    ' Converts a number from 1 to 9 into text.


    Function GetDigit2(Digit)
        Select Case Val(Digit)
            Case 0: GetDigit2 = "0"
        Case 1: GetDigit2 = "1"
            Case 2: GetDigit2 = "2"
            Case 3: GetDigit2 = "3"
            Case 4: GetDigit2 = "4"
            Case 5: GetDigit2 = "5"
            Case 6: GetDigit2 = "6"
            Case 7: GetDigit2 = "7"
            Case 8: GetDigit2 = "8"
            Case 9: GetDigit2 = "9"
            Case Else: GetDigit2 = ""
        End Select
    End Function

    You might also like