Foros Club Delphi - comparar hora

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - comparar hora (https://www.clubdelphi.com/foros/showthread.php?t=29685)

ebeltete

29-01-2006 22:28:36

comparar hora

Hola amigos del foro, tengo una duda acerca de como comparo horas, tengo este texto en un edit : '12:30' , ahora quiero mediante un ttimer avisar al usuario desde las 12:30 horas hasta las 13:00 horas, o sea: durante los 30 minutos siguientes a lo que marca el edit, gracias.

marcoszorrilla

29-01-2006 22:48:31

Prueba con esta idea:

Código Delphi [-]procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if FormatDateTime('hh:mm',Time) = Edit1.Text then
 label1.Caption:='Atención es la hora';
end;

Un Saludo.

ebeltete

29-01-2006 23:04:15

De esa manera esta bien pero solo me avisa cuando es igual la hora actual con el valor que tengo en el edit, yo busco que me avise durante los 30 minutos siguientes al valor del edit, seria algo asi:

Edit1.Text + 30 minutos >=FormatDateTime('hh:mm',Time) >= Edit1.Text

Pero no se como sumo le sumo 30 minutos a la hora actual, gracias.

mazinger

30-01-2006 00:43:39

Yo lo haría así:

Código:

 

If (StrToTime(Edit1.Text) >= HoraInicio) AND (StrToTime(Edit1.Text) <= HoraFinal) Then Begin

 

...

...

 

 

End;

Fernando

31-01-2006 16:02:18

En la ayuda de Delphi:

IncMinute
IncSecond
IncMilliSecond
IncWeek
IncDay
IncEtc.

Saludos.

La franja horaria es GMT +2. Ahora son las 19:50:17.