Y bueno, si les parecen muchas líneas, también podemos hacer así la función:
Código Delphi
[-]
function LaboralAnterior(ADate: TDate): TDate;
begin
Result := IncDay(ADate, -1-2*Integer(DayOfTheWeek(ADate) = 1)-Integer(DayOfTheWeek(ADate) = 7));
end;
// Saludos