MensajePublicado: Mar 04 May, 2010 1:49 am    Asunto: Redondeo de Moneda (2 decimales) Responder citando
NOTA: #include "Math.hpp" para la función RoundTo()
Redondea a CINCO centimos de EURO, ya que las monedas por debajo de CINCO centimos cada vez se utilizan menos:
Código:

double __fastcall TForm1::RedondeaEuro(double N)
{
   //E = Parte entera, D = Parte decimal
   int E = N, D = int(RoundTo(N, -2)*100)%100;
   D = D%10 > 5 ? D - (D%10) + 10 : D%10 < 5 ? D - (D%10) : D;
   return E + (D*0.01);
}


Y la forma de utilizarla:
Código:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   double EURO = RedondeaEuro(1485833.56);
   ShowMessage(FormatFloat("#,0.00 Euros",EURO));
}

_________________
Muchos hombres no se equivocan jamás porque no se proponen nada razonable.