como saber si una cantidad es entera o decimal
 

hola de nuevo...

tengo un resultado de una operacion que al final necesito saber si es decima l o entero,

resultado=decimal;

o

resultado=entero;


esto lo hago con varios fines,
1. saber si voy a aplicar o no el FormatCurr('###,###,##0.00', resultado);

esa es la primordial porque si aplico ese formato a un numero entero me da error diciendome que no es un valor currency,


otra pregunta, no se si deba ir aqui es como hago para sumar solo los decimales de 2 cantidades

ejemplo


1,7
5,3

necesito que el resultado sea 2 y 5. y solo debo aplicarlo cuando sea decimal e alli otra razon mas de la pregunta inicial

gracias por la ayuda que me puedan brindar

Hola Carlos

Podrias usar esto:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   Resultado := 1.7;
   Label1.Caption := Format('%7d',[round(Resultado)]);
   Resultado := 2;
   Label1.Caption := Format('%7d',[round(Resultado)]);
end;

Salud OS.

Buenos Dias

No es que sea entrometido pero creo que lo que
pretende carlos seria algo asi como:

Código Delphi [-]
Cantidad:=1.7;

if (cantidad - trunc(cantidad)) > 0 then
    showmessage('Decimal')
else
    showmessage('Entero');

Estoy en lo correcto?

ok gracias, con eso hago para redondear, y no hay una manera para sumar las 2 cantidades que es lo que necesito que haga..


como podria hacer eso?
por favor

Pues creo que lo más directo para saber si un número es entero o no sería usar la función Frac:

Código Delphi [-]
if Frac(N) = 0 then
  ShowMessage('es entero')
else
  ShowMessage('no es entero')

Pero por otra parte me llama la atención que sea necesario hacer tal distinción. Si pongo

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

no me marca ningún error.

// Saludos

bueno roman a mi me da y me dice que no es un valor currency, y por eso no se que hacer.....

¿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

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);

Si te he entendido bien, trata con este código, espero que sea lo que requieres.

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Decimal,X,Y: real;
begin
  X := 1.7;
  Y := 5.3;
  Decimal := X + (Round(X) - X);
  Label1.Caption := FloattoStr(Decimal);
  Decimal := Y + (Round(Y) - Y);
  Label2.Caption := FloattoStr(Decimal);
end;

Salud OS.

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 la cantidad monetaria a restar y deseo saber a que porcentaje me equivale eso

subtotal=8178881 100
descuento=613416 porcentaje=x




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,

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.

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.

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

saludos...