Есть ли функция, определяющая номер квартала, по дате?

← →
asdf2 (2008-03-28 15:30) [0]

Сабж.

← →
Сергей М. © (2008-03-28 15:32) [1]

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

← →
Palladin © (2008-03-28 15:37) [2]

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

← →
Сергей М. © (2008-03-28 15:39) [3]

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

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

← →
easy © (2008-03-28 15:40) [4]

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

← →
Сергей М. © (2008-03-28 15:42) [5]

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

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

← →
Игорь Шевченко © (2008-03-28 15:46) [6]

easy © (28.03.08 15:40) [4]

Несолидно.

MonthOf(Foo) div 4 + 1;

← →
Kolan © (2008-03-28 15:47) [7]

KvartalN
Ну&#133почему не
Quarter

?

← →
asdf2 (2008-03-28 15:47) [8]

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

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

← →
Palladin © (2008-03-28 15:48) [9]

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

← →
easy © (2008-03-28 15:54) [10]

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

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

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

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

> asdf2 (28.03.08 15:47) [8]

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

← →
Сергей М. © (2008-03-28 15:55) [11]

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

)

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

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

← →
Сергей М. © (2008-03-28 15:56) [12]

> так и в традиционно приемлемом им виде

Нам

← →
asdf2 (2008-03-28 16:03) [13]

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

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

← →
Игорь Шевченко © (2008-03-28 16:08) [14]

easy © (28.03.08 15:54) [10]

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

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

← →
Palladin © (2008-03-28 16:12) [15]

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

← →
Игорь Шевченко © (2008-03-28 16:26) [16]

Palladin © (28.03.08 16:12) [15]

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

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

← →
asdf2 (2008-03-28 16:45) [17]

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

парадокс?

← →
Сергей М. © (2008-03-28 16:47) [18]

> asdf2 (28.03.08 16:45) [17]

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

← →
Anatoly Podgoretsky © (2008-03-28 21:37) [19]

> Result:=Result div 4+1;

7 div 4 + 1 = 2!!!

← →
easy © (2008-03-28 22:53) [20]

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

← →
Игорь Шевченко © (2008-03-28 23:09) [21]

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

> 7 div 4 + 1 = 2!!!

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

← →
Johnmen © (2008-03-28 23:11) [22]

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

← →
korneley © (2008-03-29 00:37) [23]

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

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

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

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

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

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

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

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

quarter (= 3 months) © Lingvo

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

PS
Im still, Im still Jenny from the block. :)

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

Это о чем?

> Это о чем?

О годе видимо&#133

← →
Семеныч (2008-03-29 17:02) [31]

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

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

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

Для приведенных операций имеет значение только "мощность" множества. И совсем по-барабану, из скольких "множеств" состоит сущность.
Короче, учите комбинаторику.

> Семеныч (29.03.08 17:02) [31]

Мы к бреду привычные. Продолжай...

← →
Семеныч (2008-03-29 21:34) [33]

Есть ли функция, определяющая номер квартала, по дате? Найти похожие ветки