Calendar: Difference between revisions

Content added Content deleted
Line 1,409: Line 1,409:
gosub [getMonthInfo]
gosub [getMonthInfo]
x = 0
x = 0
if (mm - 1) mod 4 = 0 then html "</tr><tr>" ' 4 months across
html "<td valign=top><TABLE BORDER=1 CELLPADDING=0 CELLSPACING=0><TR>"
html "<td valign=top><TABLE BORDER=1 CELLPADDING=0 CELLSPACING=0><TR>"
html "<TD colspan=7 align=center bgcolor=wheat>"
html "<TD colspan=7 align=center bgcolor=wheat>"
Line 1,422: Line 1,421:
html "</TR></table></td>"
html "</TR></table></td>"


if mm mod 4 = 0 then html "</tr><tr>" ' 4 months across
next mm
next mm
html "</table>"
html "</table>"
Line 1,445: Line 1,445:
mmDays = n1 - n ' Days in Month
mmDays = n1 - n ' Days in Month
RETURN</lang>
RETURN</lang>
<pre>Input any valid year</pre>
<table border="0" cellpadding="0"
<table border="0" cellpadding="0"
cellspacing="5">
cellspacing="5">