Italian Formattare con separat migliaia e virgola decimali (modo italiano)

LucaMs said:

Provo a guardarlo al volo

Click to expand...

oparra said:

in chile il separatore delle migliaia è il punto e il decimale è la virgola

Click to expand...

LucaMs said:

Provo a guardarlo al volo, ma tra poco... Belgio - Portogallo.
(Si domandano: "Sarà meglio dover incontrare il Belgio o il Portogallo?". Domanda scema, visto che incontreremo la vincente! Sarebbe meglio incontrare la perdente, ma temo non sia possibile ).

Click to expand...

Sabotto said:

Certo. la guardo anche io.. Meglio Portogallo comunque...(imho)

Click to expand...

Public Sub TestFormatter
    Dim out As String
    
    out = out & CRLF & SetFormmatter("12345.678", 2)
    out = out & CRLF & SetFormmatter("3.45", 2)
    out = out & CRLF & SetFormmatter("123", 2)
    out = out & CRLF & SetFormmatter("2456000.3", 2)
    
    Log(out)
End Sub

Public Sub SetFormmatter( Value As String, Decimal As Int) As String
    Dim formatter As B4XFormatter
    formatter.Initialize
    formatter.GetDefaultFormat.GroupingCharacter = "."
    formatter.GetDefaultFormat.DecimalPoint = ","
    formatter.GetDefaultFormat.MaximumFractions = 2
    formatter.GetDefaultFormat.MinimumFractions = 2
    formatter.GetDefaultFormat.Prefix = "$"
    formatter.GetDefaultFormat.IntegerPaddingChar = "*"
    formatter.GetDefaultFormat.MinimumIntegers = 12
    
    Dim Data As Double = Round2(Value.Replace(",","."), 2)
    Return formatter.Format(Data)
End Sub

$******12.345,68
$***********3,45
$*********123,00
$***2.456.000,30

Click to expand...

ublic Sub TestFormatter
    Dim out As String

'    String
    out = out & CRLF & SetFormmatter("12345,678", 2)
    out = out & CRLF & SetFormmatter("3,45", 2)
    out = out & CRLF & SetFormmatter("123", 2)
    out = out & CRLF & SetFormmatter("2456000,3", 2)
    
'    Numeric
    out = out & CRLF & SetFormmatter(12345.678, 2)
    out = out & CRLF & SetFormmatter(3.45, 2)
    out = out & CRLF & SetFormmatter(123, 2)
    out = out & CRLF & SetFormmatter(2456000.3, 2)

    Log(out)
End Sub

Public Sub SetFormmatter(Value As String, Decimal As Int) As String
    Dim Formatter As B4XFormatter
    Formatter.Initialize
    Formatter.GetDefaultFormat.GroupingCharacter = "˙"
    Formatter.GetDefaultFormat.DecimalPoint = ","
    Formatter.GetDefaultFormat.MaximumFractions = 2
    Formatter.GetDefaultFormat.MinimumFractions = 2
    Formatter.GetDefaultFormat.Postfix = "£"
    'Formatter.GetDefaultFormat.IntegerPaddingChar = "*"
    'Formatter.GetDefaultFormat.MinimumIntegers = 12
    
    Dim Data As Double = Round2(Value.Replace(",","."), 2)
    Return Formatter.Format(Data)
End Sub

12˙345,68£
3,45£
123,00£
2˙456˙000,30£
12˙345,68£
3,45£
123,00£
2˙456˙000,30£

Click to expand...

Sabotto said:

si ma il mistero dello zip che ho inviato vorrei proprio capirlo.
Due routine uguali, perche una funziona e una no?!?

Click to expand...

Sabotto said:

si ma il mistero dello zip che ho inviato vorrei proprio capirlo.
Due routine uguali, perche una funziona e una no?!?

Click to expand...

    s2.Replace(",","A") ' sostituisco la virgola con carattere A
    s2.Replace(".","B") ' sostituisco il punto con carattere B
    s2.Replace("A",".") ' sostituisco la A col punto
    s2.Replace("B",",") ' e la B con la virgola

    s2=s2.Replace(",","A") ' sostituisco la virgola con carattere A
    s2=s2.Replace(".","B") ' sostituisco il punto con carattere B
    s2=s2.Replace("A",".") ' sostituisco la A col punto
    s2=s2.Replace("B",",") ' e la B con la virgola

Star-Dust said:

B4X:

   Sub prova()

    Dim s As String ="12345,6789"
    Dim s1 As String = s.Replace(",",".") 'lo rendo numero come lo vuole lui
    Dim s2 As String = NumberFormat2(s1, 0, 2, 2, True) 'separat. migliaia e due decimali

    'A questo punto ho il numero formattato con la virgola come separat. migliaia
    ' e il punto come separat. dei decimali
    'Ma a me serve il contrario e quindi opero una serie di sostituzioni
    '(che mi sono accorto che in realtà non fa!!!!)
    S2=s2.Replace(",","A") ' sostituisco la virgola con carattere A
    S2=s2.Replace(".","B") ' sostituisco il punto con carattere B
    S2=s2.Replace("A",".") ' sostituisco la A col punto
    S2=s2.Replace("B",",") ' e la B con la virgola

    Log(s2) 'non funziona, mi attendevo 12.345,68 ma esce  12,345.68
       
End Sub

Click to expand...

Star-Dust said:

l'avevo scritto mezza giornata fa, ma

Click to expand...

Star-Dust said:

l'avevo scritto mezza giornata fa, ma @Sabotto scrive le domande ma non legge le rispo6o quantomeno non lo fa con attenzione

Click to expand...