Related:
- Formula for conveting numerical value into wo
- Numeric to words formula in excel - Guide
- Spreadsheet formula - Articles
- Excel @ in formula ✓ - Forum - Excel
- Little alchemy formulas - Guide
- 1st, 2nd, 3rd position formula in excel ✓ - Forum - Office Software
Oct 25, 2009 at 02:32 AM
Nov 9, 2009 at 03:46 AM
Nov 27, 2009 at 03:30 AM
Dim units As String = ""
Dim numericToWordsOutPut As String = ""
Dim myNumArray(myNum.Length \ numGroup) As String
Dim index As Int16 = -1
For Count As Int16 = 0 To myNum.Length - numGroup Step numGroup
index += 1
myNumArray(index) = myNum.Substring(Count, numGroup)
Next
For Count As Int16 = 0 To (myNum.Length \ 3) - 1
units = thousendNum(((myNum.Length \ numGroup) - 1) - Count + 1)
numericToWordsOutPut &= CheckUnitOutput(myNumArray(Count)).TrimEnd(" ") & " " & units & " "
Next
myNumArray = Nothing
Return numericToWordsOutPut
End Function