Another Y2K bug in the making...
Leap year if:
((y % 4 == 0) and ( y % 100 != 0)) or ( y % 400 == 0)
will trillich wrote:
>
> create or replace function to_partial_ymd(int2,int2,int2)returns int4 as '
> my ($y,$m,$d) = @_;
> $m = 0 unless $y;
> $m = 0 unless 1 <= $m and $m <= 12;
> $d = 0 unless $m;
> $d = 0 unless (1 <= $d and
> (
> # 28 days valid for ANY month:
> ($d <= 28)
> or
> # 29 days valid if not february -- or in a leap year
> ($d <= 29 and ( $m != 2 or $y % 4 == 0 ))
> or
> # 30 days valid if not february
> ($d <= 30 and $m != 2)
> or
> # 31 days valid jan/mar/may/jul/aug/oct/dec
> ($d <= 31 and $m =~ /^(1|3|5|7|8|10|12)$/)
> )
> );
> return ($y << 16) + ($m << 8) + ($d << 0);
> ' language 'plperl'; -- '
>
> sure would be nice to have such hefty day-of-month logic just
> ONCE, and be able to call it from other functions...
>
> is there still no way for one plperl function to call another plperl
> function? (i'm hoping that section 25.3.4 is out-of-date...)
>
> --
> There are 10 kinds of people:
> ones that get binary, and ones that don't.
>
> will@serensoft.com
> http://sourceforge.net/projects/newbiedoc -- we need your brain!
> http://www.dontUthink.com/ -- your brain needs us!
>
> Looking for a firewall? Do you think smoothwall sucks? You're
> probably right... Try the folks at http://clarkconnect.org/ !
>
> ---------------------------(end of broadcast)---------------------------
> TIP 4: Don't 'kill -9' the postmaster