[VB6] Formattare i numeri decimali

[OrcaAssassina]

Ho un calcolo:

Text93.Text = (Text95.Text / (1.0278 - (0.0278 * Text94.Text))

Il risultato vorrei che mi venga reisituito con una sola cifra decimale

Cosi scrivendo:

Text93.Text = Format((Text95.Text / (1.0278 - (0.0278 * Text94.Text))), 0)

mi da il numero intero sena virgola

Come va modificato????

Ciao e grazieeeeee

[mynos79]

Va modificato così:

Text93.Text = Format((Text95.Text / (1.0278 - (0.0278 * Text94.Text))), "#.0")

Se ad esempio vuoi formattare col separatore di migliaia e con 2 cifre decimali puoi fare così:

Format(....., "##,##0.00")

Comunque il formato personalizzato non è univoco, è abbastanza elastico ... infatti quello che serve a te può essere "#.0" come anche "####0.0" ... da lo stesso risultato (senza separatore delle migliaia, se lo vuoi devi specificarlo).
La funzione Format poi, se la usi senza il parametro formato (ovvero con solo l' espressione) è come la funzione Str ... converte in stringa e basta ...

[mynos79]

Ah, altra cosa ... facendo così tu tagli il risultato alla 1° cifra decimale ... ma non arrotondi ... se vuoi arrotondare sai che devi usare altre funzioni prima o assieme del format.