1 Topic by agatlogic101 (edited by agatlogic101 2020-02-19 10:42:01)

  • Registered: 2018-11-13
  • Posts: 299

Topic: Создать записи

Как создать записи исходя из диапазона дат?
Допустим (data1)18.02.2020 и (data2)27.02.2020
нужно создать в таблице 10 записей, так как 27(data2)-18(data1)+1(начальный день включительно)=10
name DAY1   date 18.02.2020
name DAY2   date 19.02.2020
name DAY3   date 20.02.2020
name DAY4   date 21.02.2020
name DAY5   date 22.02.2020
name DAY6   date 23.02.2020
name DAY7   date 24.02.2020
name DAY8   date 25.02.2020
name DAY9   date 26.02.2020
name DAY10 date 27.02.2020
как это сделать?
я так понимаю нужен цикл. Но я с ними не разу не сталкивался

  • Registered: 2018-11-13
  • Posts: 299

Re: Создать записи

Разобрался...
kb := 0;
while cProm <> cEnd do
     begin
     v := FormatDateTime('yyyymmdd',задача_люди.DatePicker1.DateTime +kb);
     cProm := strtoint(v);
     kb:=kb+1;
     end;
end;