Day of the week: Difference between revisions
Content added Content deleted
Line 553: | Line 553: | ||
=={{header|Delphi}}== |
=={{header|Delphi}}== |
||
{{libheader|sysutils}} always in uses clause in Delphi |
|||
<lang delphi>procedure IsXmasSunday(fromyear, toyear: integer); |
<lang delphi>procedure IsXmasSunday(fromyear, toyear: integer); |
||
var |
var |
||
Line 568: | Line 569: | ||
end; |
end; |
||
end; |
end; |
||
//CONSOLE |
|||
//writeln(outputyears); |
|||
//GUI |
|||
form1.label1.caption := outputyears; |
form1.label1.caption := outputyears; |
||
end;</lang> |
end;</lang> |