[VB6] Formattazione di valori per passaggio a INSERT

[maximum]

Ho un valore numerico da inserire nel mio campo (tipo valuta).

Nella INSERT ho correttamente replicato la "," con il ".".
Il problema nasce quando gli importi hanno un formato di questo tipo: 120.000,00

La replace pone il dato numerico così: 120.000.00 e la INSERT va male.

Qualche suggerimento di come ovviare al problema?

[darkonme]

Inserendo questa funzione, ti restituisce il dato formattatto.

Function Formatta(Numero As String ) As String
If (Numero - Fix(Numero)) > 0 Then
Formatta = Format(Numero, "#,###.##")
Else
Formatta = Format(Numero, "#,###")
End If
End Function

Ciao.

[maximum]

Grazie.
Ciao.