Re^2: No: of weeks in a month


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re^2: No: of weeks in a month

by bimleshsharma (Beadle)

on Sep 13, 2012 at 11:16 UTC ( [id://993457]=note: print w/replies, xml )

Need Help??

in reply to Re: No: of weeks in a month
in thread No: of weeks in a month

Hmm, I am trying to explain.

my %daysinmonth=(Jan=>31,Feb=>30,Mar=>31,Apr=>30,May=>31,Jun=>30,Jul=>
+31,Aug=>31,Sep=>30,Oct=>31,Nov=>30,Dec=>31);

$weeks_count= $daysinmonth{enteryourmonth}/7;
$day_count= $daysinmonth{enteryourmonth}-($weeks_count*7);

print "Only $weeks_count weeks in $daysinmonth{enteryourmonth} month";
[download]

enjoy!!!