Lingua::EN::Numbers::Years - turn "1984" into "nineteen eighty-four", etc
use Lingua::EN::Numbers::Years; my $x = 1803; print "I'm old! I was born in ", year2en($x), "!\n";
I'm old! I was born in eighteen oh three!
Lingua::EN::Numbers::Years turns numbers that represent years, into English text. It exports one function,
year2en, which takes a scalar value and returns a scalar value. The return value is the English text expressing that year-number; or if what you provided wasn't a number, then it returns undef.
Unless the input is an at-most five-digit integer (with commas allowed), then
year2en just returns
Lingua::EN::Number::num2en(value), as a reasonable fall-through.
This module is necessary because English pronounces year-numbers differently from normal numbers. So the year 1984 was pronounced "nineteen eighty-four", never "one thousand, nine hundred and eighty-four".
This module makes guesses as to how to pronounce year-numbers between ten thousand and a hundred thousand -- so
year2num(10191) returns "ten thousand one ninety-one". But clearly these are not established in English usage. Yet.
year2en doesn't try to append "BC" or "AD".
Copyright (c) 2005, Sean M. Burke, author of the later versions.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself (perlartistic).
This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose.
(But if you have any problems with this library, I ask that you let me know.)
Sean M. Burke, firstname.lastname@example.org