round time down to next minute

Round the time (in seconds) down to the minute. If the time is already an even minute, nothing is changed.

Download timefloor.zip

Synopsis:

timefloor.pl

timefloor.pl Synopsis

#round down to the nearest minute, exact minutes stay where they are # input parameter is a time in epoch seconds, e.g. time() sub TimeFloor($) { my ($t) = @_; return $t - $t % 60; } #-- unit tests sub test_timefloor() { ut::assert(TimeFloor(599), 540); ut::assert(TimeFloor(600), 600); ut::assert(TimeFloor(601), 600); } 1;