Stuck in a loop, how to counteract it?

[Digitalcandy]

I am calculating business days using Ken Hamaday's code below, but I get an error stating that I've exceeded the maximum number of loops. How do I fix it?



//Subtracting Business Days:
WhileReadingRecords;
DateVar Target := Date({Table.DateTime});
NumberVar Add := -20;
NumberVar Added := 0;
WHILE Added > Add
DO (target := target -1;
if dayofweek (target) in 2 to 6
then Added:=Added-1
else Added:=Added);
Target

 

[mbarron]

I didn't receive a loop error, but couldn't fix your formula. I did however create a formula that should work for you.


numbervar daysback:=20;//number of days back
datevar dat:= ({table.date}); start date
numbervar looper;


for looper:= 0 to daysback do(
if dayofweek(dat) in 2 to 6 then
dat:=dat-1 else

dat:=dat-3);
dat +1




Mike