What is the shortest way to fill a table with records for each day of the year

datum = 01/01/2017
datum=  02/01/2017
-
-
-
datum=  31/12/2017

of 1 year of course


Paul Waegemans wrote:

What is the shortest way to fill a table with records for each day of the year

datum = 01/01/2017
datum=  02/01/2017
-
-
-
datum=  31/12/2017

Paul


Depends what you mean by shortest. I'd just use a bit of delphi and a loop eg - totally untested

var
datum: TDate;
DaysInYear:integer;
begin
datum := StrToDate('01/01/2016');
DaysInYear := 364; {365 for leap years}

for Cntr := 0 to DaysInYear do begin
datum := datum+ Cntr;
table.Insert;
table.fieldbyname('datefield').asdatetime := datum;
end;

Roy Lambert

Paul,

<< What is the shortest way to fill a table with records for each day of the year >>

Roy is correct, you'll want to just use a loop to do so.  I can't think of any way to do so using DBISAM's SQL capabilities without getting into temporary tables, etc.

Tim Young
Elevate Software
www.elevatesoft.com