Android Question convert number into lakhs with decimal?

[RishiKumar2210]

i need to convert 250000 into 2,50,000.00 is this possible?

 

[Erel]

Sub AppStart (Args() As String)
    Log(FormatWithCustomGrouping(123456, 2))
End Sub


'only tested with positive numbers
Private Sub FormatWithCustomGrouping(n As Double, DecimalPoints As Int) As String
    Dim Groupings() As Int = Array As Int(3, 2, 1000)
    Dim res As StringBuilder
    res.Initialize
    Dim i As Int = n
    Dim s As String = i
    Dim f As Double = (n - i) * Power(10, DecimalPoints)
    res.Insert(0, NumberFormat2(f, DecimalPoints, 0, 0, False))
    res.Insert(0, ".")
    Dim index As Int = s.Length - 1
    For Each g As Int In Groupings
        Do While g > 0
            If index < 0 Then Exit
            res.Insert(0, s.CharAt(index))
            g = g - 1
            index = index - 1       
        Loop
        If index >= 0 Then res.Insert(0, ",")
    Next
    Return res.ToString
End Sub

 

[RishiKumar2210]

Sub AppStart (Args() As String)
    Log(FormatWithCustomGrouping(123456, 2))
End Sub


'only tested with positive numbers
Private Sub FormatWithCustomGrouping(n As Double, DecimalPoints As Int) As String
    Dim Groupings() As Int = Array As Int(3, 2, 1000)
    Dim res As StringBuilder
    res.Initialize
    Dim i As Int = n
    Dim s As String = i
    Dim f As Double = (n - i) * Power(10, DecimalPoints)
    res.Insert(0, NumberFormat2(f, DecimalPoints, 0, 0, False))
    res.Insert(0, ".")
    Dim index As Int = s.Length - 1
    For Each g As Int In Groupings
        Do While g > 0
            If index < 0 Then Exit
            res.Insert(0, s.CharAt(index))
            g = g - 1
            index = index - 1      
        Loop
        If index >= 0 Then res.Insert(0, ",")
    Next
    Return res.ToString
End Sub

Thanks, It worked.

 

[aeric]

[B4X] Format 10,000 (Ten Thousand) to Lakh

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)...

www.b4x.com

 

[TILogistic]

i need to convert 250000 into 2,50,000.00 is this possible?

[B4X] Lakh format number

Attached is a demo and code to convert numbers to Lakh format. UPDATE: Formatting using the B4XFormatter library. Ref: https://www.b4x.com/android/forum/threads/convert-number-into-lakhs-with-decimal.149419/ NumberFormatLakh(250000, 1, 2) 'Converts the specified number to a string in...

www.b4x.com

 

[RishiKumar2210]

Sub AppStart (Args() As String)
    Log(FormatWithCustomGrouping(123456, 2))
End Sub


'only tested with positive numbers
Private Sub FormatWithCustomGrouping(n As Double, DecimalPoints As Int) As String
    Dim Groupings() As Int = Array As Int(3, 2, 1000)
    Dim res As StringBuilder
    res.Initialize
    Dim i As Int = n
    Dim s As String = i
    Dim f As Double = (n - i) * Power(10, DecimalPoints)
    res.Insert(0, NumberFormat2(f, DecimalPoints, 0, 0, False))
    res.Insert(0, ".")
    Dim index As Int = s.Length - 1
    For Each g As Int In Groupings
        Do While g > 0
            If index < 0 Then Exit
            res.Insert(0, s.CharAt(index))
            g = g - 1
            index = index - 1      
        Loop
        If index >= 0 Then res.Insert(0, ",")
    Next
    Return res.ToString
End Sub

I am using this function with little changes
Dim Groupings() As Int = Array As Int(3, 2, 2 ,3)

This is not working larger than 200 crores (Ex.222,29,70,627.57). Why this is not working?