[VB6] Formattare numero / valuta

[axsw]

Ciao a tutti
Nel mio prg. estraggo delle variabili dichiarate "Curency"
e poi le formatto in questo modo.

Dim Prezzo as Currency
Dim Prezzoformattato As currency
 Prezzo = txtPrezzo.Text
  Prezzoformattato = txtPrezzo.Text
Prezzo = FormatNumber(unit, 2)

il risultato è questo
Esempio non formattato 234,345
Esempio formattato 234,34
Se invece capita un prezzo tondo come questo, 300
non mette le cifre dopo la virgola io invece vorrei
cher il risultato fosse questo 300,00
qualcuno può aiutarmi? ringrazio anticipatamente.

[vonkranz]

Format(numero,"#,#.0")

[axsw]

Von ti ringrazio ma non funziona
questo è il codice forse sbaglio io

 unit = txt7.Text
 tot = txt8.Text
 unit = Format(unit, "#,#.0")
 tot = Format(tot, "#,#.0")

niente zeri e niente virgola.

Scusate il coce postato sopra è sbagliato questo è giusto

Dim Prezzo as Currency
Dim Prezzoformattato As currency
 Prezzo = txtPrezzo.Text
  Prezzoformattato = txtPrezzo.Text
Prezzo = FormatNumber(Prezzo, 2)

[LMondi]

Prova così:

TxtInflazTasso1.Text = Format(CCur(FrmAA.TxtScelta2_2.Text), "#,##0.00")

[vonkranz]

 unit = txt7.Text
 tot = txt8.Text
 unit = Format(Val(unit), "#,#.0")
 tot = Format(Val(tot), "#,#.0")

[Jupy64]

Originariamente inviato da axsw
Ciao a tutti
Nel mio prg. estraggo delle variabili dichiarate "Curency"
e poi le formatto in questo modo.

Dim Prezzo as Currency
Dim Prezzoformattato As currency
 Prezzo = txtPrezzo.Text
  Prezzoformattato = txtPrezzo.Text
Prezzo = FormatNumber(unit, 2)

il risultato è questo
Esempio non formattato 234,345
Esempio formattato 234,34
Se invece capita un prezzo tondo come questo, 300
non mette le cifre dopo la virgola io invece vorrei
cher il risultato fosse questo 300,00
qualcuno può aiutarmi? ringrazio anticipatamente.

Ciao, il problema sta nel fatto che la variabile Prezzo è di tipo Currency, e di conseguenza se dopo la virgola ci sono zeri, automaticamente li toglie!!
se vuoi vedere anche la virgola con gli zeri allora la variabile deve essere di tipo stringa!
Pertanto una cosa del genere fa quello che vuoi tu:

dim Prezzo as currency
dim PrezzoFormattato as string
Prezzo=300
PrezzoFormattato=FormatNumber(Prezzo,2)

in questo caso PrezzoFormattato è 300,00

[axsw]

JUPY64 ok funziona grazie 1000
VON non funziona nemmeno la 2° ma grazie lo stesso