comparar hora

[ebeltete]

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]

Prueba con esta idea:


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]

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]

Yo lo haría así:


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

...
...


End;

[Fernando]

En la ayuda de Delphi:

IncMinute
IncSecond
IncMilliSecond
IncWeek
IncDay
IncEtc.

Saludos.