Restar un dia a Datetimepicker sin contar fines de semana

[ZiriusB]

Buenas amigos, tengo el siguiente problema...

Necesito que en un Datatimepicker se muestre el dia anterior al actual,

Código Delphi [-]
procedure TForm7.FormActivate(Sender: TObject);
Var
midate:TDate;
begin
midate:=now-1;
HFecha.DateTime:= midate;
end;

Hfecha es el Datetimepicker, todo bien, me coloca el dia anterior pero el problema es que solo quiero que me coloque los dias laborables (Lunes a Viernes) cuando llega el dia del lunes el Datetimepicker me muestra el dia Domingo, pero yo quiero que me muestre el dia Viernes que es el ultimo dia laborable!

¿Tienen alguna sugerencia?, Añado que el control se carga solo, no es un valor tomado de una base de datos ni algo por el estilo!

Saludos

[ecfisa]

Hola ZiriusB.

Según entiendo el problema lo vas a tener los días lunes y domingo, en el primer caso tenes que restar 3 a la fecha y en el segundo 2 ya que en ambos el último día laboral anterior es viernes, en los casos restantes restar 1:

Código Delphi [-]
...
implementation 

uses DateUtils;

function LaboralAnterior(ADate: TDate): TDate;
begin
  case DayOfTheWeek(ADate) of
    DayMonday: ADate:= ADate-3;
    DaySunday: ADate:= ADate-2;
    else
     ADate:= ADate-1;
  end;
  Result:= ADate;
end;

Ejemplo de llamada:

Código Delphi [-]
begin
  DateTimePicker1.Date:= LaboralAnterior(StrToDate('20/02/2012'));
end;

Saludos.

[ZiriusB]

La verdad solo serian los Lunes, porque cuando llegue el dia Lunes el Datetimepicker me colocaria el dia anterior osea DOMINGO, ya de ahi no tendria problema!

Probare esto, gracias amigo

[[Chris]]

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!

[ecfisa]

Empezado por Chris

Te has comido el sábado amigo :P

Cierto, debe ser por que odio madrugar el sabado...

Saludos.

[[Delphius]]

Chris, ecfisa sus códigos se pueden mejorar.
Dentro del case simplemente establezco los días a restar, y directamente hago la operación afuera. Después de todo es una expresión común a todos los casos y puede estar fuera del case. Es como sacar factor común en una expresión matemática

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

A mi parecer es un código más legible.

Saludos,

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

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