Código Delphi [-]
 
 
with TEmpleados do
begin
  TEmpleados.Filter:='Num='''+NumEmp+'''';
  TEmpleados.Last;
  TEmpleados.Prev;
  if TEmpleados.BOF do {accion para el xcaso de que no haya previo};
end;

Código SQL [-]
Select A.Fecha, (Select Top 1 B.Fecha
                       From Tabla B
                       where B.ID = A.ID and B.Fecha < A.Fecha
                       Order by B.Fecha Desc) as FechaAnterior
From Tabla A
Where A.ID = 1

Código SQL [-]
select t3.Nombre, MAX(t2.fecha) 
  from tabla1 t1, tabla2 t2, tabla3 t3
 where t1.dEvento = t2.IdEvento
   and t1.idUsuario = t3.IdUsuario
group by t3.Nombre    
order by t2.fecha

Código SQL [-]
select t3.Nombre, MAX(t2.fecha) 
  from tabla1 t1, tabla2 t2, tabla3 t3
 where t1.dEvento = t2.IdEvento
   and t1.idUsuario = t3.IdUsuario
   and t2.fecha < current_date
group by t3.Nombre    
order by t2.fecha