DOTAZEK

[michal]

Diky moc zkusim si to ...:-)))
Michal

"Milan Sorm" <xsorm na informatics.muni.cz> wrote in message
news:20000113152736.L7197 na aisa.fi.muni.cz...
> Thu, Jan 13, 2000 ve 02:59:08PM +0100 michal napsal:
> # Zdravim vsechny .....
> # Mam malinky problem .....se zjistenim poctu dnu v danem mesici
....nedokaze
> # mi nekdo poradit jak to udelat v perlu ????
> # Treba pres system command "cal".Nebo jinak ??? Hlavne aby to vracelo
pocet
> # dnu v danem mesici ...
> # Diky moc
> # Michal
> # mb na post.cz
> #
>
> do $month si date mesic, do $year rok
>
> my @TAB = (31,28,31,30,31,30,31,31,30,31,30,31);
> my $days = $TAB[$month-1];
> if ($year % 4 == 0) {
>   ++$days;
>   --$days if $year % 100 == 0 && $year % 400 != 0;
> }
>
> v $days je pocet dni v mesici
>
> --milan