Day of the week: Difference between revisions

=={{header|FutureBasic}}==

<lang futurebasic>window 1

long y

CFDateRef dt

NSInteger day

CFCalendarRef cal

DateComponentsRef comps

cal = fn CalendarCurrent

comps = fn DateComponentsInit

DateComponentsSetMonth( comps, 12 )

DateComponentsSetDay( comps, 25 )

for y = 2008 to 2121

DateComponentsSetYear( comps, y )

dt = fn CalendarDateFromComponents( cal, comps )

day = fn CalendarComponentFromDate( cal, NSCalendarUnitWeekday, dt )

if ( day == 1 )

print y

end if

next

HandleEvents</lang>