B4J 2.80+ Sub FormatLakh(number As Double, decimals As Int) As String Dim dd As Int, ss As String Dim mm As Long = Abs(number) Dim nn As Long = mm / 1000 Dim dc As Double = (mm Mod 1000) + Abs(number) - mm Dim lakh As String = NumberFormat2(dc, 1, decimals, decimals, False)...
B4J 2.80+ Sub FormatLakh(number As Double, decimals As Int) As String Dim dd As Int, ss As String Dim mm As Long = Abs(number) Dim nn As Long = mm / 1000 Dim dc As Double = (mm Mod 1000) + Abs(number) - mm Dim lakh As String = NumberFormat2(dc, 1, decimals, decimals, False)...
' Convert an integer number to words ' Pr.S ' Range: >-1,000,000 to Int2Word(-13422, False, True) Sub Int2Word (Value As Int, IgnoreZero As Boolean, AllowNegatives As Boolean) As String Dim OnWords() As String = Array As...
B4J 2.80+ Sub FormatLakh(number As Double, decimals As Int) As String Dim dd As Int, ss As String Dim mm As Long = Abs(number) Dim nn As Long = mm / 1000 Dim dc As Double = (mm Mod 1000) + Abs(number) - mm Dim lakh As String = NumberFormat2(dc, 1, decimals, decimals, False)...