Simultaneidad de fechas

[[Lepe]]

Yo tengo una idea muy simple.

Usaremos un array, para que se entienda :

Código Delphi [-]
var Dias : array [fechaIni... fechaFin] of boolean;
begin

// Si trabajó el día 1 de enero de 2007
Dias[01/01/2007] := true

// Si no trabajó
Dias[01/01/2007] := false

Claro, esto no puede implementarse así de fácil, pero esa es la idea.

El punto fuerte está claro, no tendrás problemas para saber los días que ha trabajado, recorres todo el array y si tiene un true lo computas, si tiene un false no lo computas.

Añadir el periodo de fechas trabajado es muy simple... un bucle entre las dos fechas poniendo a true el día trabajado.

La desventaja es clara, si vamos a computar la vida laboral de un trabajador, serían 35 años por 365 días.... un array de 12.775 posiciones....tampoco sería muy excesivo, ya que un array son punteros y lo que guarda es un boolean.

No debería tardar mucho.

¿Como se implementa?
Vamos a usar un array dinámico

Código Delphi [-]
var Fini, Ffin :TDate;
     totDias, cont:integer;
     Dias : array of boolean;

// inicializar datos

Fini := 01/01/2007 ; // fecha inicial para computar;
FFin := Fini + (35*365); //Fecha fin dentro de 35 años;

totdias := trunc(Ffin-Fini); // restando fechas nos dan los días que han transcurrido entre ambas
SetLength(dias, totdias-1); // -1 porque empieza en cero el array
for cont:= low(dias) to high(dias) do
  dias[cont] := false; // inicializamos el array
end;


procedure anadir periodo(F1, F2:TDatetime);
  var indice, trabajados :integer;
begin
  trabajados := trunc (F2 -F1);
  indice := trunc(f1-Fini); 
// como el indice del array empieza en cero, restamos a todo Fini.
// Fini será la variable declarada anteriormente, será una global.

for cont := indice to trabajados do
 dias[cont-1] := true; // -1 porque empieza en cero el array, ¿recuerdas? 
end;

Como ves es un pseudocódigo, pero creo que puede servir.

Saludos