Solved

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

Posted on 2009-05-15
4
1,237 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
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

Creating Instructional Tutorials  

For Any Use & On Any Platform

Contextual Guidance at the moment of need helps your employees/users adopt software o& achieve even the most complex tasks instantly. Boost knowledge retention, software adoption & employee engagement with easy solution.

Question has a verified solution.

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

Suggested Solutions

It’s been over a month into 2017, and there is already a sophisticated Gmail phishing email making it rounds. New techniques and tactics, have given hackers a way to authentically impersonate your contacts.How it Works The attack works by targeti…
You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
Familiarize people with the process of utilizing SQL Server views from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Access…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

739 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