| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как найти число дней в месяце и как очистить TImage. [D6, WinXP]

MakedoneZ ©   (2005-01-29 11:05:00) 

1)Есть ли процедура которая возвращает число дней в месяце?

2)Как очистить TImage одной процедурой?

---

Aleks   (2005-02-03 19:41:00) [1]

uses  DateUtils, - добавить
Edit1.Text:= inttostr(DaysInAMonth(2004,2));

А так будет на много просче и короче

---

MakedoneZ   (2005-01-29 20:52:00) [2]

Спасибо всем!

---

SergP   (2005-01-29 14:22:00) [3]

>  [5] TUser ©   (29.01.05 13:47)
>
> > SergP ©   (29.01.05 13:32) [4]
> Например, чясло дней в 2005-м месяце 2005 года =


Функция расчитана на использование в мирах где 12 месяцев в году, проверок я не делал, так как это лишнее. :-))

---

aus   (2005-01-29 13:57:00) [4]


uses DateUtils;

.....................
ShowMessage(IntToStr(DaysInMonth(Date)));
....................


---

aus   (2005-01-29 13:57:00) [5]

или в D6 нет этой ф-ции?

---

TUser   (2005-01-29 13:51:00) [6]

А всего в 2005 году 7806 дней. Так что второй срок Путина еще надолго.

---

TUser   (2005-01-29 13:48:00) [7]

Опс. Хорошо, что byte, - значит колинчество месяцев в коду все-таки ограничено. В 255-м месяце 2005 года будет 30 дней.

---

TUser   (2005-01-29 13:47:00) [8]

> SergP ©   (29.01.05 13:32) [4]
Например, чясло дней в 2005-м месяце 2005 года =

---

SergP   (2005-01-29 13:32:00) [9]

function LastDayOfMonth(const month: byte; const year:word): byte;
begin
if month=2
then   if ((year mod 4 =0)  and (year mod 100 >0)) or (year mod 400 = 0)
      then Result:=29
      else Result:=28
else   result:=Month shr 3 xor Month and 1 or 30;
end;

---

TUser   (2005-01-29 13:20:00) [10]

Я бы искал число дней в месяце, как
(MonthNumber mod 6) mod 2 + прописывание особых условий для февраля.

---

VMcL   (2005-01-29 11:24:00) [11]

>> MakedoneZ ©  (29.01.05 11:05)

1.SysUtils.pas:

{ The MonthDays array can be used to quickly find the number of
 days in a month:  MonthDays[IsLeapYear(Y), M]      }

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));

2.

Image1.Picture := nil;

---

Antonn   (2005-01-29 11:19:00) [12]

1 EndOfAMonth( YearOf(год) , месяц)

ЗЫ Что-то часто стали возникать вопросы про даты...

---

Наверх