Ver Mensaje Individual
  #2  
Antiguo 24-03-2013
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
camiz,

Cita:
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.

Última edición por nlsgarcia fecha: 24-03-2013 a las 05:53:27.
Responder Con Cita