Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Difference between two dates in years

by vagabonding electron (Chaplain)
on May 14, 2013 at 16:41 UTC ( #1033522=note: print w/replies, xml ) Need Help??


in reply to Difference between two dates in years

Time::Piece is a core module.

#!/perl use strict; use warnings; use Time::Piece; my $datt = Time::Piece->strptime("2012-03-22", "%Y-%m-%d"); my $datf = Time::Piece->strptime("1925-12-22", "%Y-%m-%d"); my $diff = $datt - $datf; my $result = $diff->years; print "$result years\n"; $result = $diff->days; print "$result days\n";

prints:

C:\Perl\bin>perl pm_1033486.pl 86.2496055700018 years 31502 days

See also Time::Seconds for the data values transformation.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1033522]
help
Chatterbox?
[Corion]: So, it's not all bad with the new FF :)
[holli]: 2factor is a bit too much for me. i just use passwords like jhbn8789q27312laks dmaw98^
[moritz]: isn't there also some about:config setting to enable the old plugin API?
[Discipulus]: indeed, only the logo is nicer
[Corion]: moritz: Hmm, I doubt so, as I think they moved away from XUL and other UI stuff, which was used by most plugins I used
[Corion]: holli: I'm trying it out with Github and so far I don't dislike it. It's basically like an extra key I press to log in, which is an OK flow for Github
[Corion]: I haven't tried out recovery in case of a broken USB key though (even though I have three such U2F tokens lying around here)
[oiskuu]: randomly banging on the keyboard yields pretty poor entropy. much better to just base64 some /dev/random
moritz has a pass entry with recovery codes
[oiskuu]: Corion, what version was your old FF and what reason for upgrade?

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (11)
As of 2017-11-20 20:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (293 votes). Check out past polls.

    Notices?