Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: ffabio - Marzo 13, 2012, 11:44:22 am

Titolo: funzione SimpleRoundTo
Inserito da: ffabio - Marzo 13, 2012, 11:44:22 am
Ciao a tutti
problema funzione SimpleRoundTo ??? esiste in lazarus ???

ho una variabile ris : double ;
ris contiene valore 52,83174378   vorrei  usare una funzione per avere 52,83

ris :=  SimpleRoundTo(ris,2);

dopo ris mi vale 100

perchè ???? Qualcuno ha qualche idea ???

Titolo: Re:funzione SimpleRoundTo
Inserito da: xinyiman - Marzo 13, 2012, 11:53:34 am
Lo fai con

ris :=  SimpleRoundTo(ris,-2);

Il secondo parametro se negativo lavora sui decimali, se positivo arrotonda fino all'unità!

SimpleRoundTo esiste basta usare la unit math
Titolo: Re:funzione SimpleRoundTo
Inserito da: ffabio - Marzo 13, 2012, 12:07:31 pm
Grazie xinyiman .

vedrai che piano piano imparo  :-)

Titolo: Re:funzione SimpleRoundTo
Inserito da: xinyiman - Marzo 13, 2012, 12:13:49 pm
Nessun problema!
Titolo: Re:funzione SimpleRoundTo
Inserito da: ffabio - Marzo 13, 2012, 03:19:15 pm
Alto aiuto,  se da un risultato ottengo es 13,1

e io voglio visualizzare 13,10 ????

esite una funzione ???

grazie
Titolo: Re:funzione SimpleRoundTo
Inserito da: xinyiman - Marzo 13, 2012, 03:38:46 pm
http://www.freepascal.org/docs-html/rtl/sysutils/formatfloat.html
Titolo: Re:funzione SimpleRoundTo
Inserito da: ffabio - Marzo 13, 2012, 04:03:47 pm
Grazie trovato :-)))

netto_riga:=FormatFloat(',.00',netto_riga1);