non-working holidays

How about

=(WORKDAY(A5-1,1,holidays)=A5)*8

where holidays is the range of holiday dates

Originally Posted by Bob Phillips

How about

=(WORKDAY(A5-1,1,holidays)=A5)*8

where holidays is the range of holiday dates

I made a VBA code for dates of the holidays,.but how to apply the formula.
Code looks like this:

Public Function holiday(lngdate As Long) As Boolean
Dim inputyear As Integer, es As Long, ok As Boolean

If lngdate <= 0 Then lngdate = Date
inputyear = Year(lngdate)
es = eastersunday(inputyear)
ok = True
Select Case lngdate
Case DateSerial(inputyear, 1, 1)
Case DateSerial(inputyear, 1, 6)

Case es
Case es + 1
Case DateSerial(inputyear, 5, 1)

Case es + 60
Case DateSerial(inputyear, 6, 22)
Case DateSerial(inputyear, 6, 25)
Case DateSerial(inputyear, 8, 5)
Case DateSerial(inputyear, 8, 15)
Case DateSerial(inputyear, 10, 8)
Case DateSerial(inputyear, 11, 1)
Case DateSerial(inputyear, 12, 25)
Case DateSerial(inputyear, 12, 26)
Case Else
ok = False
End Select
holiday = ok
End Function

It appears that you may be over complicating the situation slightly.
Rather than a separate function for the holidays, there is a pre-existing function =Workday that functions similarly. This function uses an array for the holiday values.
Rather than the imbedded dates within the VBA, I'd recommend setting those to another worksheet, and name the array of holidays (for however many years of data you have), as "Holidays"
Then using Bob Phillip's equation, you can get what you're looking for within the employee data worksheet.

Originally Posted by Miraun

It appears that you may be over complicating the situation slightly.
Rather than a separate function for the holidays, there is a pre-existing function =Workday that functions similarly. This function uses an array for the holiday values.
Rather than the imbedded dates within the VBA, I'd recommend setting those to another worksheet, and name the array of holidays (for however many years of data you have), as "Holidays"
Then using Bob Phillip's equation, you can get what you're looking for within the employee data worksheet.

OK, I'll make a separate table with a list of holidays, but would like to know how to implement a written VBA code in the formula.

Originally Posted by barkarlo

OK, I'll make a separate table with a list of holidays, but would like to know how to implement a written VBA code in the formula.

Why do you insist on that unnecessary step?