даты на кварталы

← →
rosl (2003-11-05 07:45) [0]

Народ!!!
Как разбить даты на кварталы (данные зе несколько лет)
или може кто подскажет набор компонентов для разработки программ для бухгалтерии?

← →
Anatoly Podgoretsky (2003-11-05 09:51) [1]

Ты знаешь что кварталы начинаются с 1.01 с шагом три в месяца.
Еще только компонент для этого на хватало.

← →
Stas (2003-11-05 10:03) [2]

Это можно сделать одной простой функцией, которую и самому несложно написать

← →
Думкин (2003-11-05 10:05) [3]

Спроси у ZeroDivide - он тут форум разводил один раз подобным. Вот ему кода накидали. :-)

← →
Stas (2003-11-05 10:15) [4]

FUNCTION (D:TDATETIME):WORD;
VAR M,R:INTEGER;
BEGIN
IF MONTHOF(D)>=1 AND MONTHOF(D)<=3 THEN R=1
...//ТО ЖЕ ПО СМЫСЛУ...
...
...
RESULT:=R;
END;

← →
rosl (2003-11-05 15:37) [5]

как это сделать практически в запросе sql
например показать данные за второй квартал
я не хочу ставить два datetime, хотелось бы чтоб пользователь вводил номер квартала в edit

← →
ZEE (2003-11-05 15:50) [6]

что-то такое?
uses DateUtils; ... var NachKv,KonKv:TDateTime; KvNumber:integer; // номер квартала ... KvNumber:=3; // - например третий квартал 2003-го года NachKv:=IncMonth(EncodeDate(2003,1,1),3*(KvNumber-1)); KonKv:=EndOfMonth(IncMonth(NachKv,2));

← →
}|{yk (2003-11-05 16:05) [7]

хелп интербейса - работа с датами и временем

← →
}|{yk (2003-11-05 16:05) [8]

ну или не интербейса а фокса

← →
Anatoly Podgoretsky (2003-11-05 16:10) [9]

Продолжаем объяснения, про начало квартала уже сказано, а конец увартала это последний день каждого третьего месяца.

даты на кварталы Найти похожие ветки