• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 223
  • Last Modified:

Getting Weekly reports

I have a random access database with dates. I would like to do a weekly report but I am stuck on how to translate from dates to weeks. I am using VB4-16 bit.
Any Thoughts...
With code please...
0
dtucker
Asked:
dtucker
1 Solution
 
EklipseCommented:
I suggest this code.With it ,you'll obtain the week's limits and then you can build the reports.
Note: I don't have a way to know if the commands DatePArt and DateAdd exist in VB4
If they don't ,this answer is useless...

Steps:
Create a new project,drop this code:

Option Explicit

Private Sub Form_Load()
Dim First As Date, Last As Date
GiveMeWeek Now(), First, Last 'Now is a parameter value by example.

End Sub

Sub GiveMeWeek(DaySearch As Date, FirstDayWeek As Date, LastDayWeek As Date)
Dim Daynumber%
Daynumber = DatePart("w", DaySearch) 'Give me the day number within the week
'So,we can calculate the first day of this week with...
FirstDayWeek = DateAdd("d", -Daynumber, DaySearch)
'and the last
LastDayWeek = DateAdd("d", 7 - Daynumber, DaySearch)
'Note:weeks are from Sunday to saturday.In other countries,weeks are from monday to 'sunday.to adapt to other country,I think that you have to add 1 to daynumber
End Sub

I hope this helps you
Good Luck
Fer
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.

Join & Write a Comment

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now