Convert Number To String (English and Arabic)

• Download source - 35.1 KB

Introduction

This is a class that has 3 major functions:

1. NumToString which converts any number to string (Word) 
   For 123 -->> One Hundred Twenty Three
2. getUnits which takes any decimal number and returns the unit number 
   For a number like 2.6 it returns 2, but without using the split function
3. GetChange which takes any decimal number and returns the change number 
   For a number like 2.6 it returns 6000, but without using the split function

Background

In most financial applications, we know how to convert the value of money to words (String).

The NumToString does what you want. All you need to do is call the class and use it to convert the num.

'Call the DLL
Dim munClass As New noToStringDll.NumberWriter_en

' to use munToString 
Dim num As Double = 125.125
Dim numStr As String = munClass.NumToString(num)
MsgBox(numStr)

' to use getUnits
Dim numUnit As Long = munClass.getUnits(num)
MsgBox(numUnit)

' to use getChange
Dim numChange As Long = munClass.GetChange(num)
MsgBox(numChange)

Points of Interest

I was very happy when I finished getChange and getUnits because all the developers I asked about how to get it from any double number used split (including myself), but with this one, it's all math.