Workingdays with one date field

Question

Morning all,
I have a report which uses only one date field. This report takes averages of lenses and jobs per day.
The report works fine when it is running on daily basis however when it runs on monthly basis it messes up the averages.
For example:
Daily report:
Job -1
Lens - 1
Average per day (job) -1
Average per day (lens) - 1
Month to date report
Date Range: Month to date (01/08/2008 to 28/08/2008)
Job - 6
Lens - 438
Average per day (Job)- 0.21 (where it should be 0.31)
Average per day (lens)- 15.64 (where it should be 23.05)
If you see above example, monthly should be taking Weekends and bank holidays in account.
I have done similar thing but used two different date fields however here I am facing only one date field which is being used.
So What I have done is, I modified the formula like this
WhileReadingRecords;
DateVar Array Holidays;
DateVar Target:={lab_rework.rework_date};
NumberVar Add:= -2;
NumberVar Added := 0;
WHILE Added > Add
Do (target := target -1;
    if dayofweek (target) in 1 to 7 and not (target in holidays)
        then Added:=Added-1
        else Added:=Added);
Target;
I added this formula into my Report Selection formula like this
({@WeekdaysOnly} in MonthToDate)
Oh and background of the report history:
Crystal Reports: 2008
Database: Informix
Report: Record Selection formula ({lab_rework.rework_date} in MonthToDate);
Report Group by: Report grouped by Reason Code
Report Average formula:
Whileprintingrecords;
Numbervar FAvg;
Numbervar myaverage=0;
Numbervar CAvg=0;
myaverage := {#Total Lenses}; 
CAvg:= myaverage /Day(Maximum(MonthToDate));
//({@EndDate}-{@StartDate}+1);
FAvg:=FAvg + CAvg;
CAvg
Anyone who can help me using only one formula which I can use to take in account working days?
The expected results aren't coming up correctly.
Regards
Jehanzeb

Answer 1

Nope, no need for that.
I sorted it out after editing my working days formula
here is the solution I used
WhileReadingRecords;
Local DateVar Start := Date(Year(CurrentDate),Month(CurrentDate),1);// place your Starting Date here
Local DateVar End :=   Currentdate;// place your Ending Date here
Local NumberVar Weeks;
Local NumberVar Days;
Local Numbervar Hol;
DateVar Array Holidays;
Weeks:= (Truncate (End - dayofWeek(End) + 1 - (Start - dayofWeek(Start) + 1)) /7 ) * 5;
Days := DayOfWeek(End) - DayOfWeek(Start) + 1 +
(if DayOfWeek(Start) = 1 then -1 else 0)  +
(if DayOfWeek(End) = 7 then -1 else 0); 
Local NumberVar i;
For i := 1 to Count (Holidays)
do (if DayOfWeek ( Holidays<i> ) in 2 to 6 and
     Holidays<i> in start to end then Hol:=Hol+1 );
Weeks + Days - Hol;
//Holidays Code
//Holiday Array Formula for the report Header:
BeforeReadingRecords;
DateVar Array Holidays := [
Date (2003,12,25),   // you can put in as many lines for holidays as you want. 
Date (2003,12,31),
Date (2008,08,25)
0
Regards
Jehanzeb