Restar un dia a Datetimepicker sin contar fines de semana

[[Chris]]

Empezado por ecfisa

Según entiendo el problema lo vas a tener los días lunes y domingo

Te has comido el sábado amigo :P

Esta es mi alternativa:

Código Delphi [-]
function LaboralAnterior(ADate: TDate): TDate;
begin
    Result := IncDay(ADate, -1);
    
    case DayOfTheWeek(Result) of
        DaySunday  : Result := IncDay(Result, -2);
        DaySaturday: Result := IncDay(Result, -1);
    end;
end;

Saludos!