Календарь

← →
Марат (2003-09-10 14:04) [0]

Люди помогите! В проекте при подсчете контрольного срока необходимо пропустить выходные дни. Это я делаю ч/з условие:"if DayOfWeek(DtCntr)=7".
Это понятно. А как пропустить праздничные дни? (если можно, подробно).

← →
clickmaker (2003-09-10 14:14) [1]

А может у тебя каждый день - праздник. Тогда что ? :)))

← →
mfender (2003-09-10 14:23) [2]

Сначала нужно создать какой-то массив праздничных дат. пусть это будет TTable с одним полем HDate.
Соответственно, при условии пишем:

if (DayOfWeek(DtCntr)=7) or (HDaysCompare(DtCntr) = True) then
begin
-----

А проверяем:

function HDaysCompare(HDay: TDate): Boolean;
var n: Integer;
begin
for n:=0 to Table1.RecordCount-1 do
begin
if Table1Hdate.AsDateTime = HDay then Result:=True
end;
end;

Примерно так...

← →
ZEE (2003-09-10 14:52) [3]

function DayOfWeek(Date: TDateTime): Integer;

DayOfWeek returns the day of the week of the specified date as an integer between 1 and 7, where Sunday is the first day of the week and Saturday is the seventh.

Поэтому if DayOfWeek(DtCntr)=1 (а не 7)
разве что если надо выкинуть все субботы... (в смысле если эта прога для Израиля :)

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