Restar un dia a Datetimepicker sin contar fines de semana

[roman]

A ver, se trata de una función suelta, no es para que la pongas dentro de ningún evento. Tal función la usarías en el momento que desees:

Código Delphi [-]
implementation

uses Date Utils;

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;

procedure TForm7.FormCreate(Sender: TObject);
begin
  ...
end;

procedure TForm7.FormActivate(Sender: TObject);
begin
  HFecha.DateTime := LaboralAnterior(Now);
end;

// Saludos

[ZiriusB]

Me da exactamente el mismo error...lo estoy colocando justo como me dices pero me salta el error que comente arriba...

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

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

justo en esa linea, pense que me faltaba algun parentesis o cerrar con ; pero lo copie tal cual como lo pasaste para ver! es decir esa linea pues

[ecfisa]

Hola.

A mi no me dá error ni siquiera en el evento OnCreate...

Código Delphi [-]
implementation

uses DateUtils;

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;

procedure TForm1.FormCreate(Sender: TObject);
begin
   DateTimePicker1.Date:=  LaboralAnterior(Now);
end;

Este código funciona correctamente.

Por otro lado el error : Missing operator or semicolon, se produce por que falta un operador entre dos expresiones o por que falta un punto y coma entre dos sentencias.

Saludos.

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

[kapcomx]

interesante funcion esa.

oye ZiriusB y si la ejecutas desde el formulario donde mandas a llamar el formulario que contiene ese datetimepicker.

algo asi como

Código Delphi [-]
 
formx.HFecha.DateTime := LaboralAnterior(Now);
formx.show;

saludos...

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