use DateTime::Format::WindowsFileTime; my $dt = DateTime::Format::WindowsFileTime->parse_datetime( '01C4FA8464623000' ); # $dt is a regular DateTime object print "$dt\n"; # yields '2005-01-15T03:00:00'
Converts a Windows FILETIME into a DateTime object. The Windows FILETIME structure holds a date and time associated with a file. The structure identifies a 64-bit integer specifying the number of 100-nanosecond intervals which have passed since January 1, 1601.
None by default.
Is called as a class method (use the arrow) and takes a string representing the windows filetime hex value as it's sole argument. Returns a DateTime object.
Note: don't pass it a hex number in perl (eg. 0x01c4fa8464623000). Just a string.
Doug wrote the guts to the method, Jim just surrounded it with what h2xs pukes out, and published it.
Thanks to Robert A. Lerche for finding a bug and recommending the fix.
Jim, <jg.perl@thegarvin.com>, Doug, <df.cpan@feuerbach.net>
Copyright (C) 2005 by Jim
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of Perl 5 you may have available.