[VB6] Formattazione numeri con la virgola

[Bardamù]

Ciao a tutti!
Siccome dovrei inserire un controllo su un campo importo, ke venga inserito con .00 finale, ed il campo del db sql server in questione e' formato money, mi serve fare una trasformazione di tipi.
Posto il codice ke avevo pensato di inserire:

--Code

Do While Not Rs.EOF
SpeseAmministrative = Rs!SpeseAmministrative
If Right(Cstring(SpeseAmministrative, 3)) <> "." Then
SpeseAmministrative = SpeseAmministrative & ".00"
End If
.........


--End code

Poi come faccio a riconvertire in un formato ke sia compatibile con money???

grazie!

[alka]

In quale linguaggio? VB6?

[Bardamù]

si Alka! Scusa

[Bardamù]

O meglio:

Esiste una funzione ke mi formatta i numeri con la virgola?
In modo tale da inserire .00 quando non lo si metta?

[Jupy64]

Ciao usa la funzione Format

num=Format(numeroDaFormattare, "##.00")

[Bardamù]

grazie Jupy64 ma non funziona, forse devo convertire in stringa?

[Bardamù]

Ok fatto grazie!

[Jupy64]

si, scusa, non ci avevo pensato. Se dopo la virgola ci sono soltanto zero, automaticamente il formato double o currency toglie la virgola... pertanto dovresti usare una variabile stringa di appoggio per la conversione.
Oltre alla funzione Format, c'è anche FormatNumber e FormatCurrency, vedi tu quale ti va meglio

Dim strNum As String
Dim numero As Double
numero = 12345
strNum = Format(numero, "##.00")
    strNum = 12345,00
strNum = Format(numero, "#,##.00")
    strNum = 12.345,00
strNum = FormatNumber(numero, 2)
    strNum = 12.345,00
strNum = FormatCurrency(strNum, 2)
    strNum = € 12.345,00