paul daniel Member Joined: 23 Dec 2009 Country: IN Posts: 2 | Posted: 23 Dec 2009 13:17:30 Hi It will be helpful to u.

Function retWord(ByVal Num As Decimal) As String 'This two dimensional array store the primary word convertion of number. retWord = "" Dim ArrWordList(,) As Object = {{0, ""}, {1, "One"}, {2, "Two"}, {3, "Three"}, {4, "Four"}, _ {5, "Five"}, {6, "Six"}, {7, "Seven"}, {8, "Eight"}, {9, "Nine"}, _ {10, "Ten"}, {11, "Eleven"}, {12, "Twelve"}, {13, "Thirteen"}, {14, "Fourteen"}, _ {15, "Fifteen"}, {16, "Sixteen"}, {17, "Seventeen"}, {18, "Eighteen"}, {19, "Nineteen"}, _ {20, "Twenty"}, {30, "Thirty"}, {40, "Forty"}, {50, "Fifty"}, {60, "Sixty"}, _ {70, "Seventy"}, {80, "Eighty"}, {90, "Ninety"}, {100, "Hundred"}, {1000, "Thousand"}, _ {100000, "Lakh"}, {10000000, "Crore"}}
Dim i As Integer For i = 0 To UBound(ArrWordList) If Num = ArrWordList(i, 0) Then retWord = ArrWordList(i, 1) Exit For End If Next Return retWord End Function
Edited by - paul daniel on 23 Dec 2009 13:18:25
.NET Application Development | C# Development Hi It will be helpful to u.

Function retWord(ByVal Num As Decimal) As String 'This two dimensional array store the primary word convertion of number. retWord = "" Dim ArrWordList(,) As Object = {{0, ""}, {1, "One"}, {2, "Two"}, {3, "Three"}, {4, "Four"}, _ {5, "Five"}, {6, "Six"}, {7, "Seven"}, {8, "Eight"}, {9, "Nine"}, _ {10, "Ten"}, {11, "Eleven"}, {12, "Twelve"}, {13, "Thirteen"}, {14, "Fourteen"}, _ {15, "Fifteen"}, {16, "Sixteen"}, {17, "Seventeen"}, {18, "Eighteen"}, {19, "Nineteen"}, _ {20, "Twenty"}, {30, "Thirty"}, {40, "Forty"}, {50, "Fifty"}, {60, "Sixty"}, _ {70, "Seventy"}, {80, "Eighty"}, {90, "Ninety"}, {100, "Hundred"}, {1000, "Thousand"}, _ {100000, "Lakh"}, {10000000, "Crore"}}
Dim i As Integer For i = 0 To UBound(ArrWordList) If Num = ArrWordList(i, 0) Then retWord = ArrWordList(i, 1) Exit For End If Next Return retWord End Function
Edited by - paul daniel on 23 Dec 2009 13:18:25
.NET Application Development | C# Development |