Calendar: Difference between revisions

Content added Content deleted
(→‎{{header|Visual Basic .NET}}: adding new section)
m (→‎{{header|Visual Basic .NET}}: create separate item)
Line 8,291: Line 8,291:




{{header|WYLBUR}}
=={{header|WYLBUR}}==


Unlike IBM 3278 terminals,
Unlike IBM 3278 terminals,
Line 8,300: Line 8,300:
A. Calculate the Key Day: for a given date in the Gregorian calendar, calculate the day on which its Key Dates occur using ([YT32 div 16]+ YTMB div 4 + Year) mod 7. (YTMB = the Year Two Months Before the given date. For Julian & Old Style dates, omit the [~] term where the last 2 digits of YTMB are replaced by 32.) The remainder of the division by 7 gives the Key Day as follows: 0=Su -> 6=Sa
A. Calculate the Key Day: for a given date in the Gregorian calendar, calculate the day on which its Key Dates occur using ([YT32 div 16]+ YTMB div 4 + Year) mod 7. (YTMB = the Year Two Months Before the given date. For Julian & Old Style dates, omit the [~] term where the last 2 digits of YTMB are replaced by 32.) The remainder of the division by 7 gives the Key Day as follows: 0=Su -> 6=Sa


B. Display the calendar for November: slide the row of days so that the Key Day rests over 28 thereby showing the calendar for November. One has as well the calendar for the prior March corresponding to the type of Calendar as listed in the Month Key.
B. Display the calendar for November: slide the columns so that 28 rests under the Key Day thereby showing the calendar for November. One has as well the calendar for the prior March corresponding to the type of Calendar as listed in the Month Key.
{{output}}
{{output}}
<pre>
<pre>
Every Year Calendar
Any Year Calendar
--------------------
--------------------
Su Mo Tu We Th Fr Sa
Su Mo Tu We Th Fr Sa