Определение количества календарных дней с разбиением на 30, 31, 28 и 29

while (m1<>m2) OR (y1<>y2) do

function MonthBetween(const date1,date2:TDateTime):integer;
var
  d1,m1,y1: word;
  d2,m2,y2: word;
begin
  decodedate(date1,y1,m1,d1);
  decodedate(date2,y2,m2,d2);
  result:=(m2-m1)+(y2-y1)*12;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var  i:integer;
    d1,m1,y1, // первая дата
    d2,m2,y2, // вторая дата
    m,y,         // промежуточная дата
    c28,c29,c30,c31:word; // вывод итога
begin
  decodedate(DateTimePicker2.Date,y2,m2,d2);
  decodedate(DateTimePicker1.Date,y1,m1,d1);
  c28:=0;
  c29:=0;
  c30:=0;
  c31:=0;
  y:=y1;
  for I := 0 to MonthBetween(DateTimePicker1.Date, DateTimePicker2.date) do
  begin
    m:=m1+i;
    if (m mod 13)=0 then // если вышли за пределы года
    begin
      m:=1;
      y:=y+1;
    end;
    case DaysInAMonth(y,m) of
    28:c28:=c28+1;
    29:c29:=c29+1;
    30:c30:=c30+1;
    31:c31:=c31+1;
    end;
 
  end;
  Memo1.Lines.Add('28: '+inttostr(c28));
  Memo1.Lines.Add('29: '+inttostr(c29));
  Memo1.Lines.Add('30: '+inttostr(c30));
  Memo1.Lines.Add('31: '+inttostr(c31));
end;

procedure TForm1.btn1Click(Sender: TObject);
var days, d1, m1, y1, d2, m2, y2, c28, c29, c30, c31: integer;
begin
 
  days:=DaysBetween(dtp1.date, dtp2.date);
  btn1.Caption:=IntToStr(Days);
 
  d1:=DayOf(dtp1.Date);
  m1:=MonthOf(dtp1.Date);
  y1:=YearOf(dtp1.Date);
  d2:=DayOf(dtp2.Date);
  m2:=MonthOf(dtp2.Date);
  y2:=YearOf(dtp2.Date);
 
  c28:=0;
  c29:=0;
  c30:=0;
  c31:=0;
 
  //промежуточные месяца
  begin
    while (m1<>m2) or (y1<>y2) do
    begin
      case m1 of
      1 :   c31:= c31+31;
      2 :   if y1 mod 4 = 0 then c29:= c29+29
            else c28:= c28+28;
      3 :   c31:= c31+31;
      4 :   c30:= c30+30;
      5 :   c31:= c31+31;
      6 :   c30:= c30+30;
      7 :   c31:= c31+31;
      8 :   c31:= c31+31;
      9 :   c30:= c30+30;
      10 :  c31:= c31+31;
      11 :  c30:= c30+30;
      12 :  c31:= c31+31;
      end;
 
      if m1=12 then
        begin
        m1:=1;
        y1:=y1+1
        end
      else
        m1:=m1+1;
    end;
  end;
 
 
  //последний месяц
  begin
      case m2 of
      1 :   c31:= c31+(d2-1);
      2 :   if y1 mod 4 = 0 then c29:= c29+(d2-1)
            else c28:= c28+(d2-1);
      3 :   c31:= c31+(d2-1);
      4 :   c30:= c30+(d2-1);
      5 :   c31:= c31+(d2-1);
      6 :   c30:= c30+(d2-1);
      7 :   c31:= c31+(d2-1);
      8 :   c31:= c31+(d2-1);
      9 :   c30:= c30+(d2-1);
      10 :  c31:= c31+(d2-1);
      11 :  c30:= c30+(d2-1);
      12 :  c31:= c31+(d2-1);
      end;
  end;
 
 
  //первый месяц
  m1:=MonthOf(dtp1.Date);
  begin
      case m1 of
      1 :   c31:= c31-(d1-1);
      2 :   if y1 mod 4 = 0 then c29:= c29-(d1-1)
            else c28:= c28-(d1-1);
      3 :   c31:= c31-(d1-1);
      4 :   c30:= c30-(d1-1);
      5 :   c31:= c31-(d1-1);
      6 :   c30:= c30-(d1-1);
      7 :   c31:= c31-(d1-1);
      8 :   c31:= c31-(d1-1);
      9 :   c30:= c30-(d1-1);
      10 :  c31:= c31-(d1-1);
      11 :  c30:= c30-(d1-1);
      12 :  c31:= c31-(d1-1);
      end;
  end;
 
  lbl28.Caption:=('28 д - '+IntToStr(c28));
  lbl29.Caption:=('29 д - '+IntToStr(c29));
  lbl30.Caption:=('30 д - '+IntToStr(c30));
  lbl31.Caption:=('31 д - '+IntToStr(c31));
end;

m1:=MonthOf(dtp1.Date);
  begin
      case m1 of
        1,3,5,7,8,10,12 :   c31:= c31-(d1-1);
        2 :   if y1 mod 4 = 0 then c29:= c29-(d1-1) else c28:= c28-(d1-1);
        4,6,9,11 :   c30:= c30-(d1-1);
      end;
  end;

var
  i:integer;
begin
  for I := 2000 to 2016 do begin
    DT1.DateTime := StrToDate('31.01.'+inttostr(i));
    DT2.DateTime := StrToDate('02.03.'+inttostr(i));
    d1:=DateTimeToUnix(DT1.DateTime);
    d2:=DateTimeToUnix(DT2.DateTime);
    Memo1.Lines.Add(DateToStr(DT1.DateTime));
    Memo1.Lines.Add(DateToStr(DT2.DateTime));
    Memo1.Lines.Add(SecondsToString(d2-d1).Date);
    Memo1.Lines.Add('----------------------------');
  end;