Алгоритм вычисления номера квартала

← →
Denis_Visma (2004-06-18 11:29) [0]

Люды!!! есть у кого то сабж.

← →
panov © (2004-06-18 11:33) [1]

А что, для этого специально алгоритм нужен?
Знаний арифметики в пределах 4-х классов школы не достаточно?

← →
TUser © (2004-06-18 12:45) [2]

У меня есть. Работает за О(С) при любых исходных данных. Могу обменять на алгоритм сортировки произвольного массива, работающий с такой же скоростью.

← →
ПсихЪ © (2004-06-18 14:00) [3]

Блин!!! ): Ну, чёрт вас подери!!! Ну ведь это же настолько... ): Блин, короче... ):
http://delphiworld.narod.ru - качай и не задавай глупых вопросов!!!

← →
Gala (2004-06-18 15:59) [4]

ceil(MonthOf(Date())/3)

← →
TUser © (2004-06-18 16:00) [5]

> http://delphiworld.narod.ru

На ДелфиВорде лежат статьи по Delphi, WinAPI, базам и пр. А сабж касается алгоритмов, пусть и простых. Не уверен, что там это есть.

← →
panov © (2004-06-18 16:15) [6]

Да какой тут алгоритм? Какие статьи?

Весь алгоритм заключается в получении номера месяца.

function Kvart(const aDate: TDateTime): Integer;
var
MM: Integer;
begin
MM := StrToInt(FormatDateTime("mm",aDate));
Result := (MM div 4) + 1;
end;

← →
VMcL © (2004-06-18 16:21) [7]

>>panov © (18.06.04 16:15) [6]

Гы, а чё не через DecodeDate, а через FormatDateTime + StrToInt?

← →
panov © (2004-06-18 16:28) [8]

>VMcL © (18.06.04 16:21) [7]

Так зачем лишние переменные вводить?

← →
Johnmen © (2004-06-18 17:12) [9]

>>panov © (18.06.04 16:15) [6]

Гы, а чё не через MonthOf, а через FormatDateTime + StrToInt?

>Так зачем лишние переменные вводить?

Типа MM совсем не лишняя ?
:)

← →
Алхимик © (2004-06-18 17:22) [10]

Алгоритм вычисления номера квартала...
... по номеру дома.
:)

Алхимик © (18.06.04 17:22) [10]

Вот и я так подумал, хотел уже спутниковую съемку и распознавание образов рекомендовать:)

>>panov © (18.06.04 16:28) [8]

ИМХО, лучше несколько доп. байт в стеке выделить, чем заставлять динамическую строку мурыжить. Я уж молчу про быстродействие :)

Алгоритм вычисления номера квартала Найти похожие ветки