Restar un dia a Datetimepicker sin contar fines de semana

[[egostar]]

Código Delphi [-]
case  DayOfTheWeek(ADate) of
DayMonday: Decremento := -3;
DaySunday: Decremento := -2;
..
end; // fin case
result := IncDay(Date, Decremento);

Saludos

[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;

Por cierto:

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

[ZiriusB]

Saludos ROMAN gracias por responder

me suelta este error el ejemplo que tu me diste

[DCC Error] PaseHoras.pas(154): E2066 Missing operator or semicolon

Código Delphi [-]
//begin
//midate:=now-1;
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;

Me lo señala en esta linea

Código Delphi [-]
  Result:= ADate - Dias[DayOfTheWeek(ADate)];

pero no veo que falte algun parentesis o corchete!

[roman]

Yo creo que es un problema que cargas desde alguna línea anterior. A mi me compila sin problemas.

// Saludos

[ZiriusB]

Código Delphi [-]
procedure TForm7.FormCreate(Sender: TObject);
//begin
//midate:=now-1;
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;

esta colocado en el Formcreate... no hay lineas antes de esas, de todas formas revisare a fondo!

[roman]

¡Ahí está el problema. No lo coloques dentro del FormCreate.

// Saludos

[ZiriusB]

En el Formactivate tambien me da el mismo error, la cuestion es que al abrir al formulario debe mostrarme de una vez el dia anterior...