Sélectionner une révision Git
-
hieda_kyuko@hpr a rédigéhieda_kyuko@hpr a rédigé
TimeUtils.pm 479 o
package TimeUtils;
use strict;
use warnings;
sub format_time
{
my $time = $_[0];
return sprintf "%02d:%02d", ($time / 100), (substr $time, -2);
}
sub format_time_simple
{
my $time = $_[0];
return sprintf "%d:%02d", ($time / 100), (substr $time, -2);
}
sub subtract_from
{
# Syntax: subtract $a from $b
my ($a, $b) = @_;
my $diff = int($b / 100) * 60 + $b % 100 - int($a / 100) * 60 - $a % 100;
return int($diff / 60) * 100 + $diff % 60;
}
1;