NAME

Date::Ordinal - Conversion of dates to ordinal numbers and vice versa

SYNOPSIS

use Date::Ordinal;

$ord     = month2ord('January');           # $ord gets 1
$mon     = ord2month('1');                 # $mon gets 'January'
$mon     = ord2month(1);                   # $mon gets 'January'
$mon     = ord2month('01');                # $mon gets 'January'
$arryref = all_month_ordinations
@@arry    = all_month_names
$arryref = all_month_names_ref
$arryref = all_short_month_names_ref
$arryref = all_day_ordinations

$arryref = all_hour_ordinations
$arryref = all_minute_ordinations


$hashref = ordination_month_pair # {'01' => 'January', ... }
@@day     = days

DESCRIPTION

This module is designed to aid in creation of CGI popup_menus and also interaction with SQL databases.

CONVERSION ROUTINES

There are two conversion routines: ord2month() and month2ord().

ord2month()

This function takes a month number [1..12] and returns a string which contains the name of the month identified. If the number is not a valid number, then undef will be returned:

$mon = ord2month('3');

month2ord()

This function takes a month name and returns the integer corresponding to the month name, if such exists.

The match is a regexp match, so both 'Mar' and 'March' will return 3.

If the argument could not be identified as a month name, then undef will be returned:

$ord = month2ord('March');

The case of the month name is not important. See the section "KNOWN BUGS AND LIMITATIONS" below.

QUERY ROUTINES

There is one function (and a reference variant) which can be used to obtain a list of all month names:

all_month_names()

Returns a list of all month names;

all_month_names_ref()

Returns a reference to a list of all month names;

all_short_month_names_ref()

Returns a reference to a list of all month names in 3-letter form

ordination_month_pair()

returns a reference to a hash of the ordination of a month name
and the month name

all_month_ordinations()

returns a reference  a hash of the ordination of a month name
and the month name

PRETTY-PRINTING ROUTINES

prezero()

if the current number is single-diit, prefix it with a '0'

KNOWN BUGS AND LIMITATIONS

none

SEE ALSO

Locale::US

Date::Manip

AUTHOR

Terrence Brannon <tbrannon@@end70.com>

COPYRIGHT

Copyright (c) 2000 End70 Corporation

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

month2ord() d146 4 d175 5 d295 2 @

2.5 log @*** empty log message *** @ text @d119 1 a119 1 return ++$month_count if ($month[$month_count] =~ $month); @

2.4 log @*** empty log message *** @ text @d52 1 a52 1 $VERSION = '2.3'; @

2.3 log @*** empty log message *** @ text @d22 1 a22 1 $hashref = ordination_month_pair # {'January' => 01, ... } d81 3 d119 1 a119 1 return ++$month_count if ($month eq $month[$month_count]); @

2.2 log @*** empty log message *** @ text @d52 1 a52 1 $VERSION = '2.1'; @

1.1 log @Initial revision @ text @d54 1 a54 1 @@EXPORT = qw(ord2month month2ord ordination_month_pair all_month_ordinationsall_day_ordinations prezero); @