Simulate R6 @Businessdays in R5

This tip describes how to simulate R6 @Businessdays in R5.

You had a look at R6 and the overhaul of the formula language. Nice updates. For calculation of working days @Businessdays replaces a lot of legacy script... However your client base is on R5. Don't worry you can have it in R5... Thanks to the power of lists.


 R6:
tmpWeekEnd:= 1:7;
tmpHolidays := [01/01/2003] :
 [15/01/2003] : [16/02/2003] :
 [28/05/2003] : [04/07/2003];
@BusinessDays(FirstDay;
Lastday;tmpWeekEnd;tmpHolidays)

R5:
tmpWeekEnd:= 1:7;
tmpHolidays := [01/01/2003] : 
[15/01/2003] : [16/02/2003] : 
[28/05/2003] : [04/07/2003];
REM "Create a textlist that 
contains all days in the period";
tmpDatelist := @Text(@Explode
(@TextToTime(@Text(Firstday)+"
 - "+@Text(Lastday))));
REM "Replace the holidays out of the list";
tmpNoHolidays := @TextToTime
(@Trim(@Replace(tmpDatelist;
@Text(tmpHolidays);"")));
REM "Remove Weekends";
tmpWeekdays := @Text(@Weekday
(tmpNoHolidays));
tmpWorkdays := @Trim(@Replace
(tmpWeekdays;@Text(tmpWeekEnd);""));
@Elements(tmpWorkdays)
This was first published in February 2003
This Content Component encountered an error

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close