Нужен модуль работы с календарем

← →
wik (2004-02-12 11:01) [0]

Привет всем !
Никто не видел написанного модуля для работы с рабочим календарем для высчитывания рабочего времени или хотя бы простым календарем (напр, нужна функция - получить дату, отстающую от заданной на заданное число дней).

И еще очень нужна процедурка для получения русских слов в родительном падеже.

Если кто-нибудь видел что-то подобное, киньте ссылочку

← →
Семен Сорокин (2004-02-12 12:15) [1]

Никто не видел написанного модуля для работы с рабочим календарем для высчитывания рабочего времени или хотя бы простым календарем (напр, нужна функция - получить дату, отстающую от заданной на заданное число дней).
DateUtils.pas

← →
SPIRIT (2004-02-12 12:18) [2]

> напр, нужна функция - получить дату, отстающую от заданной
> на заданное число дней

NeedDate:TDateTime;
Days:integer;
NeedDate:=Date-Days;

← →
nejest (2004-01-23 13:08) [3]

> работы с рабочим календарем для высчитывания рабочего времени
для вычисления числа рабочих дней в месяце можно использовать:
var
seg,bMonth,eMonth: Tdate;
daysMonth,i,rabdays: integer;
begin
seg:=Date;
BMonth:=EncodeDate(YearOf(seg),MonthOf(seg),1);
EMonth:=EncodeDate(YearOf(seg),MonthOf(seg)+1,1);
daysMonth:=trunc(EMonth-BMonth);
rabdays:=0;
for i:=0 to daysMonth-1 do
begin
if DayOfWeek(BMonth+i)>=2 {and DayOfWeek(BMonth)<7)} then
if DayOfWeek(BMonth+i)<=6 then
rabdays:=rabdays+1;

end;
form1.Caption:=IntTostr(rabdays){+" "+IntTostr};
В общем когда будут более конкретные вопросы по работе с детами, пиши

Нужен модуль работы с календарем Найти похожие ветки