1 Topic by sibprogsistem (edited by sibprogsistem 2019-10-11 05:09:15)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: календарь

хотел сделать свой календарь

но .. не получается получить колличество дней

// Сколько дней в Феврале 20019 ?
  ShowMessage('Дней в Феврале 2019 = '+
              IntToStr(DaysInAMonth(2019, 2)));
// Установка  переменных дат
  fromDate := EncodeDateTime(2019, 02, 26, 10, 0, 0, 0);
  toDate   := EncodeDateTime(2019, 02, 29,  9, 0, 0, 0);

  // Отображение  дат и дней между ними
  ShowMessage('С даты = '+DateTimeToStr(fromDate));
  ShowMessage('До даты = '+DateTimeToStr(toDate));
  ShowMessage('Целых дней = '+
              IntToStr(DaysBetween(toDate, fromDate))+' дней');
// Сколько дней в феврале 2019г.?
  ShowMessage('Количество дней в Феврале 2019г. = '+
              IntToStr(MonthDays[IsLeapYear(2019)][2]));
  • Registered: 2014-02-14
  • Posts: 10,294

Re: календарь

Вместо DaysInAMonth используйте DaysInMonth


попробуйте так

  fromDate := EncodeDate(2019, 02, 26) + EncodeTime(10, 0, 0, 0);
  toDate   := EncodeDate(2019, 02, 29) + EncodeTime(9, 0, 0, 0);
Dmitry.