Calcular tiempo transcurrido

[ecfisa]

Hola dtomeysoto.

Para mostrar los datos de inicio y fin de sesión y el tiempo transcurrido entre ellos, podrías hacer:

Código Delphi [-]
(* 
  Para el ejemplo uso variables, y los eventos OnClick de dos Buttons,
  en tu caso los tiempos de incio y cierre se obtendrían de los campos 
  de la tabla donde almacenas esos datos. 
*)
uses DateUtils;

war
  InicioSesion,
  FinSesion : TDateTime;

procedure TForm1.btnInicioClick(Sender: TObject);
begin
  InicioSesion := Now;
end;

procedure TForm1.btnFinClick(Sender: TObject);
begin
  FinSesion  := Now;

  Memo1.Font.Name := 'Courier';
  with Memo1.Lines do
  begin
    Clear;
    Add('Inicio sesión: ' + DateTimeToStr(InicioSesion));
    Add('Fin sesión   : ' + DateTimeToStr(FinSesion));
    Add('');
    Add('Tiempo transcurrido');
    Add('-------------------');
    Add('Dias     : ' + IntToStr(DaysBetween(FinSesion, InicioSesion)));
    Add('Horas    : ' + IntToStr(HoursBetween(FinSesion, InicioSesion)));
    Add('Minutos  : ' + IntToStr(MinutesBetween(FinSesion, InicioSesion)));
    Add('Segundos : ' + IntToStr(SecondsBetween(FinSesion, InicioSesion)));
    Add('Miliseg. : ' + IntToStr(MilliSecondsBetween(FinSesion, InicioSesion)));
  end;
end;

Saludos