Android Question Doubt on Number Format?

[Pravee7094]

Hi all,
Here sample code :

Dim fTotal As Double = 100000                                           
Log("fTotal : " & fTotal)
            
Dim Total_Amount As String
Total_Amount = NumberFormat2(fTotal,0,2,2,True)
Log("Final Total Amount : " & Total_Amount)

Result :

fTotal : 100000
Final Total Amount : 100,000.00

Now, Final total amount is 1 lakh.
I want this format : 1,00,000.00

Any Suggestion? or Help ?

Regards
Praveen

 

[TILogistic]

100,000.00 to 1,00,000.00 ??

formatter to lakh??

 

[Pravee7094]

100,000.00 to 1,00,000.00 ??

formatter to lakh??

Yes, Thats I want

 

[aeric]

Yes, Thats I want

Isn't this follow your OS regional settings?

 

[josejad]

In case you're having problems with your regional settings, you could see this post:

[solved] Setting a decimal separator

Hi all, I'm aware of a few ways to set a decimal separator so to output a double according to locale settings or whatever is needed, but I'd like to know if it can be easily done by using JavaObject alone. To be clear, I saw the thread about using AHlocale+JO+Reflection I know how to do it...

www.b4x.com

 

[Pravee7094]

In case you're having problems with your regional settings, you could see this post:

[solved] Setting a decimal separator

Hi all, I'm aware of a few ways to set a decimal separator so to output a double according to locale settings or whatever is needed, but I'd like to know if it can be easily done by using JavaObject alone. To be clear, I saw the thread about using AHlocale+JO+Reflection I know how to do it...

www.b4x.com

Thanks for your kind response.

I'm from India. So I follow your given code with little change of language and region.
But it's not working for me.

Sub DisplayDouble(language As String, region As String, number As Double) As String
    Dim jo As JavaObject
    jo = jo.InitializeNewInstance("java.util.Locale.Builder", Null)
    Dim locale As JavaObject = jo.RunMethodJO("setLanguage", Array As Object(language)).RunMethodJO("setRegion", Array As Object(region)).RunMethod("build", Null)
    Dim numberFormatter As JavaObject = jo.InitializeStatic("java.text.NumberFormat").RunMethod("getNumberInstance", Array As Object(locale))
    Dim retVal As String = numberFormatter.RunMethod("format", Array As Object(number))
    Return retVal
End Sub

Log("Value : " & DisplayDouble("en", "IN", 12345678910.69))

Result :
Value : 12,345,678,910.69

I want this type : 12,34,56,78,910.69

Any Help?

Regards

 

[AscySoft]

you should start creating your custom string formatter function, starting with this

Dim fTotal As Double = 12345678910.69
Log("fTotal : " & fTotal)
Dim Total_Amount As String = $"${NumberFormat2(fTotal/100000,1,2,2,True).Replace(".",",")}"$
Log($"Final Total Amount: ₹ ${Total_Amount}L"$ )

 

[TILogistic]

??

 

[TILogistic]

test:
Log("Value : " & DisplayDouble("hi", "IN", 12345678910.69))


NOTE: These are updated to Android 5.0.1

android-locales/README.md at master · championswimmer/android-locales

Contribute to championswimmer/android-locales development by creating an account on GitHub.

github.com

 

[Pravee7094]

??
View attachment 115717

Yes,
It's perfeclty worked on b4a. But the same coding will not worked in b4j application.

Could you please check that?

Regards

 

[TILogistic]

see:

Locale aware Double to String conversion with minimum and maximum decimal control

As per request by @moore_it, this code snippet is a slight modification of a locale aware Double to String method I posted here: https://www.b4x.com/android/forum/threads/solved-setting-a-decimal-separator.105981/#post-663491. The only change I made is that this version allows control over the...

www.b4x.com

 

[Pravee7094]

see:

Locale aware Double to String conversion with minimum and maximum decimal control

As per request by @moore_it, this code snippet is a slight modification of a locale aware Double to String method I posted here: https://www.b4x.com/android/forum/threads/solved-setting-a-decimal-separator.105981/#post-663491. The only change I made is that this version allows control over the...

www.b4x.com

