|
There are isolated problems with current patches, but they are well-known and documented on this site. |
Years with Same Calendar as 2021
https://www.timeanddate.com/calendar/repeating.html?year=2021
This is the inside back cover of the 1978 Yellow Pages telephone book, Los Angeles, CA.
Complete, then top and bottom for clarity. Top is 365-day years, bottom is leap years.
Click on an image to magnify.
“which years since 1965 had a June 12th on a Saturday?”
Look for all years for calendars 6 (365-day year) and 12 (leap year).
Sorry but, NO … it doesn’t 😕
But this calculator at this website does it up to year 2100 👍
And … the calculator at this website allows you to set the length of the desired search year period for your query.
Example: to find all years with June 12th occurring on Saturday between 1800 thru 2800 …
1) set: “Date to find day of week for:” to Jun 12 1800
2) set: “Optional number of years: #” to 1000
3) click: “Find Day of the Week”
Scroll all the way down near the bottom of the page and you’ll find 140 years listed between 1800 and 2800 with June 12th occurring on Saturday.
Enjoy 👍 👍 👍
Win7 - PRO & Ultimate, x64 & x86
Win8.1 - PRO, x64 & x86
Groups A, B & ABS
Please remember, it is not just common years (dominical C) that begin and end on a Friday; but also leap years (dominical DC) that begin on a Thursday then end on a Friday that interest you. As 12 June falls after a possible 29 February, both need to be included.
https://en.wikipedia.org/wiki/Dominical_letter#Dominical_letters_of_the_years
Online calculators would already account for this. If you are designing your own calculation, I recommend the additional reading.
Here’s some VBA to do the deed.
Option Explicit
Sub FindDayofYear()
Dim iStartYear As Integer
Dim iMonth As Integer
Dim iDay As Integer
Dim iYearCnt As Integer
Dim iDayOfWeek As Integer
Dim iCntr As Integer
Dim dteDate As Date
Dim iNextYr As Integer
iStartYear = Range("StartYear")
iMonth = Range("Month")
iDay = Range("Day")
iYearCnt = Range("NoYears")
iDayOfWeek = Range("DayOfWeek")
iNextYr = 2
For iCntr = iStartYear To iStartYear + iYearCnt
dteDate = DateSerial(iCntr, iMonth, iDay)
'*** Change 7 (saturday) to any other number to find diff day.
If (Weekday(dteDate) = iDayOfWeek) Then
Cells(iNextYr, "E") = iCntr
iNextYr = iNextYr + 1
End If
Next iCntr
End Sub 'FindDayofYear
HTH 😎
Since Ron M likes Fortran, perhaps 77, here is a little program in Fortran 77 I just wrote that finds the years when the same day of the same month fall in the same day of the week:
I am attaching a text file with the code, to avoid having hidden characters. I think that reading it makes clear what is involved, as Fortran is very straightforward with formulas and the code of the only subroutine needed is included. I am using their default types for the variables, to simplify matters.
Ex-Windows user (Win. 98, XP, 7); since mid-2017 using also macOS. Presently on Monterey 12.15 & sometimes running also Linux (Mint).
MacBook Pro circa mid-2015, 15" display, with 16GB 1600 GHz DDR3 RAM, 1 TB SSD, a Haswell architecture Intel CPU with 4 Cores and 8 Threads model i7-4870HQ @ 2.50GHz.
Intel Iris Pro GPU with Built-in Bus, VRAM 1.5 GB, Display 2880 x 1800 Retina, 24-Bit color.
macOS Monterey; browsers: Waterfox "Current", Vivaldi and (now and then) Chrome; security apps. Intego AV
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
