Как разбить выбранный период по месяцам?

[Vit@L]

Привет всем!
Подскажите пожалуйста, как разбить выбранный период по месяцам?
К примеру выбран период с 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С ("Динамика продаж" называется). Мне необходимо сделать что-то подобное.
Может ли кто-нибудь помочь? А если еще и примерчик подкинете, то буду очень благодарен!!!
Заранее огромное спасибо.

[Аватар]

type TMyRecordPeriod = record
       DateFrom: TDateTime;
       DateTo: TDateTime;
     end;
     TMyArrayPeriod = array of TMyRecordPeriod;

function Period(DateFrom,DateTo: TDateTime; var Periods: TMyArrayPeriod): Integer;
var Year, Month, Day: Word;
    xDate1,xDate2,xDate3: TDateTime;
begin
  //DateFrom,DateTo - время должно быть 0!
  Result:=0;
  if DateTo<DateFrom then Exit;
  DecodeDate(DateFrom,Year,Month,Day);
  xDate1:=DateFrom;
  xDate2:=IncMonth(EncodeDate(Year,Month,1),1);
  while True do begin
    xDate3:=xDate2-1;
    if xDate3>DateTo then xDate3:=DateTo;
    Inc(Result);
    SetLength(Periods,Result);
    Periods[Result-1].DateFrom:=xDate1;
    Periods[Result-1].DateTo:=xDate3;
    if xDate3=DateTo then Exit;
    xDate1:=xDate2;
    xDate2:=IncMonth(xDate1,1);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Periods: TMyArrayPeriod;
    i,Count: Integer;
    DateFrom,DateTo: TDateTime;
begin
  DateFrom:=EncodeDate(2011,5,15);
  DateTo:=EncodeDate(2011,11,25);
  Count:=Period(DateFrom,DateTo,Periods);
  Memo1.Clear;
  for i:=0 to Count-1 do
    Memo1.Lines.Add(Format('%s - %s',[FormatDateTime('yyyy-mm-dd',Periods[i].DateFrom),
                                      FormatDateTime('yyyy-mm-dd',Periods[i].DateTo)]));
  SetLength(Periods,0);
end;

[fate]

вот мой вариант

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;

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

[Vit@L]

Огромнейшее всем спасибо!!!
Использовал вариант fate, так как на мой взгляд он проще.
Еще раз всем ОГРОМНОЕ спасибо!!!

[denis86]

Здравствуйте! Большая к вам просьба не могли бы вы поподробней написать как в экселе это сделать "разбить выбранный период по месяцам" почитав на форуме я так и не понял. У вас это получилось, может поделитесь опытом?)))

[denis86]

Здравствуйте! Большая к вам просьба не могли бы вы поподробней описать как в экселе это сделать "разбить выбранный период по месяцам" почитав на форуме я так и не понял. Вы это умеете , может поделитесь опытом?)))