Ver Mensaje Individual
  #3  
Antiguo 11-09-2004
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Hace tiempo y con motivo del Euro cree para mi uso esta:

Código Delphi [-]
function RoundEuros(Const X: Double): Double;
var
r:Int64;  //resto
X2:Int64; //número
x1:double;  //resultado
begin
x2:=trunc((abs(x)*1000)+0.5); //Tomo los 3 primeros decimales.

r:=(x2 mod 10);//Compruebo si el 3 decimal es >=5
x2:=trunc(x2/10);//desprecio el tercer decimal

  if r >= 5  then  //Si el 3 decimal era >= 5 sumo 1 al número
          x2:=x2+1;

  x1:=x2/100; //Construyo el número con los 2 decimales

  if x < 0 then
  result:=0 - x1
  else
  result:=x1;

end;

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita