Сабж.

В 7-ке вроде бы отвутствует, за полной ненадобностью.

В 6-ке тоже отсутствует, причем по той же самой причине. И пишется за минуту. Даже меньше. Смотря как быстро печатаешь :)

> по той же самой причине


Я даже подозреваю по какой)

> easy ©   (28.03.08 15:40) [4]


Папуасы не оценят)

easy ©   (28.03.08 15:40) [4]

Несолидно.

MonthOf(Foo) div 4 + 1;

KvartalN
Ну…почему не
Quarter

?

> Сергей М. ©   (28.03.08 15:42) [5]

точно.
я-то спрашивал про что-нть такое: GetNumberQuarter(Now).
но все равно спс

Что бы "папуасам" (С) было понятно что делает эта функция :))

> Kolan © (28.03.08 15:47) [7]

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

> Игорь Шевченко © (28.03.08 15:46) [6]

оно какую-то ошику пишет и не компилиться

> asdf2 (28.03.08 15:47) [8]

ну вот, муму Тургенев написал, а памятник - Пушкину.. :`(

> Palladin ©   (28.03.08 15:48) [9]


)

Я к тому, что у папуасов понятие "квартал" вполне может отсутствовать как напрочь, так и в традиционно приемлемом им виде)..

Борланд же обязан  был чтить "квартальные" чувства как нши, "европеистые", так и  любые "нетрадиционные", те же папуасообразные)

> easy ©   (28.03.08 15:54) [10]

да нет, спс тебе адресовано было

easy ©   (28.03.08 15:54) [10]


> оно какую-то ошику пишет и не компилиться


Больно слышать

Все правильно :) этот код несовместим с 5-кой. :) нужно изобретать MonthOf :)

Palladin ©   (28.03.08 16:12) [15]


> Все правильно :) этот код несовместим с 5-кой. :)


Проблемы индейцев шерифа не волнуют :)

Слово есть, квартальные отчеты есть, а
> понятие "квартал" вполне может отсутствовать как напрочь,
>  так и в традиционно приемлемом им виде


парадокс?

> asdf2   (28.03.08 16:45) [17]


Кто ж знает, для кого ты сотворяешь свою "прогу")
Мож и для папуасов, у которых, вполне возможно, косой десяток "кварталов")

> Result:=Result div 4+1;

7 div 4 + 1 = 2!!!

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
Если не секрет - Вы работаете программистом?