CISA FotoGallery

Statistiche

Tot. visite contenuti : 928213
Home Articoli tecnici Tabelle Convertire una valuta nel formato americano

Convertire una valuta nel formato americano

 Il formato americano della valuta inverte rispetto al nostro sistema i simboli usati per la divisione delle migliaia con quello dei centesimi.
Se usassimo nel Formato del controllo
#,##0.00
Access lo convertirebbe in
#,000\.00
compromettendone la visualizzazione.

Una piccola funzione ci permette di risolvere il problema della conversione

Function USA_Format(ByVal numero As Variant) As String

Dim strSepDec As String
Dim strSepCifre As String
Dim strRetValue As String

If IsNumeric(numero) = False Then Exit Function

'Ricavo il separatore decimale
strSepDec = Mid(Format(1000#, "#,##0.00"), 6, 1)

'Ricavo il raggruppamento cifre
strSepCifre = Mid(Format(1000#, "#,##0.00"), 2, 1)


strRetValue = Format(numero, "#,##0.00")
strRetValue = Replace(strRetValue, strSepDec, "|")
strRetValue = Replace(strRetValue, strSepCifre, ",")
strRetValue = Replace(strRetValue, "|", ".")

USA_Format = '$ "+strRetValue

End Function