[VB6] Virgola e punto nei decimali

[Birgy]

Buongiorno a tutti,

ho questo problema: Ho un campo "money" in un DB (SQL Server).
In questo campo la valuta viene inserita con il punto.
Quando viene richiamata però trasforma il punto in virgola e ciò genera errore.
Ho usato un replace:

Costo= Replace(Costo, "," , ".")

ma così facendo invece di inserire un costo pari a 0.50€ viene inserito un costo pari a 50€!!!

Dov'è l'errore? Sbaglio ad usare replace?

Grazie a tutti

[oregon]

Versione del linguaggio?

[Birgy]

Versione: VB 6.0

[oregon]

Mostra il codice che usi per leggere il tuo dato dal db ...

P.S. La versione del linguaggio va sempre nel titolo come da Regolamento, anche perche' hai aperto altri problemi per il VB.NET e non si capisce quale stai usando ...

[Birgy]

Grazie per l'informazione! cercherò di non commettere errori la prox volta! :P

Il codice è questo:

...
sql1 = "get_Percorso('" & utente & "'," & Chr(39) & tipo & Chr(39) & "," & mese & "," & anno & "," & massimo & "," & Chr(39) & partenza & Chr(39) & ")"
Set ors = oConn.Execute(sql1)
Tariffa = 0
While Not ors.EOF
    Tariffa = ors.Fields("CostoAlKm")
    Tariffa = Replace(Tariffa, "," , ".")
    ors.movenext
Wend
ors.Close
Set ors = Nothing
...

Spero di aver riportato tutto quel che serve!


PS: il codice non l'ho scritto io... io devo solo fare delle modifiche su questo programma!!!
Grazie ancora!

[oregon]

Ma Tariffa che tipo di variabile e'? Dove l'hai dichiarata?

[Birgy]

Function RimborsoSpese(byVal...)
...
Dim Tariffa
Dim massimo
Dim mese As String
Dim anno As String
Dim tipo As String
...
sql1 = "get_Percorso('" & utente & "'," & Chr(39) & tipo & Chr(39) & "," & mese & "," & anno & "," & massimo & "," & Chr(39) & partenza & Chr(39) & ")"
Set ors = oConn.Execute(sql1)
Tariffa = 0
While Not ors.EOF
    Tariffa = ors.Fields("CostoAlKm")
    Tariffa = Replace(Tariffa, "," , ".")
    ors.movenext
Wend
ors.Close
Set ors = Nothing
...

Spero vada meglio!

[Pirelli72]

Ma la variabile Tariffa che tipo è?

[Birgy]

Il campo "CostoAlKm" è di tipo money, la variabile Tariffa è dichiarata solo come

Dim Tariffa

devo specificare che si tratta di valuta?
Se si, come?
Grazie

[oregon]

Beh, così e' un Variant ...

Usa

Dim Tariffa As Currency

e poi

Tariffa = CCur(ors.Fields("CostoAlKm"))