Hola TheNew.
Mil disculpas, cometí un error al copiar y pegar. Puse una versión anterior de mis pruebas.
Pero como todavía no pudiste probarla, estoy a tiempo.
Esta es la que funciona:
Código:
procedure TForm1.PonerFechas(AYear: string);
{$J+}
const
DiasMes: array[1..12] of string=('31','28','31','30','31','30',
'31','31','30','31','30','31');
Mes: array[1..12] of string=('01','02','03','04','05','06','07',
'08','09','10','11','12');
{$J-}
var
i,Anio: Integer;
BM: TBookMarkStr;
begin
Anio:= StrToInt(AYear);
if ((Anio mod 4 = 0)and(Anio mod 100 <> 0))or(Anio mod 400 = 0) then
DiasMes[2]:= '29';
with tbPrueba do
begin
Last; // al último para agregar, guardar 1er fecha
BM:= Bookmark; // guardar posicion para ingreso
for i:= 1 to 12 do
begin
Append; // agregar dia 15 del mes 'i'
FieldByName('FECHA').Value:= '15/' + Mes[i] + '/' +AYear;
Post;
Append; // agregar dia 'N' del mes 'i'
FieldByName('FECHA').Value:= DiasMes[i]+'/'+ Mes[i] + '/' +AYear;
Post;
end;
Bookmark:= BM; // en posición de ingreso
end;
end;
Perdón nuevamente y Saludos.