Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

26th
Дек

Разбить период времени по месяцам

Posted by micher under Delphi

Подскажите пожалуйста, как разбить выбранный период по месяцам?
К примеру выбран период с 01.01.2011 по 20.03.2011, необходимо сделать так чтобы программа сначала выполнила определенные манипуляции с 01.01.2011 по 31.01.2011, затем с 01.02.2011 по 28(29).02.2011, а затем с 01.03.2011 по 20.03.2011.
Подобный отчет есть в 1С («Динамика продаж» называется). Мне необходимо сделать что-то подобное.

fate

на форму кидай 2 TDateTimePicker, в одном выбираешь одну дату в другом вторую, жмешь кнопку в label выводится результат



procedure TForm1.Button1Click(Sender: TObject);

var Year,Month,Day:Word;

    Year2,Month2,Day2:Word;

begin

DecodeDate(DateTimePicker2.Date, Year2, Month2, Day2);

DecodeDate(DateTimePicker1.Date, Year, Month, Day);

label1.Caption:='';

label1.Caption:=DateToStr(DateTimePicker1.Date)+'-'+DateToStr(DateTimePicker1.Date+(DaysInAMonth(Year,Month)-Day))+#13#10;

DateTimePicker1.Date:=DateTimePicker1.Date+(DaysInAMonth(Year,Month)-Day)+1;

while DateTimePicker1.Date<DateTimePicker2.Date do begin

  DecodeDate(DateTimePicker1.Date, Year, Month, Day);

  label1.Caption:=label1.Caption+DateToStr(DateTimePicker1.Date)+'-'+DateToStr(DateTimePicker1.Date+(DaysInAMonth(Year,Month)-Day))+#13#10;

  DateTimePicker1.Date:=DateTimePicker1.Date+DaysInAMonth(Year,Month);

end;

label1.Caption:=label1.Caption+DateToStr(DateTimePicker2.Date-Day2+1)+'-'+DateToStr(DateTimePicker2.Date)+#13#10;

end;