Results 1 to 4 of 4
  1. #1
    Lounger
    Join Date
    Jun 2003
    Location
    New York, USA
    Posts
    28
    Thanks
    0
    Thanked 0 Times in 0 Posts

    GetWorkDays - HELP (2000)

    Greetings!
    Have a module called GetWorkDays. This function counts business days (excludes defined Holidays and weekends) -- Thanks to MarkD. As it is now, any calculation run includes StartDay as day 1.

    The Powers That Be have decided they do not want to count StartDay as 1 day. They'd like to start counting day 1 as the NEXT business day after StartDay.

    I need help modifying the code. I've attached the entire Module as a text file.

    Please let me know if you need further clairfication.

    Thanks in advance!
    Attached Files Attached Files

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: GetWorkDays - HELP (2000)

    That's simple: add the following instruction at the beginning of GetWorkDays, after the Dim statements, but before lngWeeks = ...:

    StartDate = StartDate + 1

    This will make the count start from the day after StartDay instead of from StartDay itself.

  3. #3
    Lounger
    Join Date
    Jun 2003
    Location
    New York, USA
    Posts
    28
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: GetWorkDays - HELP (2000)

    Thanks Hans! Works like a charm.

  4. #4
    Lounger
    Join Date
    Jun 2003
    Location
    New York, USA
    Posts
    28
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: GetWorkDays - HELP (2000)

    Had another question. Figured it out. Post Deleted.

    Thanks!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •