Time duration formula help

Question

Post Author: ztruelove
CA Forum: Formula
I am needing to run a monthly report that shows how many hours our company cars have been "checked out" for that particular month. Each record has a "check out date" field in the format YYYY-MM-DD and a "check out time" field in the format 17:00:00  (and two more fields for check in date and time).  My questions are...
1) How do I extract only the hours for the month I'm reporting on?  Say I'm reporting on October, and the car was checked out on September 29th and returned on October 2nd...how do I just pull the October hours?
2) I just want to see "business hours" of 08:00 - 17:00.  So if the car was checked out on Friday, October 5th at 17:01 and checked back in on Tuesday, October 9 at 12:00, I would want to see a duration of 13 hours (9 hours from Monday and 4 hours from Tuesday).
Any suggestions or assistance is greatly appreciated.

Answer 1

Post Author: V361
CA Forum: Formula
You will need to modify the formula, I stole this from another post.
WhilePrintingRecords;
DateTimeVar FDay := {?Start Date};DateTimeVar LDay := {?End Date};
TimeVar BusinessStartTime := TimeValue("8:00");TimeVar BusinessEndTime := TimeValue("17:00");
NumberVar BSTime;NumberVar BETime;NumberVar Days;NumberVar Weekends;NumberVar FinalDays;DateVar StartDate;DateVar EndDate;NumberVar HalfDays;NumberVar FullDays;NumberVar Hours;
//Assign Business Start Time and Business End TimeBSTime := hour(BusinessStartTime) + (minute(BusinessStartTime) / 60);BETime := hour(BusinessEndTime) + (minute(BusinessEndTime) / 60);
//Check if Start Date and End Date fall within "Business Hours"if hour(FDay) in BSTime to BETime    then FDay := FDayelse if hour (FDay) > BETime    then FDay := datetime(date(FDay) + 1, BusinessStartTime)else if hour(FDay) < BSTime    then FDay := datetime(date(FDay), BusinessStartTime);
if hour(LDay) in BSTime to BETime    then LDay := LDayelse if hour(LDay) > BETime    then LDay := datetime(date(LDay),BusinessEndTime)else if hour(LDay) < BSTime    then LDay := datetime(date(LDay) - 1, BusinessEndTime);
//Check if Start Date and/or End Date falls on a weekendif DayOfWeek(FDay) = 7    then StartDate := date(FDay) + 2else if DayOfWeek(FDay) = 1    then StartDate := date(FDay) + 1else    StartDate := date(FDay);
if DayOfWeek(LDay) = 7    then EndDate := date(LDay) + 2else if DayOfWeek(LDay) = 1    then EndDate := date(LDay) + 1else    EndDate := date(LDay);
//Calculate # of days including Start Date and End DateDays := (EndDate - StartDate) + 1;
//Calculate # of weekend daysif Days >= 7    then WeekEnds := (Round((Days/7),0))*2else if DayOfWeek(StartDate) > DayOfWeek(EndDate)    then WeekEnds := 2else    WeekEnds := 0;
//Check if last day on a weekend and calculate final # of daysif DayOfWeek(LDay) = 7    then FinalDays := FinalDays - 1;
if DayOfWeek(LDay) = 1    then FinalDays := FinalDays - 2;
FinalDays := Days - Weekends;
//Calculate final # of hoursif FinalDays <= 1    then        (if hour (LDay) <= BETime            then hours := (time(LDay) - time(FDay)) / 3600        else hours := (BusinessEndTime - time(FDay)) / 3600)    else (HalfDays := ((BusinessEndTime - time(FDay)) / 3600 + (time(LDay) - BusinessStartTime) / 3600);        FullDays := (FinalDays - 2) * 9;        Hours := HalfDays + FullDays;        );
hours;