como saber si una cantidad es entera o decimal

[CarlosHernandez]

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

[[egostar]]

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.

[sinalocarlos]

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?

[CarlosHernandez]

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

 1,7
 5,3
____

es decir sumar los decimales de la suma

seria algo como sumar

1,7
0,3+
___
 2

y por supuesto el 5,3 queda 5, porque le resto el 0,3

5,3
0,3-
___
 5

como podria hacer eso?
por favor

[roman]

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

[CarlosHernandez]

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

[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

[[egostar]]

Empezado por CarlosHernandez

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

 1,7
 5,3
____

es decir sumar los decimales de la suma

seria algo como sumar

1,7
0,3+
___
 2

y por supuesto el 5,3 queda 5, porque le resto el 0,3

5,3
0,3-
___
 5

como podria hacer eso?
por favor

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.