Convert Duration, in milliseconds, to Days, Hours, Mins, Sec

Convert a Duration, in milliseconds, to Days, Hours, Minutes, and Seconds
(without complicated FORMAT commands)

The code below has several assumptions:

1. You want to have easy access to the Days, Hours, Minutes, and Seconds between two DateTime variables.
2. Your start date is a DateTime variable is called vFirstDT.
3. Your end date is a DateTime variable is called vSecondDT;

// Init all vars
// vFirstDT                 // DATETIME
// vSecondDT                // DATETIME
lvDuration := 0;            // DECIMAL
lvSeconds := 0;             // DECIMAL
lvMinutes := 0;             // DECIMAL
lvHours := 0;               // DECIMAL
lvDays := 0;                // DECIMAL
datestr := '';              // TEXT
roundup := '';              // TEXT
rounddown := '';            // TEXT
durstr := '';               // TEXT

// Set our rounding variables
roundup := '>';
rounddown := '<';

// Find the duration between two DateTime objects, in milliseconds
lvDuration := vSecondDT - vFirstDT;

// Convert the Duration to Days, Hours, Minutes, and Seconds. Milliseconds? Fuggetaboutit!
lvDuration := lvDuration / 1000;
lvDays := ROUND((lvDuration / 86400), 1, rounddown);
lvHours := ROUND(((lvDuration - (lvDays * 86400)) / 3600), 1, rounddown);
lvMinutes := ROUND(((lvDuration - (lvDays * 86400) - (lvHours * 3600)) / 60), 1, rounddown);
lvSeconds := ROUND(((lvDuration - (lvDays * 86400) - (lvHours * 3600) - (lvMinutes * 60))), 1, rounddown);

// Set some output in a human-readable format
datestr := FORMAT(lvDays) + 'D ';
datestr := datestr + FORMAT(lvHours) + 'H ';
datestr := datestr + FORMAT(lvMinutes) + 'M ';
datestr := datestr + FORMAT(lvSeconds) + 'S';

// return the duration string
durstr := datestr;

Enjoy!
-Sam