function GetNumberQuarter(const AValue: TDateTime):Word;
var
 LYear, LDay: Word;
begin
 DecodeDate(AValue, LYear, Result, LDay);
 Result:=(Result*4) div 13+1;
end;

Anatoly Podgoretsky ©   (28.03.08 21:37) [19]


> 7 div 4 + 1 = 2!!!


Это ошибка эсперимента

Result:=(Result - 1) div 3 + 1;

> Johnmen ©   (28.03.08 23:11) [22]
> Result:=(Result - 1) div 3 + 1;
Наконец! Хоть квартал это и четвёртая часть, а месяцев в нём
... :)))

> korneley ©   (29.03.08 00:37) [23]
>
>

Долго же ты выжидал этого момента! :)

> Германн  (29.03.2008 1:20:24)  [24]

Какой подлый, их подтишка ударил.

> Германн ©   (29.03.08 01:20) [24]


> Anatoly Podgoretsky ©   (29.03.08 01:31) [25]

ПризнаЮсь! С [4] до [19] ждал "разоблачения". Тем не менее, общие-то соображения верны, а "4" - частности...

> не про квартиры же спрашивали…

А я об нем и не говорю :)

quarter (= 3 months) © Lingvo

А такой квартал это block.

PS
I’m still, I’m still Jenny from the block. :)

> Хоть квартал это и четвёртая часть, а месяцев в нём три... :)))

Это о чем?

> Это о чем?

О годе видимо…

> [28] Johnmen ©   (29.03.08 10:52)

div на 3 а не 4

Все это неправильно. Квартал надо определять не по номеру месяца (это слишком элементарно, Ватсон), а по номеру дня в году. И обязательно с учетом високосных лет.

Вот это будет правильно. Потому что сразу же возникает простор еще для пары сотен постингов на тему арифметики для третьего класса. Интересно же. И познавательно.

> asdf2
Если не секрет - Вы работаете программистом?