我想将当前时间四舍五入到最接近的15
分钟间隔,因此如果当前是6:07
,它将读取6:15
作为开始时间。
我怎样才能做到这一点?
最佳答案
您可以将时间分为几小时和几分钟,然后使用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);
}
关于perl - 如何在Perl中将日期四舍五入到最近的15分钟间隔?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3907577/