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