Business Days...

[TheVig]

Is there a better way than this?
Function Business_Days_Add

Code:

Copy      Help

out
DATE d.getclock
SYSTEMTIME st
int Days=8
rep Days
,;Run
,d=d+1
,d.tosystemtime(st)
,if st.wDayOfWeek=0
,,goto Run
,if st.wDayOfWeek=6
,,goto Run
out "%i-%i-%i" st.wMonth st.wDay st.wYear