Как узнать какой месяц заканчивается на 30 и 31

@gorelli · Регистрация: 25.11.2012

Author24 — интернет-сервис помощи студентам

Как узнать какой месяц заканчивается на 30 и 31 после марта 2015. Т.е человек выбирает из DateTimePicker оределенную дату и количество месяцев указывает в Edit1 (допустим 8) - а программа определяет какой из 8 месяцев как заканчивается на 30 и 31?

Привожу исходник который нашел в интернете, но проблема в том что нужно отобрать первый три месяца после текущей а выводится все 12

Delphi

procedure TForm1.Button3Click(Sender: TObject);
const MonthDays : array [Boolean] of TDayTable =
    ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
    (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));
      var DaysInAMonth, i, E12: Integer;
          myDate: TDateTime;
begin
 myDate := now;  
  E12 := StrToInt(Edit12.Text);
 
for i := 1 to E12 do
begin
 ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][1]));
 ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][2]));
 ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][3]));
 ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][4]));
 ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][5]));
 ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][6]));
 ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][7]));
 ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][8]));
 ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][9]));
 ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][10]));
 ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][11]));
 ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][12]));
end;

@Zoominger · 29.09.2015, 23:47

Delphi

begin 
ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][1])); 
ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][2])); 
ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][3])); 
ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][4])); 
ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][5])); 
ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][6])); 
ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][7])); 
ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][8])); 
ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][9])); 
ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][10])); 
ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][11])); 
ListBox2.Items.Add(IntToStr(MonthDays[IsLeapYear(2016)][12])); 
end;

Замените это безумие на цикл.

@northener · 30.09.2015, 00:40

Сообщение от gorelli

Как узнать какой месяц заканчивается на 30 и 31

DaysInMonth
DaysInAMonth
Выбирай что хошь.

@northener пофигист широкого профиля 4753 / 3190 / 860 Регистрация: 15.07.2013 Сообщений: 18,482
	30.09.2015, 00:40	3
	Сообщение от gorelli Как узнать какой месяц заканчивается на 30 и 31 DaysInMonth DaysInAMonth Выбирай что хошь. 0