David try this
Public Function ufnWorkDays(StartDate As Date, intDays As Integer) As
Date
Dim iDays As Integer'Day counter
Dim datTemp As Date 'Date variable
datTemp = DateAdd("d", intDays, StartDate)
'Add 1 if it is a Sunday
If Weekday(datTemp) = 1 Then
datTemp = DateAdd("d",
Whoops, youn eed to check for Weekday = 7 for Saturday
Public Function ufnWorkDays(StartDate As Date, intDays As Integer) As
Date
Dim iDays As Integer'Day counter
Dim datTemp As Date 'Date variable
datTemp = DateAdd("d", intDays, StartDate)
'Add 1 if it is a Sunday
If Weekday(datTemp
Microsoft Press Step-by-Step is excellent if you are new to VBA
On Sep 16, 2:23 am, SilvergunSuperman <[EMAIL PROTECTED]> wrote:
> Would anyone be able to recommend a good book to purchase wrt to
> Macros and VBA?
>
> Thanks in advance!! : )
--~--~-~--~~~---~--~~
