incrementar meses a partir de una fecha
 

hola amigos nuevamente por aqui buscando ayuda...
tengo un problemita relacionado con fechas por solucionar.. aqui el problema...

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

23/03/2013 ---- incrementar a partir de esta fecha por 6-------- y el resultado quiero que se vea asi

23/04/2013
23/05/2013
23/06/2013
23/07/2013
23/08/2013
23/09/2013

y todo esto quiero mostrarlo en un TStringGrid

estoy intentando con este codigo pero no me sale....

Código Delphi [-]
var f, filas :integer;
begin
Colocamos total de filas}
   f :=  6;
  StringGrid1.RowCount := f + 1;
  for filas :=1 to f do
  mostrador.cells[0,filas] := floattostr(roundto(filas, -2));
Mostramos fechas}
 for filas := 1 to f do
 StringGrid1.cells[1,filas] := DateTostr(roundto(IncMonth(23/03/2013, 1), -2);
end;

aver si alguien tiene la solucion.. Gracias...

camiz,

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.

nlsgarcia,

tu código esta esta genial funciona ala perfeccion como yo quería, tube que adaptarlo a mi proyecto y problema resuelto...
gracias amigo y sigue asi dando tus aportes a los novatos como yo...