Ken Cornetet wrote:
> Here's my filetime to epoch conversion code (it is a bit shorter):
>
> sub vtfiletime {
> my $vt = shift;
What's $vt ? There should be 2 32-bit integers coming in.
> $vt = substr($vt, 0, 11); # strip off anything
> past seconds
> $vt -= 11644473600; # change offset to jan
> 1, 1970
> return $vt;
> }
--
,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
