Go Back   TechArena Community > Software > Software Development
Become a Member!
Forgot your username/password?
Tags Active Topics RSS Search Mark Forums Read

Reply
 
Thread Tools Search this Thread
  #1  
Old 21-03-2009
Member
 
Join Date: Dec 2008
Posts: 137
Help with Application.Worksheet Function

Hi friends,

I am facing an issue with Application.WorksheetFunction.WorkDay function.When i am trying to use the same code in Excel 2000 i am not able to use the soem functions in it.

Following is the code

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
Reply With Quote
  #2  
Old 21-03-2009
Member
 
Join Date: Dec 2008
Posts: 128
Re: Help with Application.Worksheet Function

Sure i will help you out with this try to make a reference to atpvbaen.xls


Intel Dual core 2.66 Ghz
915 MSI Motherboard with Intel chipset
512 mb RAM
80gb HDD
Reply With Quote
  #3  
Old 21-03-2009
Member
 
Join Date: Dec 2008
Posts: 137
Re: Help with Application.Worksheet Function

I try to made a reference to atpvbaen.xls after that what i need to do
Reply With Quote
  #4  
Old 21-03-2009
Member
 
Join Date: Dec 2008
Posts: 128
Re: Help with Application.Worksheet Function

I forget to tell you, now remove:

Application.WorksheetFunction.

before Wrkday.


Intel Dual core 2.66 Ghz
915 MSI Motherboard with Intel chipset
512 mb RAM
80gb HDD
Reply With Quote
Reply

  TechArena Community > Software > Software Development
Tags: , , ,



Thread Tools Search this Thread
Search this Thread:

Advanced Search


Similar Threads for: "Help with Application.Worksheet Function"
Thread Thread Starter Forum Replies Last Post
Clicking on Worksheet on multiple Worksheets in the single Excel file not allow viewing the worksheet in Microsoft Excel 2010 Dipanwita Windows Software 8 04-12-2011 11:24 AM
WiMPlay 2.5.0 application not able to function Appaji Windows Software 5 28-03-2010 05:30 AM
KLAVAR! 0.7 application is not able to function Aashirya Windows Software 6 23-03-2010 04:42 PM
Fast-Help 6.0.0.0 application not able to function Kaufman Windows Software 5 20-03-2010 05:59 AM
AsideBar 4.1.4 application not able to function Ransom Windows Software 5 16-03-2010 03:33 AM


All times are GMT +5.5. The time now is 11:01 AM.