Re: Calculating Working(business) days

[Mark_McCarty@xxxxxxxxxxxxxxx]

The following code snippet will work:

       end_date        subdur          begin_date           #_of_days: d*
                             eval               #_of_weeks = %div(#_of_days: 7)
                             eval               days_left =  %rem(#_of_days: 7)
                             eval               #_of_days = (#_of_weeks * 5) +
days_left






**********************************************************************
This email and any files transmitted with it are intended solely for 
the use of the individual or agency to whom they are addressed. If 
you have received this email in error please notify the Navy Exchange
Service Command e-mail administrator.

This footnote also confirms that this email message has been scanned 
for the presence of computer viruses.

messaging_support_team@nexnet.navy.mil
**********************************************************************
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---