|
Modified VB Code for Converting Number to Text
Hi Everybody.. I've copied the code from Microsoft website for converting Numbers t Text. (=SpellNumber) and I've modified this code for replacin "Dollars" & "Cents" to "Rupees" & "Paise". It is working fine but fo 100000 it is displaying " One Hundred Thousand " I want it to be " On Lakh " for 200000 I want " Two Lakhs" I've given the code below. An body please modify this code for me as above. Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Rupees, Paise, 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 Paise and set MyNumber to Rupees amount. If DecimalPlace 0 Then Paise = 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 Rupees = Temp & Place(Count) & Rupees If Len(MyNumber) 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Rupees Case "" Rupees = " Rupees Zero " Case "One" Rupees = " Rupee One" Case Else Rupees = " Rupees " & Rupees End Select Select Case Paise Case "" Paise = " and Paise Zero Only " Case "One" Paise = " and Paise One Only " Case Else Paise = " and " & " Paise " & Paise & " Only " End Select SpellNumber = Rupees & Paise 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 Functio -- shashidharg ----------------------------------------------------------------------- shashidharga's Profile: http://www.excelforum.com/member.php...fo&userid=1492 View this thread: http://www.excelforum.com/showthread.php?threadid=26582 |
Modified VB Code for Converting Number to Text
add
spellnumber = replace(spellnumber,"Hundred Thousand ","Lakhs") before the End Function -- Patrick Molloy Microsoft Excel MVP --------------------------------- I Feel Great! --------------------------------- "shashidharga" wrote in message ... Hi Everybody.. I've copied the code from Microsoft website for converting Numbers to Text. (=SpellNumber) and I've modified this code for replacing "Dollars" & "Cents" to "Rupees" & "Paise". It is working fine but for 100000 it is displaying " One Hundred Thousand " I want it to be " One Lakh " for 200000 I want " Two Lakhs" I've given the code below. Any body please modify this code for me as above. Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Rupees, Paise, 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 Paise and set MyNumber to Rupees amount. If DecimalPlace 0 Then Paise = 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 Rupees = Temp & Place(Count) & Rupees If Len(MyNumber) 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Rupees Case "" Rupees = " Rupees Zero " Case "One" Rupees = " Rupee One" Case Else Rupees = " Rupees " & Rupees End Select Select Case Paise Case "" Paise = " and Paise Zero Only " Case "One" Paise = " and Paise One Only " Case Else Paise = " and " & " Paise " & Paise & " Only " End Select SpellNumber = Rupees & Paise 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 -- shashidharga ------------------------------------------------------------------------ shashidharga's Profile: http://www.excelforum.com/member.php...o&userid=14922 View this thread: http://www.excelforum.com/showthread...hreadid=265827 |
Modified VB Code for Converting Number to Text
Slight amendment to Patrick's code, add these 2 lines
SpellNumber = Replace(SpellNumber, "Hundred Thousand ", "Lakhs ") SpellNumber = Replace(SpellNumber, "One Lakhs ", "One Lakh ") could be done differently, but this is the simplest -- HTH RP "Patrick Molloy" wrote in message ... add spellnumber = replace(spellnumber,"Hundred Thousand ","Lakhs") before the End Function -- Patrick Molloy Microsoft Excel MVP --------------------------------- I Feel Great! --------------------------------- "shashidharga" wrote in message ... Hi Everybody.. I've copied the code from Microsoft website for converting Numbers to Text. (=SpellNumber) and I've modified this code for replacing "Dollars" & "Cents" to "Rupees" & "Paise". It is working fine but for 100000 it is displaying " One Hundred Thousand " I want it to be " One Lakh " for 200000 I want " Two Lakhs" I've given the code below. Any body please modify this code for me as above. Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Rupees, Paise, 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 Paise and set MyNumber to Rupees amount. If DecimalPlace 0 Then Paise = 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 Rupees = Temp & Place(Count) & Rupees If Len(MyNumber) 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Rupees Case "" Rupees = " Rupees Zero " Case "One" Rupees = " Rupee One" Case Else Rupees = " Rupees " & Rupees End Select Select Case Paise Case "" Paise = " and Paise Zero Only " Case "One" Paise = " and Paise One Only " Case Else Paise = " and " & " Paise " & Paise & " Only " End Select SpellNumber = Rupees & Paise 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 -- shashidharga ------------------------------------------------------------------------ shashidharga's Profile: http://www.excelforum.com/member.php...o&userid=14922 View this thread: http://www.excelforum.com/showthread...hreadid=265827 |
Modified VB Code for Converting Number to Text
good spot Bob. thanks
-- Patrick Molloy Microsoft Excel MVP --------------------------------- I Feel Great! --------------------------------- "Bob Phillips" wrote in message ... Slight amendment to Patrick's code, add these 2 lines SpellNumber = Replace(SpellNumber, "Hundred Thousand ", "Lakhs ") SpellNumber = Replace(SpellNumber, "One Lakhs ", "One Lakh ") could be done differently, but this is the simplest -- HTH RP "Patrick Molloy" wrote in message ... add spellnumber = replace(spellnumber,"Hundred Thousand ","Lakhs") before the End Function -- Patrick Molloy Microsoft Excel MVP --------------------------------- I Feel Great! --------------------------------- "shashidharga" wrote in message ... Hi Everybody.. I've copied the code from Microsoft website for converting Numbers to Text. (=SpellNumber) and I've modified this code for replacing "Dollars" & "Cents" to "Rupees" & "Paise". It is working fine but for 100000 it is displaying " One Hundred Thousand " I want it to be " One Lakh " for 200000 I want " Two Lakhs" I've given the code below. Any body please modify this code for me as above. Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Rupees, Paise, 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 Paise and set MyNumber to Rupees amount. If DecimalPlace 0 Then Paise = 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 Rupees = Temp & Place(Count) & Rupees If Len(MyNumber) 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Rupees Case "" Rupees = " Rupees Zero " Case "One" Rupees = " Rupee One" Case Else Rupees = " Rupees " & Rupees End Select Select Case Paise Case "" Paise = " and Paise Zero Only " Case "One" Paise = " and Paise One Only " Case Else Paise = " and " & " Paise " & Paise & " Only " End Select SpellNumber = Rupees & Paise 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 -- shashidharga ------------------------------------------------------------------------ shashidharga's Profile: http://www.excelforum.com/member.php...o&userid=14922 View this thread: http://www.excelforum.com/showthread...hreadid=265827 |
Modified VB Code for Converting Number to Text
Shashidharga,
This doesn't work for big numbers (100 Lakhs plus), so here is a replacement SpellNumber function Function SpellNumber(ByVal MyNumber) Dim Lakhs, Rupees, Paise, Temp Dim DecimalPlace, Count As Long Dim myLakhs 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 Paise and set MyNumber to Rupees amount. If DecimalPlace 0 Then Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If myLakhs = MyNumber \ 100000 MyNumber = MyNumber - myLakhs * 100000 Count = 1 Do While myLakhs < "" Temp = GetHundreds(Right(myLakhs, 3)) If Temp < "" Then Lakhs = Temp & Place(Count) & Lakhs If Len(myLakhs) 3 Then myLakhs = Left(myLakhs, Len(myLakhs) - 3) Else myLakhs = "" End If Count = Count + 1 Loop Count = 1 Do While MyNumber < "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp < "" Then Rupees = Temp & Place(Count) & Rupees If Len(MyNumber) 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Lakhs Case "": Lakhs = "" Case "One": Lakhs = " One Lakh, " Case Else: Lakhs = Lakhs & " Lakhs, " End Select Select Case Rupees Case "": Rupees = "Rupees Zero " Case "One": Rupees = "Rupee One" Case Else: Rupees = "Rupees " & Rupees End Select Select Case Paise Case "": Paise = " and Paise Zero Only " Case "One": Paise = " and Paise One Only " Case Else: Paise = " and " & " Paise " & Paise & " Only " End Select SpellNumber = Lakhs & Rupees & Paise End Function -- HTH RP "Bob Phillips" wrote in message ... Slight amendment to Patrick's code, add these 2 lines SpellNumber = Replace(SpellNumber, "Hundred Thousand ", "Lakhs ") SpellNumber = Replace(SpellNumber, "One Lakhs ", "One Lakh ") could be done differently, but this is the simplest -- HTH RP "Patrick Molloy" wrote in message ... add spellnumber = replace(spellnumber,"Hundred Thousand ","Lakhs") before the End Function -- Patrick Molloy Microsoft Excel MVP --------------------------------- I Feel Great! --------------------------------- "shashidharga" wrote in message ... Hi Everybody.. I've copied the code from Microsoft website for converting Numbers to Text. (=SpellNumber) and I've modified this code for replacing "Dollars" & "Cents" to "Rupees" & "Paise". It is working fine but for 100000 it is displaying " One Hundred Thousand " I want it to be " One Lakh " for 200000 I want " Two Lakhs" I've given the code below. Any body please modify this code for me as above. Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Rupees, Paise, 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 Paise and set MyNumber to Rupees amount. If DecimalPlace 0 Then Paise = 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 Rupees = Temp & Place(Count) & Rupees If Len(MyNumber) 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Rupees Case "" Rupees = " Rupees Zero " Case "One" Rupees = " Rupee One" Case Else Rupees = " Rupees " & Rupees End Select Select Case Paise Case "" Paise = " and Paise Zero Only " Case "One" Paise = " and Paise One Only " Case Else Paise = " and " & " Paise " & Paise & " Only " End Select SpellNumber = Rupees & Paise 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 -- shashidharga ------------------------------------------------------------------------ shashidharga's Profile: http://www.excelforum.com/member.php...o&userid=14922 View this thread: http://www.excelforum.com/showthread...hreadid=265827 |
| All times are GMT +1. The time now is 08:26 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com