Ayuda para elaborar un algoritmo para una tabla de calculo

[[gatosoft]]

Otra alternativa, si solo quieres saber si es hembra o varon (sin generar la tabla), sería formulando:

Código Delphi [-]
 Diferencia := (Trunc((AñoObjetivo-AñoPadre)/5) * 5 + AñoPadre) - (Trunc((AñoObjetivo-AñoMadre)/5) * 5 + AñoMadre);

Si la diferencia es positiva es Varon, si es negativa, es hembra, si es cero, significa que ambos "estrenan gónadas ese año", asi que tu decides... finalmente pienso que estamos hablando de probabilidades, no creo que sea algo exacto...

Un saludo,

--agregado---

obviamente estamos habalndo de valores lógicos, por ejemplo, ambos padres deben haber nacido para la fecha objetivo, la madre mas joven tenia como 10 años, y la mas vieja tal vez 60... que se yo.

[JoAnCa]

Chris
Analizando bien tu coditgo, solo me sirve para dadas las fechas me diga si es hembra o varon
y lo que necesito es una tabla, para buscar el rango de fechas para cada sexo

Al final, encontre una solución, tal vez este codigo pueda ser optimizado un poco, pero así funciona ya

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
 var
   i,j     :Integer;
   Ap, Am  :Word;

begin
  //***** Inicialzar las variables *****
  Padre[1]:=StrToDate(FechPadre.Text); Madre[1]:=StrToDate(FechMadre.Text);
  Ap:=YearOf(Padre[1]);
  Am:=YearOf(Madre[1]);
  for i:=2 to 50 do
   begin
     Ap:=Ap + 5;
     Am:=Am + 4;
     Padre[i]:=RecodeYear(Padre[1], Ap);
     Madre[i]:=RecodeYear(Madre[1], Am);
   end;

  //***** Definir por cual progenitor empieza *****
  if YearOf(Padre[1]) <= YearOf(Madre[1]) then
    begin
      Desde:=Padre[1]; Hasta:=Madre[1];
      Prim:=Padre;     Seg:=Madre;
      SexoP:='Varón';  SexoS:='Hembra';
    end
  else
    begin
      Desde:=Madre[1]; Hasta:=Padre[1];
      Prim:=Madre;     Seg:=Padre;
      SexoP:='Hembra'; SexoS:='Varón';
    end;

  //***** Crear la tabla de calculo *****
  for i:=1 to 50 do
   begin
    if Odd(i) then
     begin
       for j:=1 to 50 do
        begin
          if (Desde < Seg[j]) then
            begin
              Hasta:=Seg[j];
              Sex:=SexoP;
              Break;
            end;
        end;
     end
    else
     begin
       for j:=1 to 50 do
        begin
          if Desde < Prim[j]    then
            begin
              Hasta:=Prim[j];
              Sex:=SexoS;
              Break;
            end;
        end;
     end;
     Listado.Cells[0,i]:=DateToStr(Desde);
     Listado.Cells[1,i]:=DateToStr(Hasta);
     Listado.Cells[2,i]:=Sex;
     Desde:=Hasta;
   end;
end;