Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Comparando momentos (https://www.clubdelphi.com/foros/showthread.php?t=49942)

jorgegetafe 04-11-2007 14:38:32

Comparando momentos
 
Quiero que cuando falten 5 minutos entre la hora actual y la del label1.caption mostrar un mensaje, pero me da un error de tipos incompatibles en "IF minutos = 5 THEN".



Código Delphi [-]
VAR
minutos: int64;
momento1, momento2: Tdatetime;
begin
momento1 := strtodatetime(label1.caption);
momento2 := now;
minutos := minutesBetween(momento1,momento2);
IF minutos = 5 THEN
showmessage ('Quedan 5 minutos');
end;

Caral 04-11-2007 15:23:11

Hola
Bueno en esto no soy muy bueno pero tal vez te de alguna idea esto:
Código Delphi [-]
Var
minutos, hora: TTime;
momento1, momento2: Tdatetime;
begin
momento1 := StrToTime(Edit1.Text);
momento2 := now;
Label2.caption:= TimeToStr(momento2);
minutos:= StrToTime('00:05:00');
hora:= momento1 + minutos;
Edit2.Text:= FormatDateTime('HH:MM:SS', hora);
IF hora = momento1 THEN
showmessage ('Quedan 5 minutos');
end;
Saludos


La franja horaria es GMT +2. Ahora son las 12:47:13.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi