Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
ВнизЧисло дней в текущем месяце Найти похожие ветки
← →
phantom2040 (2002-02-20 11:13) [0]Мастера помогите, каким образом можно возвратить число дней в текущем месяце, желательно запихать значение в переменную типа Integer или Word.
Нужно для установки фильтрации в таблице по определенным диапазонам, в данном случае должны отображаться данные текущего месяца
← →
Slava (2002-02-20 11:25) [1]Знаем текущий месяц?
Берем первое число следующего месяца и отнимаем от него один день.
Имеем последнюю дату текущего месяца, делаем DecodeDate и забираем день типа Word
← →
Виктор Щербаков (2002-02-20 11:27) [2]Насколько я знаю, число дней в каждом месяце постоянно. Исключение - февраль.
IsLeapYear - определят, является ли год високосным.
← →
Юрий Зотов (2002-02-20 11:38) [3]Число дней в любом месяце любого года:
MonthDays[IsLeapYear(год)][месяц]
Детали см. в исходниках SysUtils.
← →
Digitman (2002-02-20 11:44) [4]function GetCurMonthDayCount: Integer;
var
NYear, NMonth, NDay: Word;
DateFrom: TDate;
begin
DecodeDate(Date, NYear, NMonth, NDay);
DateFrom := EncodeDate(NYear, NMonth, 1);
Result := Trunc(IncMonth(DateFrom, 1) - DateFrom);
end;
← →
Corwin (2002-02-20 12:22) [5]Все гораздо проще.
В разделе Uses укажи DateUtils.
Далее используй функцию DaysInMonth(Today);
Она вернет число дней в текущем месяце...
← →
Digitman (2002-02-20 12:37) [6]>Corwin
И где, позволь полюбопытствовать, ты нашел DateUtils ? К примеру, в D5.5 ничего подобного отродясь не бывало
← →
McSimm (2002-02-20 12:39) [7]В D6 есть. (Довольно богатый модуль)
Автор указал D6, поэтому Corwin дал вполне корректный ответ
← →
Digitman (2002-02-20 12:46) [8]>McSimm
Ок, согласен. Явно обозначенную автором среду упустил из вида.
← →
phantom2040 (2002-02-20 13:56) [9]Спасибо Мастера, уже сделал то что мен нужно было при помощи
MonthDays[IsLeapYear(год)][месяц], возвращает то что нужно, и еще к этому проверяет високосный год или нет.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c