perl - 如何在Perl中将日期四舍五入到最近的15分钟间隔？

Question

我想将当前时间四舍五入到最接近的15分钟间隔，因此如果当前是6:07，它将读取6:15作为开始时间。

我怎样才能做到这一点？

Answer 1

您可以将时间分为几小时和几分钟，然后使用ceil函数，如下所示:

use POSIX;

my ($hr,$min) = split/:/,$time;    
my $rounded_min = ceil($min/15) * 15;

if($rounded_min == 60) {
   $rounded_min = 0;
   $hr++;
   $hr = 0 if($hr == 24); 
}