incrementar meses a partir de una fecha

[[nlsgarcia]]

camiz,

Empezado por camiz

...lo que quiero es incrementar fechas a partir de una...

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   Row, Col : Integer;
   Date : TDateTime;
   StrDate : string;

begin

   StringGrid1.FixedRows := 1;
   StringGrid1.FixedCols := 1;
   StringGrid1.RowCount := 10;
   StringGrid1.ColCount := 10;

   for Row := 1 to StringGrid1.RowCount do
      StringGrid1.Rows[Row].Clear;

   StrDate := '23/03/2013';
   DateSeparator := '/';
   ShortDateFormat := 'dd/mm/yyyy';

   for Row := 1 to 6 do
   begin
      Date := StrToDate(StrDate);
      Date := IncMonth(Date, Row);
      StringGrid1.Cells[1,Row] := DateToStr(Date);
   end;

end;

El código anterior genera 6 fechas a partir de una fecha inicial incrementando el mes en un control TStringGrid.

Espero sea útil

Nelson.