Dias entre TimePickers

[jocey]

Hola amigos, les traigo una nueva pregunta hoy, yo tengo dos Timepickers que los utilizo para calcular la cantidad de dias entre ellos dos, ahora eso esta muy bien, pero quisiera que no se contaran los fines de semana..... como puedo hacer esto, me explico bien?


Saludos a todos
Jocey

[ixMike]

Hola.

Bueno, así, de cabeza, podrías hacer lo siguiente:

-El tipo DateTime no es más que un float, la unidad es un día, y los decimales, fracciones de días. Es decir, Dias:=Fecha2-Fecha1; debería funcionar.
-Pero claro, eso no resta los fines de semana, ¿cómo quitarlos? Ajusta primero las dos fechas, para que coincidan las dos con el mismo día de la semana que NO sea sábado o domingo. Es decir, después de hacer la resta, haz que los dos días se conviertan en lunes, o martes, o miércoles... utiliza la función DayOfWeek o DayOfTheWeek.
-Una vez hecho ese ajuste, Dias:=Dias-(Fecha2-Fecha1)*2/7. Esto es, le resta 2/7 partes de días, o lo que es lo mismo, 2 días de cada semana (los findes). Ahora Fecha1 y Fecha2 son las fechas ya ajustadas.


Espero que te sirva.


Salu2

[jocey]

IxMike muchas gracias el ejemplo que me distes esta perfecto, una vez mas gracias... sin ustedes todo seria muy dificil, a veces en cosas sencillas nos trabamos y estan ustedes como dioses....

Gracias de todos corazon

[ixMike]

Empezado por jocey

...y estan ustedes como dioses....

¿Sólo como dioses? ¡Somos dioses! y sufrirás la ira divina (o la gracia, según nos trates).

Empezado por jocey

Gracias de todos corazon

De nada, mortal, de nada


Salu2.

[[egostar]]

Empezado por ixMike

......Ajusta primero las dos fechas, para que coincidan las dos con el mismo día de la semana que NO sea sábado o domingo. Es decir, después de hacer la resta, haz que los dos días se conviertan en lunes, o martes, o miércoles... utiliza la función DayOfWeek o DayOfTheWeek.
-Una vez hecho ese ajuste, Dias:=Dias-(Fecha2-Fecha1)*2/7. Esto es, le resta 2/7 partes de días, o lo que es lo mismo, 2 días de cada semana (los findes). Ahora Fecha1 y Fecha2 son las fechas ya ajustadas.

Solo agregando, si no puedes o no quieres ajustar las fechas, puedes hacer esto.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Fecha : TDateTime;
  Dias : integer;
begin
  dias := 0;
  Fecha := DateTimePicker1.Date;
  REPEAT
     if DayofWeek(Fecha) in [2..6] then begin //en mi caso 2 a 6 es Lunes a Viernes, pero podria ser diferente en tu caso
        Memo1.Lines.Add(DatetoStr(Fecha));
        Inc(Dias);
     end;
     Fecha := Fecha+1;
  UNTIL Fecha > DateTimePicker2.Date;
  Memo1.Lines.Add('Total dias : '+FloattoStr(Dias));
end;

Salud OS

[Garry]

Puedes simplificar algo, pues si haces...

Empezado por ixMike

... Dias:=Fecha2-Fecha1...

... y...

... Dias:=Dias-(Fecha2-Fecha1)*2/7...

Queda más sencillo sacando factor común

Código Delphi [-]
Dias:=Dias*5/7

¿no?

Saludos

[ixMike]

Empezado por Garry

Puedes simplificar algo, pues si haces...
... y...Queda más sencillo sacando factor común Código Delphi [-]Dias:=Dias*5/7

¿no?

Saludos

jeje

sí, efectivamente, además de que se optimiza el código

¡qué raro que no se me ocurriera!


Salu2.