Skip to content
Extraits de code Groupes Projets
Sélectionner une révision Git
  • ba143c611c83acf4ab09535da5573db525494077
  • main par défaut protégée
2 résultats

TimeUtils.pm

Blame
  • 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;