Day of the week: Difference between revisions

← Older editNewer edit →
Content deleted Content added
→‎{{header|Elixir}}: use Date module
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}}
Retrieved from "https://rosettacode.org/wiki/Day_of_the_week"