Day of the week: Difference between revisions
Content added Content deleted
(FBSL) |
|||
| Line 729: | Line 729: | ||
=={{header|FBSL}}== |
=={{header|FBSL}}== |
||
<lang qbasic># |
<lang qbasic>#apptype console |
||
#OPTION STRICT |
|||
'In what years between 2008 and 2121 will the 25th of December be a Sunday? |
'In what years between 2008 and 2121 will the 25th of December be a Sunday? |
||
dim date as integer |
dim date as integer, dayname as string |
||
dim dayname as string |
|||
for dim year = 2008 to 2121 |
for dim year = 2008 to 2121 |
||
date = year * 10000 + 1225 |
date = year * 10000 + 1225 |
||
| Line 742: | Line 740: | ||
end if |
end if |
||
next |
next |
||
pause |
|||
</lang> |
</lang> |
||