I tried these code sample. Still No success with B4j.
Do you got correct format with B4j ? (format : 1,00,000.00)

Sample Code :

Sub DisplayDouble2(language As String, region As String, number As Double, minDecimals As Int, maxDecimals As Int) As String
    Dim jo As JavaObject
    jo = jo.InitializeNewInstance("java.util.Locale.Builder", Null)
    Dim locale As JavaObject = jo.RunMethodJO("setLanguage", Array As Object(language)).RunMethodJO("setRegion", Array As Object(region)).RunMethod("build", Null)
    Dim numberFormatter As JavaObject = jo.InitializeStatic("java.text.NumberFormat").RunMethod("getNumberInstance", Array As Object(locale))
    numberFormatter.RunMethod("setMinimumFractionDigits", Array As Object (minDecimals))
    numberFormatter.RunMethod("setMaximumFractionDigits", Array As Object (maxDecimals))
    Dim retVal As String = numberFormatter.RunMethod("format", Array As Object(number))
    Return retVal
End Sub

Log("Value : " & DisplayDouble2("en", "IN", 12345678910.69,2,2))

Result :
Value : 12,345,678,910.69

Target Format : 12,34,56,78,910.69

Regards

 

[TILogistic]

see

JAVA11

https://www.oracle.com/java/technologies/javase/jdk11-suported-locales.html

JAVA 8

https://www.oracle.com/java/technologies/javase/jdk8-jre8-suported-locales.html

 

[AnandGupta]

Hi @Pravee7094 , once you have solve the problem, with help from members, I request you to change the title to 'millions to lakh format'.
So that other members can find it when needed in future.

 

[TILogistic]

I have developed a function that formats Indian currency as a personal challenge, to be used in B4X.

I've been doing tests, I'll post it soon.

Can you tell me if the format is ok?

 

[LucaMs]

https://en.wikipedia.org/wiki/Indian_numbering_system

 

[aeric]

May not very elegant but I think it will work until you found the bug.

Sub FormatLakh(number As Double, decimals As Int) As String
    Dim ss As String
    Dim mm As Long = Abs(number)
    Dim nn As Long = mm / 1000
    Dim dc As Double = Abs(number) - mm   
    Dim dd As Int
    Do Until (nn < 100)
        dd = nn Mod 100
        nn = nn / 100
        If ss <> "" Then ss = "," & ss
        ss = dd & ss
    Loop
    Dim lakh As String = $"${NumberFormat2((mm Mod 1000) + dc, 1, decimals, decimals, False)}"$
    If dd > 0 Then
        lakh = ss & "," & lakh
    End If
    If mm > 1000 Then
        lakh = nn & "," & lakh
    End If
    If number < 0 Then lakh = "-" & lakh
    Return lakh
End Sub

 

[Pravee7094]

May not very elegant but I think it will work until you found the bug.

Sub FormatLakh(number As Double, decimals As Int) As String
    Dim ss As String
    Dim mm As Long = Abs(number)
    Dim nn As Long = mm / 1000
    Dim dc As Double = Abs(number) - mm  
    Dim dd As Int
    Do Until (nn < 100)
        dd = nn Mod 100
        nn = nn / 100
        If ss <> "" Then ss = "," & ss
        ss = dd & ss
    Loop
    Dim lakh As String = $"${NumberFormat2((mm Mod 1000) + dc, 1, decimals, decimals, False)}"$
    If dd > 0 Then
        lakh = ss & "," & lakh
    End If
    If mm > 1000 Then
        lakh = nn & "," & lakh
    End If
    If number < 0 Then lakh = "-" & lakh
    Return lakh
End Sub

Yes, It's worked like a charm. Thank you so much.

 

[Pravee7094]

I have developed a function that formats Indian currency as a personal challenge, to be used in B4X.

I've been doing tests, I'll post it soon.

Can you tell me if the format is ok?

View attachment 115745

Yeah, That's perfect. It will help beginners like me.

 

[Pravee7094]

Hi @Pravee7094 , once you have solve the problem, with help from members, I request you to change the title to 'millions to lakh format'.
So that other members can find it when needed in future.

I could not find any edit options here. How to change the title after solved.

Regards