Zeitangaben addieren: h:min + h:min = ? - #71836 (Allgemeines zu Perl)

bloonix

2006-11-23 18:33

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=docsnyder,23.11.2006, 13:31]

Code: (dl )

sub addTimes {
  return(sprintf("%d %d:%d:%d", $d=int(($ts=((@ta=split(':', $_[0]))[0]*3600+$ta[1]*60+$ta[2]+(@tb=split(':', $_[1]))[0]*3600+$tb[1]*60+$tb[2]))/86400), $h=int(($ts=$ts-($d*86400))/3600), $m=int(($ts=$ts-($h*3600))/60),$s=int(($ts=$ts-($m*60))/60)));
}

print addTimes('13:45:23', '14:12:43') . "\n";

[/quote]
Aber nicht ...

Code: (dl )

print addTimes('13:45:23', '14:12:43', '15:21:23') . "\n";

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.