FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|