That doesn't seem to work. It gives me dates on the weekend.
Here is what I have so far, that comes close....
Thanks for looking at this.
David
Public Function ufnWorkDays(StartDate As Date, intDays As Integer) As
Date
Dim iDays As Integer 'Day counter
Dim datTemp As Date 'Date variable
datTemp = StartDate 'Set date equal to StartDate
If intDays > 0 Then
For iDays = 1 To intDays
datTemp = datTemp + 1
Do While (Weekday(datTemp) = 1 Or Weekday(datTemp) = 7)
datTemp = datTemp + 1
Loop
Next iDays
End If
ufnWorkDays = datTemp
End Function
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
-~----------~----~----~----~------~----~------~--~---
