Revision as of 04:59, 26 February 2017 (view source) rosettacode>Purple24 (→‎{{header\|Elixir}}: use Date module) ← Older edit		Revision as of 15:27, 4 March 2017 (view source) rosettacode>Arbautjc m (→‎{{header\|VBScript}}) Newer edit →
Line 3,691: =={{header\|VBScript}}== <lang vb>For year = 2008 To 2121 If Weekday(iDateSerial(year, ~~& "-~~12-, 25")) = 1 Then▼ ~~For i = 2008 To 2121~~ WScript.Echo year ▲ If Weekday(i & "-12-25") = 1 Then End If▼ ~~WScript.StdOut.Write i~~ Next</lang>▼ ~~WScript.StdOut.WriteLine~~ ▲ End If ~~Next~~ ▲</lang> {{Out}}

Day of the week (view source)