Computing number of days between 2 dates not counting the weekends.

Hi,
I'm quite new to the world of VBA so any help you could extend will help me a lot with my project.

I have a database of Change Requests from our users. I have two date boxes, one is Date Request Raised and Deadline for Entry. What I'd like to happen is when I enter the date on the Date Request Raised the Deadline for Entry would automatically be filled based on the Asset type that was selected.

For example:
if the asset type = 2 then the Deadline for Entry would only be a day from when the request was raised. If the asset type is <> 2 then the deadline for entry would be 5 working days from the day the request was raised where the weekend days are not counted.

I saw a module for just counting the weekdays but I just dont know where and how I can use the module with the DateAdd function for the situation i mentioned above.

If you can provide me with a solution and guide me as well as to where I should put the code in (i.e., Before Update, OnClick etc.), I'd really appreciate it.

Many thanks.

Sep 19 '08 #1

Subscribe Post Reply

2824

FishVal

2,653

Expert 2GB

Something like this:

Expand|Select|Wrap|Line Numbers

 
Public Function WorkDays(dteStart, dteEnd, _

                         Optional dowFirstDayOff As VbDayOfWeek = vbSaturday, _

                         Optional lngDaysOffCount As Long = 2) As Long
 
    Dim lngDaysOff As Long

    Dim dteFirstDayOff As Date
 
    'calculate total days inclusively

    WorkDays = DateDiff("d", dteStart, dteEnd) + 1
 
    'subtract days off count moving [dteStart] forward [lngDaysOffCount] times

    For i = 0 To lngDaysOffCount - 1
 
        'find first day off date in the range

        If Weekday(dteStart + i, dowFirstDayOff) > lngDaysOffCount Then

            dteFirstDayOff = dteStart + i + 7 - Weekday(dteStart + i, dowFirstDayOff) + 1

        Else

            dteFirstDayOff = dteStart + i

        End If
 
        'exit in a case [dteFirstDayOff] got out of the range

        If dteFirstDayOff + i > dteEnd Then Exit Function

        'calculate [dteFirstDayOff] weekdays in the range and subtract from the total days

        WorkDays = WorkDays - DateDiff("w", dteFirstDayOff + i, dteEnd) - 1
 
    Next i
 
End Function

Regards,
Fish

Sep 19 '08 #2

FishVal

2,653

Expert 2GB

Bugfix:
Line #23 "+i" has to be removed.

Sep 19 '08 #3

by: John | last post by:

hey all..... alright, I am frusterated to the point of throwing my machine out the window (this board went down, trying to find stuff on google, this has been a nightmare) so I hope you guys can...

ASP / Active Server Pages

Date Problem - How to identify working days only

by: BlackFireNova | last post by:

I need to write a report in which one part shows a count of how many total records fall within the working days (Monday - Friday) inside of a (prompted) given date range, in a particular...

Microsoft Access / VBA

adding days to a date, bypass weekends

by: dhnriverside | last post by:

Hi I have a date in UK Format (dd/mm/yyyy). I want to get a series of days after that date, but NOT Saturday or Sunday For example, if the date is 13/12/2004 (next Monday) and I get the next 9...

ASP.NET

Date from Number of Days

by: james | last post by:

I have a problem that at first glance seems not that hard to figure out. But, so far, the answer has escaped me. I have an old database file that has the date(s) stored in it as number of days. An...

Visual Basic .NET

Calculating number of days between two dates.

by: clintonb | last post by:

I'm looking for a way to calculate the number of days between two dates using standard C++ functions. Would it be as simple as just using the difftime() function and then dividing that result by...

C / C++

adding days to start date

by: =?Utf-8?B?UGF1bA==?= | last post by:

Hi, I have a web application that I need to add 3 days to the Now day, but need to make sure that I skip weekends and holidays. For example if Now is friday, 3 days + now should be tuesday,...

ASP.NET

I need help with calculating business days

by: =?Utf-8?B?QWw=?= | last post by:

I am working in vb2005. how can I calculate business days (not including holidays and weekends) between 2 dates? thanks Al

Visual Basic .NET

count days including weekend

by: Mike | last post by:

I have a routine that's calculating business days but its not counting the weekend days that are between the start date and end date. If my start date is 9/26/08 and my end date is 10/01/08, I...

C# / C Sharp

HowTo: Calculate business days - pure SQL approach.

by: FishVal | last post by:

IMHO, the following is not a how-to-do instruction to solve a particular problem but more a concept-proof stuff demonstrating possibilities of SQL. So, let us say the problem is to calculate...

Microsoft Access / VBA

How to turn on java script in a villaon keypad mobile phone

by: Charles Arthur | last post by:

How do i turn on java script on a villaon, callus and itel keypad mobile phone

Java

Migrating Website to Cloud - Emmanuel Katto

by: emmanuelkatto | last post by:

Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel

General

Navigating the Data Structures and Algorithms (DSA)

by: BarryA | last post by:

What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...

Algorithms / Advanced Math

Is that possible of reading the .csv file in column wise and the column have different lengths ?

by: Sonnysonu | last post by:

This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...

C / C++

What is ONU?

by: marktang | last post by:

ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...

General

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new...

Microsoft Access / VBA

Computing number of days between 2 dates not counting the weekends.

Similar topics