I believe he is right. However, it would appear that MS uses a different epoch than the standard unix (of course). If you've ever entered a date into an Excel sheet and then formatted the cell to be 'General' or 'Text' it converts it to some kind of epoch-like number.
> -----Original Message----- > From: Morse, Richard E. [mailto:[EMAIL PROTECTED]] > Sent: 18 December 2001 15:33 > To: 'Wells, Doug'; '[EMAIL PROTECTED]' > Subject: RE: OLE and Outlook > > > My guess is that you are getting epoch dates -- that is, > offset in seconds from > the computer's epoch. You can test this by getting the date, > then printing the > value of > scalar(localtime($date_val)) > which will attempt to figure out the date from the epoch. > Note that Access may > use a different epoch than the computer (I don't see why it > should, but just in > case...), in which case you may need to do some arithmitic on > the initial value > to get it to the computer's epoch... > > HTH, > Ricky > > -----Original Message----- > From: Wells, Doug [mailto:[EMAIL PROTECTED]] > Sent: Tuesday 18 December 2001 3:04 PM > To: '[EMAIL PROTECTED]' > Subject: OLE and Outlook > > > Hi- > I am using OLE to access information in my Contacts folder in > my Outlook PST > file. All is fine, but I need the last modification > information and I am having > trouble with it. When I access that data, it is a long > integer (possibly a > Julian date?). I am not sure how to interpret it into a > useable date. Can anyone > help? Here is my code: > > use strict; > use Win32::OLE; > use Win32::OLE::Const 'Microsoft Outlook'; > > my $Outlook = Win32::OLE->new('Outlook.Application', 'Quit'); > my $ol = Win32::OLE::Const->Load($Outlook); > > my $namespace = $Outlook->GetNamespace("MAPI"); > my $Folder = $namespace->GetDefaultFolder(olFolderContacts); > > my $contacts = $Folder->{Items}; > my $ncon = $contacts->{Count}; > print "number of contacts - $ncon\n\n"; > > my $con; > for my $ii (1 .. $ncon) { > $con = $contacts->Item($ii); > print "$ii - $con->{FullName}\n"; > print "Phone is $con->{HomeTelephoneNumber}\n"; > print "Last Modified ${$con->{LastModificationTime}}\n"; > } > > Thanks > Doug > _______________________________________________ > Perl-Win32-Users mailing list > [EMAIL PROTECTED] > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users > _______________________________________________ > Perl-Win32-Users mailing list > [EMAIL PROTECTED] > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users > _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
