FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
¿¿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. |
#2
|
|||
|
|||
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
__________________
Hernán Colombo e-mail: hernanc@cibergamo.com |
|
|
|