De un memo a un TDataTime

[jhonny]

Tambien puedes hacer:

Código Delphi [-]
procedure Hora_restante; //Muestra la hora restante
var
  b: ttime;
begin
  b:= EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)),   (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)));
  label3.caption:= IntToStr(HoursBetween(Now, b));
end;

[jorgegetafe]

No estoy seguro de que esa funcion me sirva porque tan solo calcula la diferencia de horas, es decir, de 10:00 a 10:59 daria como resultado cero, y quiero que salgan horas, minutos y segundos...

gracias.

[[eduarcol]]

Empezado por jorgegetafe

No estoy seguro de que esa funcion me sirva porque tan solo calcula la diferencia de horas, es decir, de 10:00 a 10:59 daria como resultado cero, y quiero que salgan horas, minutos y segundos...

gracias.

necesita la use, DateUtils, a modo de dato en Delphi si te colocas sobre la palabra y le das al boton F1 en la ayuda te sale la uses que necesitas

[jorgegetafe]

Muy util lo de f1 :-) de todas formas no me sirve la función que me ha dado, ya que como he dicho antes solo calcula la diferencia entre horas :-(

[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;