De un memo a un TDataTime

[jorgegetafe]

Vale ya lo he solucionado, no se porque, pero restando 26 horas, a la que introduce el usuario ya muestra la diferencia correctamente.

Código Delphi [-]
PROCEDURE TForm1.RestanteTimer(Sender: TObject);                                // Muestra la hora restante
VAR
  a: ttime;
  b: ttime;
  c: ttime;
BEGIN
  a:= now;
  b:= EncodeTime( 28-(StrtoInt(hora.Text)), (StrtoInt(minuto.Text)), (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)));
  c:= b-a;
  label3.caption:= timetostr (c);
  //Label3.caption:= TimeTostr(EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)), (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)) ));
END;

De todas formas, no se porque se me va incrementando en vez de disminuyendo el tiempo que queda :-( ¿alguien sabe porque?

[jorgegetafe]

Me estoy volviendo loco con esto y estoy convencido de que no es tan dificil, a ver si por favor, os lo suplico ya, me podeis ayudar.


Tengo tres edit, en el que el usuario introduce en el primero una hora, en el segundo los minutos y el tercero los segundos, lo que quiero es que cuando la hora del sistema sea igual a la introducida pues que se hagan una serie de cosas (eso es lo de menos), pero soy incapaz de hacer esa comparación correctamente:

Si utilizo variables de tipo time, la diferencia entre la hora del sistema y la del usuario no son reales (10:30-10:00= 23h)


¿Como lo puedo hacer? Muchas gracias.

[jhonny]

Bueno, prueba con lo siguiente para que te hagas a la idea de como hacer lo que quieres:

Código Delphi [-]
var
  HUser :TDateTime;
begin
  HUser := EncodeTime(StrToInt(Edit1.Text), StrToInt(Edit2.Text), StrToInt(Edit3.Text), 0);
  ShowMessage(FormatDateTime('HH:MM:SS', HUser - Time));
end;

[[Caral]]

Hola
No se si sera esto lo que necesitas, pero hice un ejemplo sencillo
Saludos

[jorgegetafe]

Muchas gracias a los dos, voy a probarlo ya os cuento, pero gracias de antemano ;-)

[jorgegetafe]

Ya lo he probado, de nuevo muchas gracias a los dos por vuestro tiempo.

Como ya habreis intuido estoy haciendo un programa para que cuando la hora del usuario coincida con el sistema se apague el ordenador, o se apague la pantalla... cosas de esas...

Aplicando vuestro código, lo pongo en un timer de esta forma:

Código Delphi [-]
procedure TForm1.AccionTimer(Sender: TObject);
Var
HUser: TDateTime;
BEGIN
HUser := EncodeTime(StrToInt(hora.Text), StrToInt(minuto.Text), StrToInt(segundo.Text), 0);
IF (HUser = time) THEN
showmessage ('Es la misma hora');
END;

Resulta que aunque ponga la misma hora que el sistema, la condicion: "IF (HUser = time) THEN" nunca se me cumple :-S y claro nunca se realiza lo que yo quiero que se haga, en este caso por probar un showmessage. No me entra en la cabeza que puede estar mal, ¿sabeis vosotros que falla? Por cierto el timer esta on jeje.

[maco2007]

.............................................