Need to Add 12 working Days...

[Minty]

I knew I had seen good functions for this on here (I have written a load of date-related functions these but they are in SQL server, so won't work in VBA) ;

Adding working days to a date, not calculating correctly every time

I picked up the functions below for adding working days (excluding holidays) to a date based on a lag. This has been working perfectly until now. I have stepped through the code and the dates look to be formatting in the same way and everything else looks to be doing what it should (however I...

www.access-programmers.co.uk

 

[Number11]

I knew I had seen good functions for this on here (I have written a load of date-related functions these but they are in SQL server, so won't work in VBA) ;

Adding working days to a date, not calculating correctly every time

I picked up the functions below for adding working days (excluding holidays) to a date based on a lag. This has been working perfectly until now. I have stepped through the code and the dates look to be formatting in the same way and everything else looks to be doing what it should (however I...

www.access-programmers.co.uk

yes i am so please just now need to have it check against the Bank Holiday Table next big challenge

ok so got this now working with this function code

Public Function addDays(ByVal iDays As Integer, ByVal dteStart As Date) As Date
Dim i As Integer
Dim m As Integer
m = Abs(iDays)
While m > 0
If iDays < 0 Then
dteStart = dteStart - 1
Else
dteStart = dteStart + 1
End If
If InStr(1, "sat/sun", Format$(dteStart, "ddd")) <> 0 Then
Else
m = m - 1
End If
Wend
addDays = dteStart
End Function


call by

=addDays(+12,Date())

 

[Pat Hartman]

Here is a sample database with a number of useful date functions.

Sample Date Functions

This database contains a number of date functions that you can simply copy into your application. There is a tabbed form to show you how to use the calculations. A partial list of functions is: Business days between two dates. Business day + days = next business date Easter (Western) Age...

www.access-programmers.co.uk