00/01/1900  00:31:00

##</code><code>##

if ( ref( $value ) =~ /Variant/ ){
  if ( $iRef == 4 || $iRef == 6 ){
    $value = $value->Date( "dd/MM/yy" );
  } elsif ( $iRef == 5 || $iRef == 7 ){
    $value = $value->Time( "hh:mm:ss" );
  }
}
if ( $values ne "" && $value =~ /^\d?\.\d*$/ ){
  print $value;
  my $seconds = $value * 60 * 60 * 24;
  print $seconds;
  my ( undef, undef, undef, $hour,$min,$sec)=   Date::Calc::Add_Delta_DHMS( 1900, 1, 1, 0, 0, 0, 0,0,0, $seconds);
$value = sprintf( "%02u:%02u:%02u", $hour, $min, $sec );
}