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
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;
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;
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;