Set Date diff format in Crystal Report Functions

There is the situation,

as default, the End Date minus Start Date is a float number means days value,

mostly,want it show as 'DD HH-MM-SS' format,

below functions can do this job, but the input is a second value.

---------------------------------------------------------------------

Function (numbervar number)

numbervar z:= Truncate(number/86400);

numbervar a:= Truncate((number-86400*z)/3600);

numbervar b:= Truncate((number-86400*z-3600*a)/60);

numbervar c:= Truncate(number-86400*z-3600*a-60*b);

totext(z,0)+" "+totext(time(a,b,c),"H:mm:ss")

---------------------------------------------------------------

so simple, so amazing !