WhilePrintingRecords;
NumberVar TotalSec := {YourTable.TotalSeconds};NumberVar Days := Truncate (TotalSec / 86400);
NumberVar Hours := Truncate (Remainder ( TotalSec , 86400) / 3600) ;
NumberVar Minutes := Truncate (Remainder ( TotalSec , 3600) / 60) ;
NumberVar Seconds := Remainder (TotalSec , 60) ;Totext ( Days , '##' ) + ':' +
Totext ( Hours , '00' ) + ':' +
Totext ( Minutes , '00' ) + ':' +
Totext ( Seconds , '00' )
If you want
to display only in hours and minutes you should use this version:
WhilePrintingRecords;
NumberVar TotalSec := {YourTable.TotalSeconds};
NumberVar Hours := Truncate ( TotalSec / 3600);
NumberVar Minutes := Truncate (Remainder ( TotalSec,3600) / 60);
Totext ( Hours, '####') + ':'+
Totext ( Minutes,'00')