Yes, the following function will find all occurrences when their are 5 weeks with a particular day of the week in a given month.
Function getAllFifthWeekDay(){
[CmdletBinding()]
param (
[Parameter(Position=0)][DayOfWeek]$DayOfWeek='Friday',
[Parameter(Position=1)][int]$Year=(Get-Date).Year
)
[DateTime[]]$output=@()
$date = Get-Date "01/01/$($Year)"
#Get First Day of Year on day
$date = $date.AddDays($(if([int]$DayOfWeek -gt [int]$date.DayOfWeek){
$DayOfWeek-[int]$date.DayOfWeek
}else{
$DayOfWeek-[int]$date.DayOfWeek+7
}))
$count = 0;
$lastMonth = $date.Month;
do{
$lastMonth = $date.Month;
$date = $date.AddDays(7)
if($lastMonth -ne $date.Month){
$count = 0
}
if($count -gt 3){
$output += $date
}
$count += 1;
} while ($date.Year -eq $Year)
return $output
}
To run this:
- Within Windows Open "Windows Powershell" from your Start Menu.
- Paste the code above into the command prompt and press "Enter" to register the function.
- Execute the function as follows, substituting the Weekday and Year you're looking for:
getAllFifthWeekDay 'Friday' '2022'
You should see output like the following:
Friday, April 29, 2022 12:00:00 AM
Friday, July 29, 2022 12:00:00 AM
Friday, September 30, 2022 12:00:00 AM
Friday, December 30, 2022 12:00:00 AM
----------------------- EDIT LATER THAT DAY -----------------------
I actually created a fully working example that will not only find the 5th of a given day in a month, but will actually create a meeting invite for that day so its fully an automated process. Hopefully this helps someone else out.
You execute the code with something like the following:
Create-AppointmentFifthWeek -Subject 'Lunch - Strategic Planning' -StartTime "12:30:00" -DurationInMinutes 120 -Categories "Strategy"
Here is the full code which makes that possible:
Function Create-AppointmentFifthWeek(){
[CmdletBinding()]
param (
[Parameter(Mandatory=$true)][String]$Subject,
[Parameter(Mandatory=$true)][String]$StartTime,
[Parameter()][String]$Recipients,
[Parameter()][String]$Categories,
[Parameter()][String]$Location,
[Parameter()][String]$Body=$Subject,
[Parameter()][int]$ReminderMinutesBeforeStart=15,
[Parameter()][int]$DurationInMinutes=30,
[Parameter()][DayOfWeek]$DayOfWeek='Friday',
[Parameter()][int]$Year=(Get-Date).Year
)
foreach($date in $(getAllFifthWeekDay -DayOfWeek $DayOfWeek -Year $Year)){
$StartDateTime = $date.Add([System.Timespan]::Parse($StartTime))
Create-Appointment -Subject $Subject -Recipients $Recipients -Categories $Categories -Location $Location -Body $Body -ReminderMinutesBeforeStart $ReminderMinutesBeforeStart -DurationInMinutes $DurationInMinutes -MeetingStart $StartDateTime
}
}
Function getAllFifthWeekDay(){
[CmdletBinding()]
param (
[Parameter(Position=0)][DayOfWeek]$DayOfWeek='Friday',
[Parameter(Position=1)][int]$Year=(Get-Date).Year
)
[DateTime[]]$output=@()
$date = Get-Date "01/01/$($Year)"
#Get First Day of Year on day
$date = $date.AddDays($(if([int]$DayOfWeek -gt [int]$date.DayOfWeek){
$DayOfWeek-[int]$date.DayOfWeek
}else{
$DayOfWeek-[int]$date.DayOfWeek+7
}))
$count = 0;
$lastMonth = $date.Month;
do{
$lastMonth = $date.Month;
$date = $date.AddDays(7)
if($lastMonth -ne $date.Month){
$count = 0
}
if($count -gt 3){
$output += $date
}
$count += 1;
} while ($date.Year -eq $Year)
return $output
}
Function Create-Appointment(){
[CmdletBinding()]
param (
[Parameter(Mandatory=$true)][String]$Subject,
[Parameter(Mandatory=$true)][DateTime]$MeetingStart,
[Parameter()][String]$Recipients,
[Parameter()][String]$Categories,
[Parameter()][String]$Location,
[Parameter()][String]$Body=$Subject,
[Parameter()][int]$ReminderMinutesBeforeStart=15,
[Parameter()][int]$DurationInMinutes=30
)
$ol = New-Object -ComObject Outlook.Application
$meeting = $ol.CreateItem('olAppointmentItem')
if($ReminderMinutesBeforeStart -gt 0){
$meeting.ReminderSet = $true
$meeting.ReminderMinutesBeforeStart = $ReminderMinutesBeforeStart
}
if($PSBoundParameters.ContainsKey('Recipients')){
foreach($email in $Recipients -split ";"){
if($email -ne ''){
$meeting.Recipients.Add($email)
}
}
$meeting.MeetingStatus = [Microsoft.Office.Interop.Outlook.OlMeetingStatus]::olMeeting
} else {
$meeting.MeetingStatus = [Microsoft.Office.Interop.Outlook.OlMeetingStatus]::olNonMeeting
}
if($PSBoundParameters.ContainsKey('Location')){
$meeting.Location = $Location
}
if($PSBoundParameters.ContainsKey('Categories')){
$meeting.Categories = $Categories
}
$meeting.Subject = $Subject
$meeting.Body = $Body
$meeting.Start = $MeetingStart
$meeting.Duration = $DurationInMinutes
$meeting.Save()
$meeting.Send()
}
