Calendar


7 then startday = startday - 7 lastsdate = substr(sdate, 1, 6) || '01' if substr(lastsdate, 5, 2) = '12' then , nextsdate = (substr(lastsdate, 1, 4) + 1) || '0101' else nextsdate = substr(lastsdate, 1, 4) || , right(substr(lastsdate, 5, 2) + 1, 2, '0') || '01' days = date('B', nextsdate, 'S') - date('B', lastsdate, 'S') /* output the table headers */ say '' say '' say '' say '' say '' say '' say '' say '' say '' say '' say '' /* output the table contents */ day = 0 do i = 1 to 6 if day >= days then iterate say '' do j = 1 to 7 say '' end say '' end /* output the table footer */ say '
'month'
SunMonTueWedThuFriSat
' if i = 1 then do if j >= startday then day = day + 1 end else day = day + 1 if day = 0 | day > days then say ' ' else do if day = cdate then say ''day'' else say day end say '
' ?>

See the RSP page

back to R.S.P. index