Time attendance database and coding

neo_jakey · August 13th, 2004, 08:35 AM

Hi all,

I am really stuck today and can use all your help on this subject.

I am making kinda like a punch-in card for work which will register your time of arrive and departure. I have a small system working in that the employee has an ID number and then when they log in with the EmployeeID and Password the database records the date and the time of arrival, then when they log out it records the exit time and then works out the amount of hours and minutes worked today.

However the problem arises when I want to call up a complete week or month. Our company doesn't work on a Sunday. For example if I call up the weeks information and it happens to be wednesday. I want it display the next 3 days (Thurs, Fri and Saturday) which will be empty cos they are in the future and the first 4 days (Sun, Mon, tue and wed). What I want to know is how can I extract this data. My TABLE consists of the following fields: EmployeeID, Date, TimeIn, TimeOut, HoursWorked, MinutesWorked.

I have been thinking about using the day indentifier which gives you a numeric for that day(eg. sun=0, mon=1 etc) but what happens when tuesday falls on the first of the month.

Are there any simpler ways to resolve this problem. Any ideas or feedback will be greatly recieved.

With many thanks for all your assistance and time,

Paul

ChrisScott · August 13th, 2004, 11:36 AM

Hi Paul,

Are you building the query in asp or the database?

Which database & asp language are you using?

Thanks,

Chris

neo_jakey · August 13th, 2004, 11:47 AM

Hi Chris,

I am building the query with regular microsoft ASP language with VBScript. I am using Microsoft Access XP (2002) for the storage of the data.

Paul

ChrisScott · August 13th, 2004, 12:23 PM

Hi Paul,

This will return you the current week...

Code:

Dim currDate: currDate = Date()
Dim dayOfWeek: dayOfWeek = WeekDay(currDate, vbSunday)
Dim query
query = "SELECT * FROM yourtable WHERE [Date] BETWEEN #" & DateAdd("d", -dayOfWeek + 1, currDate) & "# " & _
        " AND #" & DateAdd("d", 7 - dayOfWeek, currDate) & "#;"
dayOfWeek, currDate) & "#;"

is this what you want or do you need to exclude days in months other than the current one?

Cheers,

Chris

neo_jakey · August 13th, 2004, 04:45 PM

Hi Chris,

So far so good, what I want to do now is list the days of the week individually Monday through Saturday, displaying the following data for each day: entrytime, ExitTime, HoursWorked, MinutesWorked

I guess I will need to make a loop of some kind just not quite sure how to structure it. Any help would be very much appreciated.

Thanks again for your help.

Paul

happygv · August 13th, 2004, 04:57 PM

Hi Paul,

Code should look something like this.

Code:

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

rs.Open query, Conn

If not rs.EOF Then
    While not rs.EOF then
        Response.write rs("Date") & " "
        Response.write rs("TimeIn") & " "
        Response.write rs("TimeOut") & " "
        Response.write rs("HoursWorked") & " "
        Response.write rs("MinutesWorked") & " "
    Wend
Else
Response.write "Records not found..."
End If

Hope that helps.
Cheers!

_________________________
- Vijay G
Strive for Perfection

paul11 · August 17th, 2007, 02:24 AM

Quote:

quote:
Dim currDate: currDate = Date()
Dim dayOfWeek: dayOfWeek = WeekDay(currDate, vbSunday)
Dim query
query = "SELECT * FROM yourtable WHERE [Date] BETWEEN #" & DateAdd("d", -dayOfWeek + 1, currDate) & "# " & _
" AND #" & DateAdd("d", 7 - dayOfWeek, currDate) & "#;"
dayOfWeek, currDate) & "#;"

3 line returning error ,check it

PAUL