Format di valute: non riesco a farlo funzionare

[Picavbg]

Mim succedeva anche in G2. Avendo la necessità di convertire un formato numerco float in una stringa editata utilizzo una maschera di editing, definita come Dim, nell'istruzione format successiva:

Codice: [Seleziona]

Dim f_import As Float
Dim $Mask As String

If $TipoValuta = "€" Then
        $Mask = "###,###,##0.00"
Else
    $Mask = "###,###,##0"
Endif
f_import = CFloat($_Impor)
$_Impor = Format(f_import, $Mask)

Ebbene il risultato ottenuto è, a seconda del contenuto di $TipoValuta ("€" o "£"), uno dei seguenti due:

f_import = 2529
$_Impor =  2 529,00     invece di 2.529,00

f_import = 16600
$_Impor =  16 600     invece di 16.600

[doublemm]

per l'euro prova questo

Codice: [Seleziona]

Public Sub Form_Open()

Dim numero As Float

numero = 2959

Print Format$(numero, "$,#.00")

End

[Picavbg]

per l'euro prova questo

Codice: [Seleziona]

Public Sub Form_Open()

Dim numero As Float

numero = 2959

Print Format$(numero, "$,#.00")

End

Si, funziona, ma nel trattamento di valuta espressa in £ire, purtroppo ritorna a non funzionare. Grazie, comunque.
 

[md9327]

Forse perchè il simbolo della vecchia valuta italiana non esiste più?...

[Picavbg]

Forse perchè il simbolo della vecchia valuta italiana non esiste più?...

Non so; in ogni caso è un'anomalia. Infatti, il fatto che la £ira sia ormai andata in pensione, non vuol dire che un programma non possa trattare valute diverse dall'Euro.  Secondo me, andrebbe fatta una segnalazione agli sviluppatori di Gambas.