Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Определение сезона (зима/лето) по дате

DIR3ct0r © (2006-04-18 09:21:00)
Никто не сталкивался с такой проблемой, если что известно подскажите пожайлуста

Сергей М. (2006-04-18 14:11:00) [1]

> патч для жителей крайнего севера

Хм ..

Эдак можно сотворить патчи для прапорщиков, медведей, валенок, пива ..

clickmaker (2006-04-18 13:43:00) [2]

> Сергей М. © (18.04.06 09:43) [2]
> case MonthOf(SomeDate) of
> 12,1,2: зима;
> 3,4,5: весна;
> 6,7,8: лето;
> 9,10,11: осень;
> end;

патч для жителей крайнего севера

case MonthOf(SomeDate) of
1,2,3,4,5,6: ночь;
7,8,9,10,11,12: день;
end;

Reindeer Moss Eater (2006-04-18 11:41:00) [3]
Интересно, если Date говорит, что сегодня 18 апреля, но это 18 апреля в Сиднее, то что это, - весна или осень?

Игорь Шевченко (2006-04-18 10:19:00) [4]

> в какой момент сезона находится Дата.

GetTimeZoneInformation

"DaylightDate

Specifies a SYSTEMTIME structure that contains a date and UTC when the transition from standard time to daylight time occurs on this operating system. "

Сергей М. (2006-04-18 10:16:00) [5]
К тому же, если не ошибаюсь, моменты смены "сезонов" не фиксированы, а приурочиваются всякий раз к ближайшим выходным дням.

Сергей М. (2006-04-18 10:14:00) [6]

> DIR3ct0r © (18.04.06 09:46) [3]

Никак ты это не определишь.
Одну и ту же дату можно трактовать по-разному - с учетом и без учета фактического "перевода стрелок".

2:00 в ночь перехода на зимнее время (стрелки на час назад) можно рассматирвать и как "лето" (до наступления "зимы" остался 1 час) и как "зиму" (в 3:00 "лето" только что кончилось и стрелки переведены на 1 час назад)

DIR3ct0r (2006-04-18 09:46:00) [7]
суть такова....сезонный перевол часов производится 2 раза в год (с зимнего на летнее время, с летнего на зимнее).

необходимо определить: в какой момент сезона находится Дата.

Сергей М. (2006-04-18 09:43:00) [8]
case MonthOf(SomeDate) of
12,1,2: зима;
3,4,5: весна;
6,7,8: лето;
9,10,11: осень;
end;

TUser (2006-04-18 09:29:00) [9]
Надо определить месяц. Декабрь, яинварь, февраль - зима. Далее по три месяца.

Наверх

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