![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Есть ли функция, определяющая номер квартала, по дате?
asdf2 © (2008-03-28 15:30:00)Сабж.
asdf2 (2008-03-28 16:03:00) [21]
> easy © (28.03.08 15:54) [10]
да нет, спс тебе адресовано было
Сергей М. (2008-03-28 15:56:00) [22]
> так и в традиционно приемлемом имвиде
Нам
Сергей М. (2008-03-28 15:55:00) [23]
> Palladin © (28.03.08 15:48) [9]
)
Я к тому, что у папуасов понятие "квартал" вполне может отсутствовать как напрочь, так и в традиционно приемлемом им виде)..
Борланд же обязан был чтить "квартальные" чувства как нши, "европеистые", так и любые "нетрадиционные", те же папуасообразные)
easy (2008-03-28 15:54:00) [24]
> Kolan © (28.03.08 15:47) [7]
не про квартиры же спрашивали..
> Игорь Шевченко © (28.03.08 15:46) [6]
оно какую-то ошику пишет и не компилиться
> asdf2 (28.03.08 15:47) [8]
ну вот, муму Тургенев написал, а памятник - Пушкину.. :`(
Palladin (2008-03-28 15:48:00) [25]Что бы "папуасам" (С) было понятно что делает эта функция :))
asdf2 (2008-03-28 15:47:00) [26]
> Сергей М. © (28.03.08 15:42) [5]
точно.
я-то спрашивал про что-нть такое: GetNumberQuarter(Now).
но все равно спс
Kolan (2008-03-28 15:47:00) [27]KvartalN
Ну почему не
Quarter
?
Игорь Шевченко (2008-03-28 15:46:00) [28]easy © (28.03.08 15:40) [4]
Несолидно.
MonthOf(Foo) div 4 + 1;
Сергей М. (2008-03-28 15:42:00) [29]
> easy © (28.03.08 15:40) [4]
Папуасы не оценят)
easy (2008-03-28 15:40:00) [30]
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:39:00) [31]
> по той же самой причине
Я даже подозреваю по какой)
Palladin (2008-03-28 15:37:00) [32]В 6-ке тоже отсутствует, причем по той же самой причине. И пишется за минуту. Даже меньше. Смотря как быстро печатаешь :)
Сергей М. (2008-03-28 15:32:00) [33]В 7-ке вроде бы отвутствует, за полной ненадобностью.