uses DateUtils; var TiempoInicio, TiempoFin : TDateTime; procedure TForm1.FormShow(Sender: TObject); begin TiempoInicio := Now; end; procedure TForm1.Button1Click(Sender: TObject); begin TiempoFin := Now; Label1.Caption := 'Tiempo de Inicio : ' + DateTimeToStr(TiempoInicio); Label2.Caption := 'Tiempo Final : ' + DateTimeToStr(TiempoFin); Label3.Caption := 'Horas transcurridas : ' + IntToStr(HoursBetween(TiempoFin, TiempoInicio)); end;
#1
Escrito 04 febrero 2022 - 02:59
#2
Escrito 06 febrero 2022 - 04:17
Mi pregunta es la siguiente, es posible guardar esas horas transcurridas en el registro de Windows o en un archivo ini para luego cargar ese tiempo guardado y empezar a contar a partir de ese tiempo que se guardo previamente?
Si.
Lo que quiero conseguir con esto es guardar el tiempo transcurrido en el día por que si el usuario cierra la aplicación tendría que volver a contar desde el inicio. Quiero hacer este proceso para borrar unos registros de una tabla cada 5 horas, pero si el usuario cierra la aplicación antes de cumplir esas 5 horas, el conteo del tiempo se reiniciaría. El conteo del tiempo solo se debe de reiniciar una vez cumplidas las 5 horas NO si el usuario cierra la aplicación.
Pueden darme una idea de como puedo llevar a cabo esta operación????
Si lo que precisas son 5 horas exactas, guardando el tiempo para recuperarlo al volver a abrir la aplicación no te sirve porque pueden pasar más de 5 horas desde que se cerró. Es este caso necesitas una aplicación de apoyo que no se cierre nunca en una máquina que no se apague nunca.
Saludos.
Etiquetado también con una o más de estas palabras: Programacion
PROGRAMACIÓN →
General →
bot de ajedrezComenzado por shev , 25 may 2021 ingenieria inversa, programacion |
|
|
||
PROGRAMACIÓN →
Otros Lenguajes (.NET, Web, C, C++, Java, ASM) →
PHP, Ajax, Javascript y HTML →
como guardar los datos de las filas que agrego manualmente en una tablaComenzado por josichi , 11 ago 2016 programacion, javascript, php |
|
|
||
PROGRAMACIÓN →
Delphi →
aplicación en IOSComenzado por jennymgarces , 09 jun 2015 ios, programacion, delphi, xe8 y ás... |
|
|