my $value = $obj->method_call();
  if( ref($value) eq 'Win32::OLE::Variant' and $value->Type == VT_DATE) {
    return $value->Date( 'yyyy/MM/dd' );
  }
  return $value;

##</code><code>##

  my $datestamp = $value->Date( 'yyyy/MM/dd hh:mm:ss' );