use Win32::OLE::Variant;

  sub DateSerial {
      my($year,$month,$day) = @_;
      return Variant(VT_BSTR, "$month/$day/$year")->As(VT_DATE);
  }