sub dec2time_{
	my $time = shift;
	my $hour = int($time);
	my $nachkomma = ($time - $hour) * 60;
	my $minute = int( $nachkomma);
	my $second = int(( $nachkomma - $minute) *60);
	return sprintf '%02s:%02s:%02s', $hour, $minute, $second;
}