Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

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

 
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};
В общем когда будут более конкретные вопросы по работе с детами, пиши



Страницы: 1 вся ветка

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
14-80173
IIStan
2004-01-28 02:12
2004.02.25
Подскажите бесплатный хостинг, чтобы был PHP4 и SSI.


14-80147
Nick-From
2004-01-30 16:47
2004.02.25
Хороший антивирус но не AVP


1-79810
Doddy
2004-02-05 12:52
2004.02.25
Интеграция CHM файла в программу.


14-80112
N169
2004-02-02 16:32
2004.02.25
Программист назвал сына версией 2.0 :)


7-80303
наблюдатель
2003-12-07 18:17
2004.02.25
WM_ACTIVATE