Script reageert niet op datum en dag

[Kees]

Heeft iemand enig idee waarom hij hier voorbij schiet...

Hier een heel klein gedeelte van het script,,

PAL.Loop:=True;
PAL.LockExecution;
var jaar,maand,dag: Integer ;
decodedate (date, jaar,maand,dag) ;
DecodeDate(Now, jaar,maand,dag) ;


// Maandag 08:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['07:59:15']) and (Now <= T['07:59:25'])) and (maand = 12) and (dag<6) and (dag>26) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['07:59:42']);

[Wout]

Heeft iemand enig idee waarom hij hier voorbij schiet...

Hier een heel klein gedeelte van het script,,

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;
var jaar,maand,dag: Integer ;
decodedate (date, jaar,maand,dag) ;
DecodeDate(Now, jaar,maand,dag) ;


// Maandag 08:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['07:59:15']) and (Now <= T['07:59:25'])) and (maand = 12) and (dag<6) and (dag>26) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['07:59:42']);

Bij de dagen is het een OR-function, hierbij hoef er maar 1 waar (True) te zijn. Bij een AND moet beide waar zijn. 6 & 26 tegelijk waar gaat niet lukken.

Code: Selecteer alles

WHILE DayOfWeek(Now) = Monday AND ((Now >= T['07:59:15']) AND (Now <= T['07:59:25'])) AND (maand = 12) AND ((dag < 6) OR (dag > 26)) DO

[Kees]

Dank je Wout..zo'n kleinigheidje en er gewoon overheen kijken..

[Kees]

In eerste instantie deed hij het nog niet maar na wat aanpassingen met ( en dubbel (( lukte het wel...

// Maandag 11:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['10:59:15']) and (Now <= T['10:59:25'])) and (maand = 12) and ((dag <= 5) or (dag >= 27 )) do
begin
PAL.UnLockExecution;
CopyFile ('K:\nu\nonstop\_nu.html', 'K:\_nu.html', False);
PAL.WaitForTime(T['10:59:42']);
Cat['11 uur'].QueueCat(ipTop);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('K:\SAM AUDIO\uurwissel\nos nieuws\nieuws.wav',ipBottom);
Cat['extra nieuws'].QueueCat(ipBottom);
Cat['blok-2'].QueueCat(ipBottom);
Cat['uur-promo'].QueueCat(ipBottom);
Cat['Giro 555'].QueueBottom(smLRP,NoRules);
Cat['Uuropener'].QueueCat(ipBottom);
Cat['ma-11'].QueueCat(ipBottom);
Cat['playlist ma-11'].QueueCat(ipBottom);
PAL.LockExecution;
end;

Nogmaals bedankt...