![]() |
|
|
Регистрация | << Правила форума >> | 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 Я за здоровый экстрим! Спасибо за "спасибо") |