![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Добрый вечер! Нужна помощь.
На форме есть DataTimePicker, в нем нужно выбрать месяц и чтобы все даты этого месяца по нажатию кнопки добавлялись в DBGrid в столбец "Дата". На форме, конечно, присутствует ADOConnection, ADOQuary, DataSource. Все это соединено между собой и все работает. Как это реализовать. |
|
#3
|
||||
|
||||
|
в uses сунь DateUtils
Код:
...
our_date:=datetimepicker1.date;
my_date:=strtodate('01.' + inttostr(monthof(our_date)) + '.' + inttostr(yearof(our_date))); // первый день месяца
for i:=1 to <количество дней в месяце> do
begin
adoQuery1.close;
ADOQuery1.SQL.text:='INSERT INTO table (date) VALUES ("' +
formatdatetime('yyyymmdd', my_Date) + '")';
adoQuery1.ExecSQL;
my_date:=incday(my_date,1);
end;
...использую formatdatetime, т.к. америкосовский тип даты в мускл количество дней в месяце надеюсь сам найдешь через http://platonov-andrei.narod.ru/Delphi/DateTimeUtil.htm |