Operaciones matematicas con tiempo

[CoCaInE]

Empezado por CoCaInE

Buenas, estoy intentando hacer saber a el usuario el tiempo restante que le queda para cerrar un formulario...estoy trabajando en un sistema de loteria y me gustaria que tiempo restante le queda para cerrar el sorteo intente esto.... pero no me sale

//Exacta es una variable que almacena el tiempo tomado de un query Edit5.Text:=timetostr(Exacta-1));

estaria muy agradecido si me echan una manito..

Pues si estoy utilizando ttimer en su respectivo evento , lo que no me sale es que al tiempo que le queda restante para cerrar el sistema, ejemplo tengo almacenada en una tabla la hora especifica del cierre del sistema.... y restando la hora actual de la aplicacion me diga que tiempo me queda especificamente para que el sistema se cierre..claro ambas horas la tomo del servidor de base de datos Mysql

[[Delphius]]

Disculpa CoCaInE,
Pero no termino de comprenderte

¿Lo que tu deseas hacer es esto?

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Now = HoraCierre
     then close;
end;

En HoraCierre se tiene almacenado la hora en que debe finalizarse el trabajo. Ya sea que provenga el valor de un archivo, de una tabla... de lo que sea... es independiente de donde venga.

Como opción, para evitar que el usuario cierre el aplicativo haría:

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose = False; //O también Now = HoraCierre
end;

Como he dicho, no se si te he entendido... dime si me he equivocado.
Saludos,

[jhonny]

Bueno, pero si lo que quieres es visualizarlo en alguna parte, puedes hacer uso de la siguiente función:

Código Delphi [-]
function TiempoRestante(HoraHasta :TTime):String;
begin
  Result := FormatDateTime('HH:MM:SSSS', Time - HoraHasta);
end;

Para probarla coloque un TDateTimePicker con su prpiedad Kind en dtkTime, un TEdit y un TTimer, al OnTimer le puse esto:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit1.Text  :=  TiempoRestante(DateTimePicker1.Time);
end;

Espero te sirva de algo .

[CoCaInE]

Gracias a todos me han servido de mucha ayuda...

[CoCaInE]

Oh Oh tengo problemas al tratar de tomarla convertida del servidor por ejemplo utilizo la conversion de la siguiente manera

Código SQL [-]
Select time_format((Select now()),'%r')

no me deja salir porque interpreta el %r como si no perteneciera a la consulta.... alguna idea... es que necesito mostrarla en el formato de 12 horas....

[CoCaInE]

Empezado por CoCaInE

Oh Oh tengo problemas al tratar de tomarla convertida del servidor por ejemplo utilizo la conversion de la siguiente manera

Código SQL [-]Select time_format((Select now()),'%r')


no me deja salir porque interpreta el %r como si no perteneciera a la consulta.... alguna idea... es que necesito mostrarla en el formato de 12 horas....

ya lo eh resuelto sustituyendo las tilde por " gracias de todas maneras