use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(isotime);

sub export_fibunet_zeit($) {
	my($d) = @_;
	return "0" unless $d;
	my(undef,undef,undef,$h,$m) = isotime($d);
	$h = "0$h" if length($h) == 1;
	$m = "0$m" if length($m) == 1;
	"$h:$m";
}
1;
