DateSerial Win32::OLE

Dharma Karma has asked for the wisdom of the Perl Monks concerning the following question:

Monks: I am trying to use the M$ OLE function DateSerial to assemble dates for an Outlook automation script. Basically, I want to use this function to assemble dates parsed from a text file to create new appointment entries. Everything works, but I cannot figure out how to call the DateSerial function...

Comment on DateSerial Win32::OLE

Replies are listed 'Best First'.
Re: DateSerial Win32::OLE by jand (Friar) on May 25, 2003 at 17:00 UTC
DateSerial is not an OLE function (there is not such thing as an OLE function anyways, they are all methods on an object), it is a builtin VBScript function. You cannot access it from Perl as far as I know. However, you can emulate the function using Win32::OLE like this: `use Win32::OLE::Variant; sub DateSerial { my($year,$month,$day) = @_; return Variant(VT_BSTR, "$month/$day/$year")->As(VT_DATE); }` [download] This will only work if you are using the English locale settings; otherwise the string format of the date may be different. You can force the locale used by Win32::OLE to English like this: `use Win32::OLE::NLS qw(:DEFAULT :LANG :SUBLANG); my $english = MAKELCID( MAKELANGID(LANG_ENGLISH, SUBLANG_NEUTRAL) ); Win32::OLE->Option(LCID => $english);` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: DateSerial Win32::OLE
by jand (Friar) on May 25, 2003 at 17:00 UTC

  use Win32::OLE::Variant;

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

  use Win32::OLE::NLS qw(:DEFAULT :LANG :SUBLANG);

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

[reply]
[d/l]
[select]