Some explanation about left function

firoz.raj · August 9th, 2009, 01:46 AM

can anybody explain me.this code.Kindly let me know any idea.any help would be highly appreciated.

Code:

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 = " and Ten" 

                  Case 11: Result = " and Eleven" 

                  Case 12: Result = " and Twelve" 

                  Case 13: Result = " and Thirteen" 

                  Case 14: Result = " and Fourteen" 

                  Case 15: Result = " and Fifteen" 

                  Case 16: Result = " and Sixteen" 

                  Case 17: Result = " and Seventeen" 

                  Case 18: Result = " and Eighteen" 

                  Case 19: Result = " and Nineteen" 

                  Case Else 

              End Select

vb5prgrmr · August 9th, 2009, 02:21 AM

The Val function takes a string and returns a numeric value (double).

Left returns x number of characters from a string (Left(String, Length))

So If Val(Left(TensText, 1)) = 1 Then tests to see if the first character is a one (1) and if so then there is the select case statement...

Select Case Val(TensText)
Case 10: Result = " and Ten"

Which this is part of a number to words algorithm and is more than likely to be a number to currency words algorithm where the user would enter say 1.10 and would recieve back one dollar and ten cents.

Good Look