Hi Rajasekhar
Here it comes...
Enjoy and let me know if it suits you.
Kind regards
Paul Willekens
'=======================================================================
'module level
Public aDigit(9)
Public aTeenage(8)
Public aTenfold(8)
Public cNumber
'=======================================================================
Sub InitArrays()
aDigit(0) = "one"
aDigit(1) = "two"
aDigit(2) = "three"
aDigit(3) = "four"
aDigit(4) = "five"
aDigit(5) = "six"
aDigit(6) = "seven"
aDigit(7) = "eight"
aDigit(8) = "nine"
aTeenage(0) = "eleven"
aTeenage(1) = "twelve"
aTeenage(2) = "thirteen"
aTeenage(3) = "fourteen"
aTeenage(4) = "fifteen"
aTeenage(5) = "sixteen"
aTeenage(6) = "seventeen"
aTeenage(7) = "eighteen"
aTeenage(8) = "nineteen"
aTenfold(0) = "ten"
aTenfold(1) = "twenty"
aTenfold(2) = "thirty"
aTenfold(3) = "fourty"
aTenfold(4) = "fifty"
aTenfold(5) = "sixty"
aTenfold(6) = "seventy"
aTenfold(7) = "eighty"
aTenfold(8) = "ninety"
End Sub
'=======================================================================
Function Getal(nNum)
Dim nNumber
Dim nSave
cNumber = ""
If IsEmpty(nNum) Or IsNumeric(nNum) = False Then
nNumber = 0
Else
nNumber = nNum * 1
End If
If nNumber > 999 Then
If nNumber > 999999 Then
If nNumber > 999999999 Then
nSave = nNumber
nNumber = Int(nNumber / 1000000000)
LittleAmount (nNumber)
cNumber = cNumber & " billion "
nNumber = nSave - nNumber * 1000000000
End If
nSave = nNumber
nNumber = Int(nNumber / 1000000)
If nNumber > 0 Then
LittleAmount (nNumber)
cNumber = Trim(cNumber) & " million "
End If
nNumber = nSave - nNumber * 1000000
End If
nSave = nNumber
nNumber = Int(nNumber / 1000)
If nNumber > 0 Then
LittleAmount (nNumber)
cNumber = Trim(cNumber) & " thousand "
End If
nNumber = nSave - nNumber * 1000
End If
LittleAmount (nNumber)
Getal = cNumber
End Function
'=======================================================================
Function LittleAmount(nGetal)
Dim nHundred
Dim nOne
Dim nTen
If Len(aDigit(0)) < 3 Then
InitArrays
End If
nHundred = Int(nGetal / 100)
nTen = Int((nGetal - 100 * nHundred) / 10)
nOne = Int(nGetal - 100 * nHundred - 10 * nTen)
If nHundred > 0 Then
cNumber = cNumber & aDigit(nHundred - 1) + " hundred "
End If
If nTen = 1 And nOne > 0 Then
cNumber = cNumber & aTeenage(nOne - 1)
Else
If nTen > 0 Then
cNumber = cNumber & aTenfold(nTen - 1)
End If
If nOne > 0 Then
cNumber = Trim(cNumber) & " " & aDigit(nOne - 1)
End If
End If
End Function
'=======================================================================
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
To unsubscribe, reply using "remove me" as the subject.
