Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Calcular unidades de 6. (https://www.clubdelphi.com/foros/showthread.php?t=92620)

CRIS 12-12-2017 11:28:35

Calcular unidades de 6.
 
Hola chicos, tengo un problema que no se como solucionar, me explico.

Si tengo un numero 38, necesito mostrar el resultado de dividir 38/6 = 6 en un label y en otro label lo que sobra, osea 2, si no sobrase nada pues daría 0, con lo cual cuando yo pongo en un edit un numero, que automáticamente me de en un label la cantidad dividida entre 6 y el resto en otro label.

Espero haberme explicado bien, muchas gracias.

duilioisola 12-12-2017 11:35:24

Teniendo Valor como un entero puedes utilizar DIV y MOD.
DIV devuelve una división entera
MOD devuelve el módulo (resto) de una división.

Código Delphi [-]
var
   Valor : integer;
begin
  Valor := 38;
  ParteEntera.Text := IntToStr(Valor DIV 6);
  Resto.Text := IntToStr(Valor MOD 6);
end;

CRIS 12-12-2017 11:55:27

Muchas Gracias por la pronta respuesta duilioisola me va de lujo, gracias de nuevo y un saludo.


La franja horaria es GMT +2. Ahora son las 15:33:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi