Fechas de Pagos 15 y 30 de cada mes!

[ecfisa]

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:

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.

[TheNew]

Mil Gracias amigo.

[ecfisa]

De nada, ha sido un gusto.