Help for this page

Select Code to Download


  1. or download this
      use Win32::OLE::Variant;

...
      my($year,$month,$day) = @_;
      return Variant(VT_BSTR, "$month/$day/$year")->As(VT_DATE);
  }
  2. or download this
      use Win32::OLE::NLS qw(:DEFAULT :LANG :SUBLANG);

  my $english = MAKELCID( MAKELANGID(LANG_ENGLISH, SUBLANG_NEUTRAL) );
  Win32::OLE->Option(LCID => $english);