Como comparo 2 datos TTime?
 

Amigos, busqué en el foro y no encontré nada, por favor diganme si busqué mal...

Como comparo 2 datos TTime?

Por ejemplo:

Tendo 2 variables TTimes y las quiero comparar preguntando si una es mayor a otra y no me lo hace, hago algo mal?

Var
Hora1, Hora2:TTime;

begin
If Hora1 >= Hora2 Then
Edit.Text:= 'Hora1 Es mayor que Hora2!!!';

Gracias por su tiempo...

Saludos.

Hola zeta2.
Lo único que veo mál en tu código es la comparación >=, ya que compara por mayor o igual y no por mayor. Pero por lo demás, tu código es correcto.

Para que salgas de dudas copia y pegá este código en el evento OnClick de un TButton:

Código Delphi [-]
Var
  Hora1, Hora2:TTime;
begin
  Hora1 := StrToTime('10:10:12');
  Hora2 := StrToTime('10:10:11');
  If Hora1 >= Hora2 Then
    Edit1.Text := 'Hora1 Es mayor que Hora2!!!';
end;

Verás que el mensaje aparece en el TEdit.

Un saludo.

Hola
No veo que lo hagas mal, lo que veo es que no les das valor a las variables.

Código Delphi [-]
Var
 Hora1, Hora2:TTime;
 begin
 Hora1:= 11;
 Hora2:= 10;
 If Hora1 >= Hora2 Then
 Edit1.Text:= 'Hora1 Es mayor que Hora2!!!';

Saludos

Perdón muchachos:

El valor de Hora1 y 2 es:

Hora1:= Now;
Hora2:= Now;

Toma la Hora del sistema...

Gracias por responder.