como saber si una cantidad es entera o decimal

[roman]

¿Podrías poner un poco más del código antes de

Código Delphi [-]
FormatCurr('###,###,##0.00', resultado);

Por ejemplo, ¿qué tipo de datos es la variable resultado y cómo le asignas un valor?

// Saludos

[CarlosHernandez]

total es el resultado de una multiplicacion y sumas de una tabla, aveces da un valor entero o decimal, y cuando lo quiero pasar a un edit para visualizarlo me da el error...


edit9.Text:= FormatCurr('###,###,##0.00', total);

[CarlosHernandez]

eso es unos de los problemas, y el trafondo original (no se si deba ponerlo en otro hilo) es trabajar con porcentajes, busque informacion en foros pasados, y dan las misma formula que uso, regla de 3 o multiplicando por 0.algo (0.07 para el 7%).

subtotal=8178881

porcentaje=7,5
descuento=613416


y existen 2 forma de hacer un descuento en porcentaje, o coloco el porcentaje como tal, (7,5%) o coloco la cantidad monetaria 613416

regla de tres

si coloco el porcentaje y voy a calcular la cantidad monetaria a restar

descuento=porcentaje*subtotal/100;

total=8178881-613416,075
 
total=7565464,925

 
tambien puede ser

total=subtotal*0.075;

si coloco la cantidad monetaria a restar y deseo saber a que porcentaje me equivale eso

subtotal=8178881 100
descuento=613416 porcentaje=x

porcentaje=descuento*100/subtotal;
porcentaje=7,5

total=8178881-613416,075
 
total=7565465

es lo mismo pero los decimales que le quito a uno se lo suma al otro, y yo quiero que lo calcule de la segunda forma pero con el primer metodo no se si me explico, y por eso no se que hacer,

[marcoszorrilla]

No se porque me parece que utilizando FormaFloat acabaría el problema, te pongo un ejemplo a ver si te sirve.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
x:Integer;
begin
x:=133;
Edit1.Text:=FormatFloat(',0.00',x);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
x1: Double;
begin
x1:=1988.343;
Edit1.Text:=FormatFloat(',0.00',x1);
end;

Un Saludo.

[[egostar]]

Me parece que el problema es de concepto, quieres quitar los decimales en el transcurso de la operación, pero lo que todos estamos comentando es que eso lo haces cuando ya tienes el resultado final y lo conviertes (redondeas).

Pienso que cualquiera de las respuestas anteriores te va a resultar satisfactoria.

Salud OS.

[CarlosHernandez]

ok gracias a todos, voy a probar todas las opciones y despues les cuento que tal.....

saludos...