Forum Discussion

Copper Contributor

Nov 24, 2022

Taking 30 minutes off a time

I am working on a time management system and need to deduct 30 minutes for break time. I cannot seem to get it to work any way I have tried. Can someone please help? So far, I have got it to work o...

access

developer

Karl_Donaubauer

MVP

Nov 24, 2022

Hi,

If it is really just about what you have in the subject, then

DateAdd("n","-30", [YourTimeField])

Servus
Karl
************
Access News
Access DevCon

Sullster47

Copper Contributor

Nov 24, 2022

I have the start time and the finish time and have then worked out the hours worked. (08:00-16:00 = 8). This is held in another field for ease. I then need to take off x minutes depending on customer.
I have brough through the customers minutes to be deducted.

Set Thisdb = CurrentDb
Set Recs = Thisdb.OpenRecordset("QryCustomersDepotsSingleDepot", dbOpenDynaset)
Set Bookings = Thisdb.OpenRecordset("QryBookingSingleBooking", dbOpenDynaset)
Set UpdateHrs = Thisdb.OpenRecordset("QryTimeDiffUpdate", dbOpenDynaset)

UpdateHrs.MoveFirst
HrsLeft = UpdateHrs!Hrs

Recs.MoveFirst
ThisCustomer = Bookings!BCustomer

Set CDBreak = Thisdb.OpenRecordset("QryCustomerDepotsSingleDepot", dbOpenDynaset)

RateTimeStart = Recs!CDWHRate1Text
RateTimeEnd = Recs!CDWHRate2Text
CDBreak.MoveFirst

BreakTime = CDBreak!CDBreakTimeDed

If BreakTime = "0.5" Then
BreakTimeMins = "00:30"
Dateadd("n",-30,[hrsleft])

Thanks for your help Karl