For entre Datas

Delphi

30/10/2006

Amigos, preciso fazer algo do tipo

var
  d, DataInicial, DataFinal  : TDate;
...
for d := DataInicial to DataFinal do begin
  DataSet.Insert; 
  DataSet.FieldByName(´DATA´).AsDate := d;
  DataSet.Post;
end;


para que todos os dias, entre uma data inicial e a final, sejam gravados no banco....

alguma dica?

abraços


Eniorm

Eniorm

Curtidas 0

Respostas

Steve_narancic

Steve_narancic

30/10/2006

iDias:= DataFianal - DataInicial;
for i := 0 to iDias do
begin
  DataSet.Insert;
  DataSet.FieldByName(´DATA´).AsDate := DataInicial + i;
  DataSet.Post;
end;



GOSTEI 0
POSTAR