Convert number to String by using Select statement : Select « Language Basics « VBA / Excel / Access / Word

VBA / Excel / Access / Word
1. Access
2. Application
3. Data Type
4. Data Type Functions
5. Date Functions
6. Excel
7. File Path
8. Forms
9. Language Basics
10. Math Functions
11. Outlook
12. PowerPoint
13. String Functions
14. Windows API
15. Word
16. XML
Java
Java Tutorial
Java Source Code / Java Documentation
Java Open Source
Jar File Download
Java Articles
Java Products
Java by API
Photoshop Tutorials
Maya Tutorials
Flash Tutorials
3ds-Max Tutorials
Illustrator Tutorials
GIMP Tutorials
C# / C Sharp
C# / CSharp Tutorial
C# / CSharp Open Source
ASP.Net
ASP.NET Tutorial
JavaScript DHTML
JavaScript Tutorial
JavaScript Reference
HTML / CSS
HTML CSS Reference
C / ANSI-C
C Tutorial
C++
C++ Tutorial
Ruby
PHP
Python
Python Tutorial
Python Open Source
SQL Server / T-SQL
SQL Server / T-SQL Tutorial
Oracle PL / SQL
Oracle PL/SQL Tutorial
PostgreSQL
SQL / MySQL
MySQL Tutorial
VB.Net
VB.Net Tutorial
Flash / Flex / ActionScript
XML
XML Tutorial
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » Language Basics » Select 
Convert number to String by using Select statement
 

Function NumberToString(lngNumber As LongAs String

    Dim strNumber  As String     
    Dim intLoop    As Integer    
    Dim strRV      As String     
    Dim strTemp    As String     
    strNumber = lngNumber
    For intLoop = To Len(strNumber)
        Select Case Mid$(strNumber, intLoop, 1)
        Case "0"
            strTemp = "Zero"
        Case "1"
            strTemp = "One"
        Case "2"
            strTemp = "Two"
        Case "3"
            strTemp = "Three"
        Case "4"
            strTemp = "Four"
        Case "5"
            strTemp = "Five"
        Case "6"
            strTemp = "Six"
        Case "7"
            StrTemp = "Seven"
        Case "8"
            strTemp = "Eight"
        Case "9"
            strTemp = "Nine"
        End Select
        strRV = strRV & strTemp & " "
    Next
    NumberToString = strRV

End Function

 
Related examples in the same category
1. Use Integer as the switch value for Select Case Structure
2. Use select case statement
3. Use string text as the select case statement control value
4. Specifying a Range of Values in a Case Clause by using the To keyword between the values of expressions
5. Select Case Statements with comparison operator
6. Specify a range in select case statement
7. Specifying Multiple Expressions in a Case Clause: specify multiple conditions within a single Case clause by separating each condition with a comma
8. Using Is with the Case Clause
9. Select Case Else
10. A nested Select Case example
11. Three-level nested Select Case statement
12. Choosing Actions with Select Case
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.