yuryyuryyury
New Member
- Joined
- Jul 3, 2007
- Messages
- 19
I posted this question here: http://www.excelforum.com/showthread.php?t=606867 But haven't gotten any replies. Maybe someone here can help?
Here is some code that I am using to define some holidays:
This last portion, NEXTTRADEDAY, worked on excel 2007, but doesn't work on excel 2002. What method does excel 2002 prefer to call up analysis tool pack functions?[/code]
Here is some code that I am using to define some holidays:
Code:
Dim holidayDictionary As Object
Sub LoadHolidays()
If (holidayDictionary Is Nothing) Then
Set holidayDictionary = CreateObject("Scripting.Dictionary")
holidayDictionary.Add #7/4/2007#, Null
'more holidays can be entered here
End If
End Sub
Function ISHOLIDAY(d As Date)
LoadHolidays
ISHOLIDAY = holidayDictionary.Exists(d)
End Function
Function ISWORKDAY(d As Date)
Dim weekday As Integer
weekday = DatePart("w", d, vbUseSystemDayOfWeek, vbUseSystem)
If ((weekday = vbSaturday) Or (weekday = vbSunday)) Then
ISWORKDAY = False
Else
ISWORKDAY = Not ISHOLIDAY(d)
End If
End Function
Function NEXTTRADEDAY(d As Date, numOfDays As Integer) As Double
'Set holidayDictionary = Nothing
LoadHolidays
NEXTTRADEDAY = Application.WorksheetFunction.WorkDay(d, numOfDays, holidayDictionary.Keys)
End Function
This last portion, NEXTTRADEDAY, worked on excel 2007, but doesn't work on excel 2002. What method does excel 2002 prefer to call up analysis tool pack functions?[/code]