¿¿Redondear números??
Gentes, tengo otro problema que espero me puedan ayudar a solucionar.
¿Hay algún comando para redondear números a una cantidad de cifras significativas determinadas? Los comandos que ví en la ayuda no hacen eso exactamente, necesitaría que pueda ingresar la cantidad de cifras "significativas" que debe tener (lo quiero hacer para el programa de gráficas). Desde ya........muito obrigado. |
Espero esto te pueda servir, lo saque de Trucomania, lo he usado y funciono bien.
Puedes usar Trunc o Round {NOTA: el numero de digitos entre la parte entera y la decimal, nunca superara los 15 - ver tipo Real -} function Redondear(Valor: Real; Redondeo: Integer):Real; begin Redondear := Trunc(Valor * Power(10, Redondeo)) / Power(10,Redondeo); end; Ejemplos, segun que uses Con Trunc: Redondear(StrToFloat('147845,6789'), 3) = 147845,678 Redondear(StrToFloat('147845,6789'), 0) = 147845 Redondear(StrToFloat('147845,6789'), -3) = 147000 Con Round: Redondear(StrToFloat('147845,6789'), 3) = 147845,679 Redondear(StrToFloat('147845,6789'), 0) = 147846 Redondear(StrToFloat('147845,6789'), -3) = 148000 Saludos :) |
La franja horaria es GMT +2. Ahora son las 18:15:15. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi