Can anybody tell me how to convert number in figures in words like we cinvert
currency in numbers to currency in words.
www.xldynamic.com/source/xld.xlFAQ0004.html
--
HTH
Bob Phillips
(remove nothere from email address if mailing direct)
quot;Avinashquot; gt; wrote in message
...
gt; Can anybody tell me how to convert number in figures in words like we
cinvert
gt; currency in numbers to currency in words.
Bob,
thanks you are so dear. You have solved my problem. I appreciate you for
giving some time to my problem.
quot;Bob Phillipsquot; wrote:
gt; www.xldynamic.com/source/xld.xlFAQ0004.html
gt;
gt; --
gt; HTH
gt;
gt; Bob Phillips
gt;
gt; (remove nothere from email address if mailing direct)
gt;
gt; quot;Avinashquot; gt; wrote in message
gt; ...
gt; gt; Can anybody tell me how to convert number in figures in words like we
gt; cinvert
gt; gt; currency in numbers to currency in words.
gt;
gt;
gt;
You're welcome. I created the page because it is a popular request.
--
HTH
Bob Phillips
(remove nothere from email address if mailing direct)
quot;Avinashquot; gt; wrote in message
...
gt; Bob,
gt; thanks you are so dear. You have solved my problem. I appreciate you for
gt; giving some time to my problem.
gt;
gt;
gt;
gt; quot;Bob Phillipsquot; wrote:
gt;
gt; gt; www.xldynamic.com/source/xld.xlFAQ0004.html
gt; gt;
gt; gt; --
gt; gt; HTH
gt; gt;
gt; gt; Bob Phillips
gt; gt;
gt; gt; (remove nothere from email address if mailing direct)
gt; gt;
gt; gt; quot;Avinashquot; gt; wrote in message
gt; gt; ...
gt; gt; gt; Can anybody tell me how to convert number in figures in words like we
gt; gt; cinvert
gt; gt; gt; currency in numbers to currency in words.
gt; gt;
gt; gt;
gt; gt;
Function InLetters(NumberToLeters)
x = Int(Round(NumberToLeters, 2))
DES = Right(Application.WorksheetFunction.Text(NumberToL eters, quot;0.00quot;), 2)
If DES gt; 0 Then
des1 = quot; AND quot; amp; Right(DES, 2) amp; quot;/100 quot;
End IfFirstTwoDigits = Right(x, 2)
Onetonine = Array(quot;quot;, quot; ONE quot;, quot; TWO quot;, quot; THREE quot;, quot; FOUR quot;, quot; FIVE quot;, quot; SIX
quot;, quot; SEVEN quot;, quot; EIGHT quot;, quot; NINE quot;, quot; TEN quot;, _
quot; ELEVEN quot;, quot; TWELVE quot;, quot; THIRTEEN quot;, quot; FOURTEEN quot;, quot; FIFTEEN quot;, quot; SIXTEEN
quot;, quot; SEVENTEEN quot;, quot; EIGHTEEN quot;, quot; NINETEEN quot;, quot; TWENTY quot;, _
quot; TWENTY ONEquot;, quot; TWENTY TWO quot;, quot; TWENTY THREE quot;, quot; TWENTY FOUR quot;, quot; TWENTY
FIVE quot;, quot; TWENTY SIX quot;, quot; TWENTY SEVEN quot;, quot; TWENTY EIGHT quot;, quot; TWENTY NINE quot;,
quot; THIRTY quot;, _
quot; THIRTY ONE quot;, quot; THIRTY TWO quot;, quot; THIRTY THREE quot;, quot; THIRTY FOUR quot;, quot; THIRTY
FIVE quot;, quot; THIRTY SIX quot;, quot; THIRTY SEVEN quot;, quot; THIRTY EIGHT quot;, quot; THIRTY NINE quot;,
quot; FORTY quot;, _
quot; FORTY ONE quot;, quot; FORTY TWO quot;, quot; FORTY THREE quot;, quot; FORTY FOUR quot;, quot; FORTY FIVE
quot;, quot; FORTY SIX quot;, quot; FORTY SEVEN quot;, quot; FORTY EIGHT quot;, quot; FORTY NINE quot;, quot; FIFTY
quot;, _
quot; FIFTY ONE quot;, quot; FIFTY TWO quot;, quot; FIFTY THREE quot;, quot; FIFTY FOUR quot;, quot; FIFTY FIVE
quot;, quot; FIFTY SIX quot;, quot; FIFTY SEVEN quot;, quot; FIFTY EIGHT quot;, quot; FIFTY NINE quot;, quot; SIXTY
quot;, _
quot; SIXTY ONE quot;, quot; SIXTY TWO quot;, quot; SIXTY THREE quot;, quot; SIXTY FOUR quot;, quot; SIXTY FIVE
quot;, quot; SIXTY SIX quot;, quot; SIXTY SEVEN quot;, quot; SIXTY EIGHT quot;, quot; SIXTY NINE quot;, quot; SEVENTY
quot;, _
quot; SEVENTY ONE quot;, quot; SEVENTY TWO quot;, quot; SEVENTY THREE quot;, quot; SEVENTY FOUR quot;, quot;
SEVENTY FIVE quot;, quot; SEVENTY SIX quot;, quot; SEVENTY SEVEN quot;, quot; SEVENTY EIGHT quot;, quot;
SEVENTY NINE quot;, quot; EIGHTY quot;, _
quot; EIGHTY ONE quot;, quot; EIGHTY TWO quot;, quot; EIGHTY THREE quot;, quot; EIGHTY FOUR quot;, quot; EIGHTY
FIVE quot;, quot; EIGHTY SIX quot;, quot; EIGHTY SEVEN quot;, quot; EIGHTY EIGHT quot;, quot; EIGHTY NINE quot;,
quot; NINETY quot;, _
quot; NINETY ONE quot;, quot; NINETY TWO quot;, quot; NINETY THREE quot;, quot; NINETY FOUR quot;, quot; NINETY
FIVE quot;, quot; NINETY SIX quot;, quot; NINETY SEVEN quot;, quot; NINETY EIGHT quot;, quot; NINETY NINE quot;)
FirstTwoDigits1 = Onetonine(FirstTwoDigits)
'---------------
ThirdDigit = Int(Right(x, 3) / 100)
If ThirdDigit gt; 0 Then
ThirdDigit1 = Onetonine(ThirdDigit) amp; quot;HUNDREDquot;
End If
'----------------
FirstSixDigits = Right(x, 6)
NoOfThosands = Int(FirstSixDigits / 1000)
FourthAndFifthDigit = Right(NoOfThosands, 2)
If FourthAndFifthDigit gt; 0 Then
FourthAndFifthDigit1 = Onetonine(FourthAndFifthDigit) amp; quot; THOUSAND quot;
End If
SixthDigit = Int(FirstSixDigits / 100000)
If SixthDigit gt; 0 Then
SixthDigit1 = Onetonine(SixthDigit) amp; quot; HUNDRED quot;
End If
If FourthAndFifthDigit = 0 And SixthDigit gt; 0 Then
SixthDigit2 = SixthDigit1 amp; quot;THOUSANDquot;
Else
SixthDigit2 = SixthDigit1
End If
'---------
SeventhAndEighth = Right(x, 8)
NoOfMillions = Int(SeventhAndEighth / 1000000)
If NoOfMillions gt; 0 Then
NoOfMillions1 = Onetonine(NoOfMillions) amp; quot;MILLIONquot;
End If
If NumberToLeters gt; 0 And NumberToLeters lt; 100000000 Then
InLetters = Application.WorksheetFunction.Proper(Trim(NoOfMill ions1 amp;
SixthDigit2 amp; FourthAndFifthDigit1 amp; ThirdDigit1 amp; FirstTwoDigits1 amp; des1 amp; quot;
ONLY quot;))
End If
If NumberToLeters = 100000000 Then
InLetters = quot;HUNDRED MILLION ONLY quot;
End If
End Functionquot;Bob Phillipsquot; wrote:
gt; You're welcome. I created the page because it is a popular request.
gt;
gt; --
gt; HTH
gt;
gt; Bob Phillips
gt;
gt; (remove nothere from email address if mailing direct)
gt;
gt; quot;Avinashquot; gt; wrote in message
gt; ...
gt; gt; Bob,
gt; gt; thanks you are so dear. You have solved my problem. I appreciate you for
gt; gt; giving some time to my problem.
gt; gt;
gt; gt;
gt; gt;
gt; gt; quot;Bob Phillipsquot; wrote:
gt; gt;
gt; gt; gt; www.xldynamic.com/source/xld.xlFAQ0004.html
gt; gt; gt;
gt; gt; gt; --
gt; gt; gt; HTH
gt; gt; gt;
gt; gt; gt; Bob Phillips
gt; gt; gt;
gt; gt; gt; (remove nothere from email address if mailing direct)
gt; gt; gt;
gt; gt; gt; quot;Avinashquot; gt; wrote in message
gt; gt; gt; ...
gt; gt; gt; gt; Can anybody tell me how to convert number in figures in words like we
gt; gt; gt; cinvert
gt; gt; gt; gt; currency in numbers to currency in words.
gt; gt; gt;
gt; gt; gt;
gt; gt; gt;
gt;
gt;
gt;
Why are you posting the same thing 4 times with 4 different subject lines?
And, why are you NOT replying to the original post as is customary?
--
Don Guillett
SalesAid Software
quot;Kishorquot; gt; wrote in message
...
gt; Function InLetters(NumberToLeters)
gt; x = Int(Round(NumberToLeters, 2))
gt; DES = Right(Application.WorksheetFunction.Text(NumberToL eters, quot;0.00quot;), 2)
gt;
gt; If DES gt; 0 Then
gt; des1 = quot; AND quot; amp; Right(DES, 2) amp; quot;/100 quot;
gt; End If
gt;
gt;
gt; FirstTwoDigits = Right(x, 2)
gt; Onetonine = Array(quot;quot;, quot; ONE quot;, quot; TWO quot;, quot; THREE quot;, quot; FOUR quot;, quot; FIVE quot;, quot;
gt; SIX
gt; quot;, quot; SEVEN quot;, quot; EIGHT quot;, quot; NINE quot;, quot; TEN quot;, _
gt; quot; ELEVEN quot;, quot; TWELVE quot;, quot; THIRTEEN quot;, quot; FOURTEEN quot;, quot; FIFTEEN quot;, quot; SIXTEEN
gt; quot;, quot; SEVENTEEN quot;, quot; EIGHTEEN quot;, quot; NINETEEN quot;, quot; TWENTY quot;, _
gt; quot; TWENTY ONEquot;, quot; TWENTY TWO quot;, quot; TWENTY THREE quot;, quot; TWENTY FOUR quot;, quot; TWENTY
gt; FIVE quot;, quot; TWENTY SIX quot;, quot; TWENTY SEVEN quot;, quot; TWENTY EIGHT quot;, quot; TWENTY NINE
gt; quot;,
gt; quot; THIRTY quot;, _
gt; quot; THIRTY ONE quot;, quot; THIRTY TWO quot;, quot; THIRTY THREE quot;, quot; THIRTY FOUR quot;, quot;
gt; THIRTY
gt; FIVE quot;, quot; THIRTY SIX quot;, quot; THIRTY SEVEN quot;, quot; THIRTY EIGHT quot;, quot; THIRTY NINE
gt; quot;,
gt; quot; FORTY quot;, _
gt; quot; FORTY ONE quot;, quot; FORTY TWO quot;, quot; FORTY THREE quot;, quot; FORTY FOUR quot;, quot; FORTY
gt; FIVE
gt; quot;, quot; FORTY SIX quot;, quot; FORTY SEVEN quot;, quot; FORTY EIGHT quot;, quot; FORTY NINE quot;, quot;
gt; FIFTY
gt; quot;, _
gt; quot; FIFTY ONE quot;, quot; FIFTY TWO quot;, quot; FIFTY THREE quot;, quot; FIFTY FOUR quot;, quot; FIFTY
gt; FIVE
gt; quot;, quot; FIFTY SIX quot;, quot; FIFTY SEVEN quot;, quot; FIFTY EIGHT quot;, quot; FIFTY NINE quot;, quot;
gt; SIXTY
gt; quot;, _
gt; quot; SIXTY ONE quot;, quot; SIXTY TWO quot;, quot; SIXTY THREE quot;, quot; SIXTY FOUR quot;, quot; SIXTY
gt; FIVE
gt; quot;, quot; SIXTY SIX quot;, quot; SIXTY SEVEN quot;, quot; SIXTY EIGHT quot;, quot; SIXTY NINE quot;, quot;
gt; SEVENTY
gt; quot;, _
gt; quot; SEVENTY ONE quot;, quot; SEVENTY TWO quot;, quot; SEVENTY THREE quot;, quot; SEVENTY FOUR quot;, quot;
gt; SEVENTY FIVE quot;, quot; SEVENTY SIX quot;, quot; SEVENTY SEVEN quot;, quot; SEVENTY EIGHT quot;, quot;
gt; SEVENTY NINE quot;, quot; EIGHTY quot;, _
gt; quot; EIGHTY ONE quot;, quot; EIGHTY TWO quot;, quot; EIGHTY THREE quot;, quot; EIGHTY FOUR quot;, quot;
gt; EIGHTY
gt; FIVE quot;, quot; EIGHTY SIX quot;, quot; EIGHTY SEVEN quot;, quot; EIGHTY EIGHT quot;, quot; EIGHTY NINE
gt; quot;,
gt; quot; NINETY quot;, _
gt; quot; NINETY ONE quot;, quot; NINETY TWO quot;, quot; NINETY THREE quot;, quot; NINETY FOUR quot;, quot;
gt; NINETY
gt; FIVE quot;, quot; NINETY SIX quot;, quot; NINETY SEVEN quot;, quot; NINETY EIGHT quot;, quot; NINETY NINE
gt; quot;)
gt;
gt; FirstTwoDigits1 = Onetonine(FirstTwoDigits)
gt;
gt; '---------------
gt; ThirdDigit = Int(Right(x, 3) / 100)
gt;
gt; If ThirdDigit gt; 0 Then
gt; ThirdDigit1 = Onetonine(ThirdDigit) amp; quot;HUNDREDquot;
gt; End If
gt;
gt; '----------------
gt; FirstSixDigits = Right(x, 6)
gt; NoOfThosands = Int(FirstSixDigits / 1000)
gt;
gt; FourthAndFifthDigit = Right(NoOfThosands, 2)
gt; If FourthAndFifthDigit gt; 0 Then
gt; FourthAndFifthDigit1 = Onetonine(FourthAndFifthDigit) amp; quot; THOUSAND quot;
gt; End If
gt; SixthDigit = Int(FirstSixDigits / 100000)
gt; If SixthDigit gt; 0 Then
gt; SixthDigit1 = Onetonine(SixthDigit) amp; quot; HUNDRED quot;
gt; End If
gt; If FourthAndFifthDigit = 0 And SixthDigit gt; 0 Then
gt; SixthDigit2 = SixthDigit1 amp; quot;THOUSANDquot;
gt; Else
gt; SixthDigit2 = SixthDigit1
gt; End If
gt; '---------
gt;
gt; SeventhAndEighth = Right(x, 8)
gt; NoOfMillions = Int(SeventhAndEighth / 1000000)
gt;
gt; If NoOfMillions gt; 0 Then
gt; NoOfMillions1 = Onetonine(NoOfMillions) amp; quot;MILLIONquot;
gt; End If
gt;
gt; If NumberToLeters gt; 0 And NumberToLeters lt; 100000000 Then
gt; InLetters = Application.WorksheetFunction.Proper(Trim(NoOfMill ions1 amp;
gt; SixthDigit2 amp; FourthAndFifthDigit1 amp; ThirdDigit1 amp; FirstTwoDigits1 amp; des1
gt; amp; quot;
gt; ONLY quot;))
gt; End If
gt; If NumberToLeters = 100000000 Then
gt; InLetters = quot;HUNDRED MILLION ONLY quot;
gt; End If
gt;
gt; End Function
gt;
gt;
gt; quot;Bob Phillipsquot; wrote:
gt;
gt;gt; You're welcome. I created the page because it is a popular request.
gt;gt;
gt;gt; --
gt;gt; HTH
gt;gt;
gt;gt; Bob Phillips
gt;gt;
gt;gt; (remove nothere from email address if mailing direct)
gt;gt;
gt;gt; quot;Avinashquot; gt; wrote in message
gt;gt; ...
gt;gt; gt; Bob,
gt;gt; gt; thanks you are so dear. You have solved my problem. I appreciate you
gt;gt; gt; for
gt;gt; gt; giving some time to my problem.
gt;gt; gt;
gt;gt; gt;
gt;gt; gt;
gt;gt; gt; quot;Bob Phillipsquot; wrote:
gt;gt; gt;
gt;gt; gt; gt; www.xldynamic.com/source/xld.xlFAQ0004.html
gt;gt; gt; gt;
gt;gt; gt; gt; --
gt;gt; gt; gt; HTH
gt;gt; gt; gt;
gt;gt; gt; gt; Bob Phillips
gt;gt; gt; gt;
gt;gt; gt; gt; (remove nothere from email address if mailing direct)
gt;gt; gt; gt;
gt;gt; gt; gt; quot;Avinashquot; gt; wrote in message
gt;gt; gt; gt; ...
gt;gt; gt; gt; gt; Can anybody tell me how to convert number in figures in words like
gt;gt; gt; gt; gt; we
gt;gt; gt; gt; cinvert
gt;gt; gt; gt; gt; currency in numbers to currency in words.
gt;gt; gt; gt;
gt;gt; gt; gt;
gt;gt; gt; gt;
gt;gt;
gt;gt;
gt;gt;
留言列表
