Cita:
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!