How translate datetime in Win32::OLE

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

Hi Monks,

I need to pass a Win32 Date variant to a OLEobjct method.

Sadly, Win32::OLE doc don't tell me how translate date with time string into Date variant.

 use Win32::OLE::Variant;

print Variant(VT_DATE, '2000-01-01') # print 2000-01-01
print Variant(VT_DATE, '2000-01-01 10:00') #ditto
[download]

How can I convert a long datetime to Variant date? thanks.

I am trying to improve my English skills, if you see a mistake please feel free to reply or /msg me a correction

Comment on How translate datetime in Win32::OLE Download Code

Replies are listed 'Best First'.
Re: How translate datetime in Win32::OLE by ww (Archbishop) on Jul 03, 2010 at 11:59 UTC
BrowserUk's critique (below) is well taken. Nonetheless: CPAN. Search ~~the "Date::..." and "Date..."~~ Variant realm; specifically http://cpansearch.perl.org/src/JDB/Win32-OLE-0.1709/lib/Win32/OLE/Variant.pm. (Also on ActiveState's repository for d/l and install using `ppm`. Also see: Win32::OLE::Variant - Create and modify OLE VARIANT variables Jan Dubois' explanations: http://www.foo.be/docs/tpj/issues/vol3_2/tpj0302-0008.html O'Reilly's Perl in a Nutshell, chapt 19. O'Reilly's http://aspn.activestate.com/ASPN/CodeDoc/libwin32/OLE/Win32/OLE/NEWS.html etc. This is NOT a question you should have needed to ask after your nearly five years here.	[reply] [d/l]
Re^2: How translate datetime in Win32::OLE by BrowserUk (Patriarch) on Jul 03, 2010 at 13:01 UTC
This is NOT a question you should have needed to ask after your nearly five years here. After seeing http://gallery.technet.microsoft.com/ScriptCenter/en-us/92a84c4d-b232-4b83-8b4d-4abec6662172, & http://msdn.microsoft.com/en-us/library/aa380072(VS.85).aspx, you might reconsider. Of course, you might have found something special amongst those CPAN name spaces that I've missed, (but I doubt it). Think twice before making assumptions about "Date"s, when "Win32" (and especially "OLE") is also involved. Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. RIP an inspiration; A true Folk's Guy	[reply]