Test for Last Workday of Month

[Paul Tjapkes]

I think something like this will work.

--Paul

use Date::Manip;

my +ACQ-month = +ACY-UnixDate('today', '+ACU-B'); +ACM- Get name of month +ACU-B
my +ACQ-last+AF8-workday+AF8-of+AF8-month = +ACY-Date+AF8-PrevWorkDay("last day of +ACQ-month",0);
if (+ACY-ParseDate('12:00AM tomorrow') eq +ACQ-last+AF8-workday+AF8-of+AF8-month) +AHs-
    print "Today is the last workday of the month.+AFw-n";
+AH0-

Greg Clifton wrote:

> Hello,
> I am trying to test for the last workday of the month in a Perl
> script.  Could anyone point me in the right direction?
> Thanks,
>  
> Greg Clifton
> 10720 Adams St.
> Holland, MI  49423
> 616.393.7250 x 7804
> +AF8- +AF8-
>
> +AF8-www.goISG.com+AF8-
> <file:///C:/Documents+ACU-20and+ACU-20Settings/gclifton/Application+ACU-20Data/Microsoft/Signatures/www.goISG.com>
>
>