Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Date() + 3
Message
From
22/07/2005 04:49:03
 
 
To
21/07/2005 23:25:56
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivia
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
01034976
Message ID:
01035025
Views:
23
Hi,
>>
function AddWorkingDays(tdDate, tnDays)
local i, tdResult
tdResult = tdDate
for i = 1 to tnDays
  tdResult = tdResult + 1
  if dow(tdResult) = 7 && Saturday
  	tdResult = tdResult + 1
  endif
  if dow(tdResult) = 1 && Sunday
  	tdResult = tdResult + 1
  endif
next
return tdREsult
>>
Need to be careful of first day of week setting. dow(tdResult,1) would be safer.
Regards,
Viv
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform