Theodor::Wagner Calculates each weekday; based on Theodor Wagners modell «Ewiger Kalender»

See also Date & Time here

[ home ] - [ search ] - [ sitemap ]

Usage

use Theodor::Wagner;

$tw = Theodor::Wagner->new();

($dd, $mm, $yyyy) = split /\./, $ARGV[0];

$weekday = $tw->weekday( D => $dd, M => $mm, Y => $yyyy );

print "weekday is $weekday\n";

Sample

2/16/2002 - 20/02...
> 16 (dd) % 7 = 2
> [Table 1]  2 + 1 (h_month) = 3
> (02 * 1.25) % 7 = 2
> [Table 2]  2 (century2) + 2 (year2) = 4

weekday is Sa

[ Download ] - [ Inline as Sub Routine ]

[ Theodor Wagner ] - [ Theodor Wagner (2) ]