Tema: Problema Roundto BCD Overflouw
Ver Mensaje Individual
  #2  
Antiguo 06-01-2010
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
 
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
nouble;
begin
n:=Roundto(50 / 7.07,-2);
ShowMessage(FloatToStr(n));
end;

No veo ningún problema el resultado me da 7,07.

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