Duration between working days

Question

Hi !
Need your help on this one,
I need to calculate the duration since the opening ticket until currentDateTime but considering the service hour ex:
Service hours is sunday to saturday from 8h00 to 21h00 so 46800 sec per working days
Ticket opening is from 2012-02-03 09:00:00 to currentdatetime (ex:11h), = 2days,6hours,0min,0sec
I will appreciate if someone can help me on this one, I 've already spent a lot of time on this one,but now i'm a little confused
Thanks in advance

Answer 1

Hi Diane,
Create 2 formula as below:
Formula1: Exact Date:
if ctime({Sheet1_.Date})>Ctime(21,0,0) then cdate({Sheet1_.Date})+1&' '&Ctime(8,0,0) else totext({Sheet1_.Date})
Where in {Sheet1.Date} can be replaced by your date field.
Formula2: Date Diff:
WhilePrintingRecords;
numbervar tot_days_to_sec;
numbervar tot_time_to_sec;
numbervar tot_sec;
//Converts Date Field to Seconds
tot_days_to_sec := floor(CurrentDateTime-DateTime (Date({@Exact Date}),Time({@Exact Date}))) * 46800;
//Converts Time Field to Seconds
tot_time_to_sec := CurrentTime -time({@Exact Date});
//Adds total seconds
tot_sec := tot_days_to_sec + tot_time_to_sec;
// Converts Total Seconds to Days and Time
NumberVar Days    := Truncate  (tot_sec / 86400);
NumberVar Hours   := Truncate  (Remainder ( tot_sec , 86400) / 3600) ;
NumberVar Minutes := Truncate  (Remainder ( tot_sec , 3600) / 60) ;
NumberVar Seconds := Remainder (tot_sec , 60) ;
if Days=1 then Totext ( Days ,    '####' ) +  ' Day   ' + Totext ( Hours ,   '00' ) +  ':' + Totext (Minutes, '00' ) +  ':' + Totext ( Seconds , '00' )
else Totext ( Days ,    '####' ) +  ' Days  ' + Totext ( Hours ,   '00' ) +  ':' + Totext ( Minutes , '00' ) +  ':' + Totext ( Seconds, '00' );
Hope this works,
- Kiran
Edited by: Kiran Suravajhala on Feb 7, 2012 7:17 PM