use Date::Manip;
$date=&ParseDate("today");
$delta=&DateCalc($hochzeitsdatum,$date,\$err,1);
($dummy1, $dummy2, $weeks, $days, $hours, $minutes, $seconds) = split(/:/,$delta);

#einfache Umrechungen:
$newdays=($weeks*7)+$days;
$newhours=($newdays*24)+$hours;
#usw.
#Zeitzonen beachten!

HTH.