Главная страница
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.038 c
14-80201
:)
2004-01-30 18:18
2004.02.25
загрузка картинки!


7-80333
webpauk
2003-11-28 18:23
2004.02.25
Загрузка с Windows


1-79970
Сергей С.
2004-02-11 15:48
2004.02.25
глобальные переменные


3-79665
Sliften
2004-01-30 20:10
2004.02.25
SQL запрос Как обрубить в строке все после первого пробела


4-80348
Deimos
2003-12-14 12:24
2004.02.25
PIPE