delphi 7.0
-
Necesitaria si alguien me puede dar una mano uegente, mañana tengo que presentar un TP en la facultad y me estoy volviendo loco, es un programa sencillo pero no se que es lo que pasa, para colmo de este ejercicio me dependen 4 mas, se los dejo aca, si alguien me puede ayudar les agradezco.
El programa consiste en volcar una cantidad de segundos y de aho el prograa lo muestra en dia horas minutos y segundos, pero cuando lo compilo me aparece solo la cantidad de segundos.
GRACIAS GRACIAS Y MAS GRACIAS PARA EL QUE ME PUEDA AYUDAR
program Segundos;
uses Dialogs, SysUtils;
var Segund, Minut, Horas, Dias, Cod: integer;
StrSegund, StrMinut, StrHoras, StrDias: string;
begin
StrSegund := inputBox ('Ingreso de datos', 'Ingrese la cantidad de segundos', '');
val (StrSegund, Segund, Cod);
Minut := Segund div 60;
Segund := Segund mod 60;
Horas := Minut div 60;
Minut := Minut mod 60;
Dias := Horas div 24;
Horas := Horas Mod 24;
showMessage ('La cantidad de segundos es equivalente a: ' + StrDias + ' Dias ' + strHoras + ' Horas ' + Strminut + ' Minutos ' + StrSegund + ' Segundos')
end.
