¡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;
Por cierto:
Cita:
|
Empezado por Chris
Te has comido el sábado amigo :P
|
No se lo ha comido, el sábado no representa ningún problema ya que el día inmediato anterior es laboral.
// Saludos