DOTAZEK

[Milan Sorm]

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