Restar un dia a Datetimepicker sin contar fines de semana

[roman]

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

[[Delphius]]

Empezado por roman

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

¿-1-2?

Lo tuyo ya es de presumido Te voy a acusar con el profe porque nos estás haciendo quedar mal

Yo me quedo con el case, definir el decremento y calcular.

Saludos,

[ZiriusB]

Gracias a todos, resulta que antes de pedir ayuda aca habia declarado una Variable "DayOfTheWeek" para un invento, la habia dejado ahi entonces cuando vine aqui y me dieron ese codigo el tomaba DayOfTheWeek como variable...la quite y listo!

Muchas gracias, probare el lunes para ver si funciona...