Access DatePart or DateAdd or Both?

We have in a table a "Created" date.  We want to return a date reflecting only the previous workday.  Meaning, if the date fell on a Sunday, we only want to see the results of the Friday's date.  Therefore, whenever we run this query, it will reflect dates from only the weekday.  

A couple things to note:  We have it configured to a long date (showing the date, hour, and minutes). We have to have this long date feature for other reasons.

When we use the DateAdd or DatePart feature, we seem to get results in the year 1899 or 1900.  What are we doing wrong?

This feature is needed so we can run reports daily to reflect the previous work day's productivity.
kristibigoAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Gustav BrockConnect With a Mentor CIOCommented:
Just wrap your expression in CDate:

CDate(DateDiff("d",DatePart("w",Date()-1,7)>2),DatePart("w",Date(),7)>2))

/gustav
0
 
Raheman M. AbdulSenior Infrastructure Support Analyst & Systems DeveloperCommented:
0
 
kristibigoAuthor Commented:
We were hoping for something a little more simplified than having to use VBA.  We were hoping to use something in the query itself - a function.  e.g., DateDiff("d",DatePart("w",Date()-1,7)>2),DatePart("w",Date(),7)>2) (copied from something else we researched).

However, we don't want the Date difference (resulting in a number), we want the result to be the actual date.

That is, March 13 2011 - 1 (workday) = March 11, 2011 (or 3/11/2011) - Friday's date.
0
What Kind of Coding Program is Right for You?

There are many ways to learn to code these days. From coding bootcamps like Flatiron School to online courses to totally free beginner resources. The best way to learn to code depends on many factors, but the most important one is you. See what course is best for you.

 
kristibigoAuthor Commented:
This still gives us dates from the 1899 year.

We tried your function in the Field section as follows:

Submitted: CDate(DateDiff("d",DatePart("w",[Created]-1,7)>2,DatePart("w",[Created],7)>2))

Because when we put the CDate(DateDiff("d",DatePart("w",[Created]-1,7)>2,DatePart("w",[Created],7)>2)) in the Criteria, we didn't get any results.
0
 
kristibigoAuthor Commented:
Sorry, we put the following in the Criteria:

CDate(DateDiff("d",DatePart("w",Date()-1,7)>2,DatePart("w",Date(),7)>2))

And this gave us zero results.
0
 
kristibigoConnect With a Mentor Author Commented:
We figured it out. The solution would be to have the criteria set to >=DateAdd("w",-1,Date()) And <Date() .
0
 
kristibigoAuthor Commented:
Made error in accepting solution.
0
 
kristibigoAuthor Commented:
Addendum: Upon further review, we discovered the most recent note criteria above does not give us the results we anticipated.  However, the following did work when running data on Sunday:

Field: Created

Criteria:  IIf(Weekday([Master_Pipeline].[Created])=1,DateAdd("d",-2,[Master_Pipeline].[Created]),IIf(Weekday([Master_Pipeline].[Created])=7,DateAdd("d",-1,[Master_Pipeline].[Created]),[Master_Pipeline].[Created])) And >=Date()-2 And <=Date()

Explanation:  If Weekday equals Sunday, show Friday, If Weekday equals Saturday, show Friday, else show the Created date; And where date is greater or equal to two days ago And less or equal to today (to show only the most recent workday's production).

Please reply if you see any issues.
0
 
Gustav BrockCIOCommented:
OK, I see now what you are after.
I guess it could be simplified a lot by having this criteria for [Master_Pipeline].[Created]:

DateAdd("d",IIf(Weekday(Date(),2)>5,5-Weekday(Date(),2),0),Date())

which just subtracts 1 or 2 from today's date should today be Saturday or Sunday. The trick is to use Monday as first day of the week.

/gustav
0
 
kristibigoAuthor Commented:
Problem Solved.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.