[[Delphius]]

Empezado por roman

¡Ah! pero, cómo gastan líneas

Código Delphi [-]
function LaboralAnterior(ADate: TDate): TDate;
const
  Dias: array[1..7] of Integer = (3, 1, 1, 1, 1, 1, 2);

begin
  Result := ADate - Dias[DayOfTheWeek(ADate)];
end;

Lo siento pero el profe ya no acepta trabajos después de clase
Que ganas de destrozar la autoestima de los otros, ¡porqué no se me ocurrió antes!

Saludos,