Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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(год)][месяц], возвращает то что нужно, и еще к этому проверяет високосный год или нет.






Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.016 c
6-19276           Aleksandr             2001-12-20 13:39  2002.03.07  
Как работать с посылкой сообщения по локальной сети?


1-19128           niksv                 2002-02-20 09:41  2002.03.07  
Шестнадцатиричный файл.Как с ним работать?


1-19188           Egor111               2002-02-18 17:04  2002.03.07  
Преобразование типов данных


14-19343          evgeg                 2002-01-22 23:58  2002.03.07  
Что в ВУЗ-х стали не на Pascal-е учить, а на C?


3-19070           DmitryB               2002-02-08 01:57  2002.03.07  
Ищу компонент