Solved

How to get number of weeks and days between two dates in Access VBA

Posted on 2009-05-15
4
1,233 Views
Last Modified: 2013-11-27
I would like code that will show the number of weeks and days between two dates.  For example - April 8, 2009 (wed) through May 11, 2009 (Mon) would show 4 weeks 5 days.

The 4 would be stored in a field called weeks and the 5 would be stored in days, or even catenate them as a value "4 weeks 5 days" in a database field.  This solution is needed for calendar days; however, it would also be neat to know it on a work week (M-F) type and become 4 weeks and 3 days.

Another way to state this:  (This should count the number of Wednesdays [4/15, 4/22, 4/29, 5/06] = 4 WEEKS coming up to May 11 and adds the remaining days to get to that date as days THURS [5/07], FRIDAY[5/08], SAT[5/09], SUN[5/10], MON-[5/11 target date] (5 days) CALENDAR type and a solution for the optional way THURS [5/07], FRIDAY[5/08], MON-[5/11 target date] (3 days) for WORK WEEK type.)

Any ideas and workable sub/function would be great.
0
Comment
Question by:HRISTeam
4 Comments
 
LVL 92

Assisted Solution

by:Patrick Matthews
Patrick Matthews earned 100 total points
ID: 24397330
Hello HRISTeam,

Assuming your dates have no time portions...

SELECT Date1, Date2, Int(DateDiff("d", Date1, Date2) / 7) & " weeks " & (DateDiff("d", Date1, Date2) Mod 7) & " days"
FROM SomeTable

Regards,

Patrick
0
 
LVL 65

Assisted Solution

by:rockiroads
rockiroads earned 100 total points
ID: 24397351
You could use DateDiff to return the number of days

syntax is

DateDiff("d", firstdate, seconddate)

Given this you can then divide by 7 to get weeks and remainder is days

eg using d1 and d2 as dates

NumberOfWeeks = Round((DateDiff("d", d1, d2) / 7) - 0.5)
NumberOfDays = DateDiff("d", d1, d2) Mod 7
0
 
LVL 44

Assisted Solution

by:GRayL
GRayL earned 100 total points
ID: 24397370
try this:

datediff("d",#04-08#,#05-11#)\7 & " weeks " & datediff("d",#04-08#,#05-11#) mod 7 & " days "

0
 
LVL 1

Accepted Solution

by:
HRISTeam earned 0 total points
ID: 24397577
Thanks for the fast response.  I will try each of them alittle later (have a meeting to go to which could be long), if they all work, you all will get some points.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

'Between' is such a common word we rarely think about it but in SQL it has a very specific definition we should be aware of. While most database vendors will have their own unique phrases to describe it (see references at end) the concept in common …
This article describes how to use the timestamp of existing data in a database to allow Tableau to calculate the prior work day instead of relying on case statements or if statements to calculate the days of the week.
Familiarize people with the process of retrieving data from SQL Server using an Access pass-thru query. Microsoft Access is a very powerful client/server development tool. One of the ways that you can retrieve data from a SQL Server is by using a pa…
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.

914 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now