bueno chicos quise restar dos horas que ingreso en unos memos mediante una funcion, para encontrar la hora actual del sistema, bueno una es hora de entrada y otra hora de salida, las cuales resto hora de salida, menos hora de entrada y no me funciona, como puedo encontrar la diferencia en minutos y horas, dijare codigo aqui para que me comprendan mejor:
esta es la funcion por medio de la cual encuentro la hora actual del sistema
Código Delphi
[-]function GetLocalT: String;
var
stSystemTime : TSystemTime;
begin
Windows.GetLocalTime(stSystemTime);
Result := TimeToStr( SystemTimeToDateTime( stSystemTime ) );
end;
ahora qui es donde supuestamente tiene que aparecer la diferencia entre las horas, las cuales aun no entiendo porque no me funcionan
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
hora1,hora2,horares:string;
begin
hora1:=memo1.lines[0];
hora2:=memo2.Lines[0];
horares:=timetostr(strtotime(hora2)-strtotime(hora1));
dbedit1.Text:=horares;
end;
por favor si alguien me puede ayudar se lo agradeceria muchisimo.
de antemano gracias por su amabilidad