Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
for (@secs) {
  printf("%s%02d:%02d:%02d:%02d\n", $_ < 0 ? '-' : '', Delta_DHMS(Time
+_to_Date(0), Time_to_Date(abs($_))));
}

Select or download this

sub time_remaining {
  my $input_seconds = shift;
  return sprintf(("%s%02d:%02d:%02d:%02d", $input_seconds < 0 ? '-' : 
+'', Delta_DHMS(Time_to_Date(0), Time_to_Date(abs($input_seconds))));
}