Help for this page
$DoW = $gdate % 7;
#=================================================================== # d2g() Convert year, month, and day to date factor G. ... my($Y, $M, $D) = g2d( d2g($y, $m, $d) ); return $y == $Y && $m == $M && $d == $D; }