Fechas de Pagos 15 y 30 de cada mes!

[TheNew]

Gracias amigo. pero aun no se como ejecutar ese procedimiento en un TButton, como te dige al inicio soy novato de delphi7. Como hago para ejecutar este procedimiento al hacer click en un Tbutton.

[ecfisa]

Hola, disculpame, ya te pongo dos formas de llamarlo.

procedure TForm1.Button1Click(Sender: TObject);
begin
  PonerFechas('2000');
end;

o también:

procedure TForm1.Button1Click(Sender: TObject);
begin
  PonerFechas(Edit1.Text); // suponiendo que allí tengas el año
end;

Saludos.

[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.