Try this script: But try it on a test library, I have not done much testing: The current version will find all photos taken on the same month and day as the current date. Today it will show all photos taken on an 8th of March.
-- find all photos taken on a certain day, for example the day and month of the current date.
-- the resulting photos will be added to a toplevel album named "On day month".
set thisday to the day of (the (current date) as date) --change this to the day you want, for example "25"
set thismonth to the month of (the (current date) as date) --change this to the month you want, for example "december"
set thisDayAlbum to "On " & thismonth & " " & thisday as string
tell application "Photos"
try
if exists container thisDayAlbum then
set thePhotosBuffer to container thisDayAlbum
else
make album named thisDayAlbum
end if
on error errTexttwo number errNumtwo
display dialog "Cannot open album: " & thisDayAlbum & " " & errNumtwo & return & errTexttwo
return
end try
set onthisdayFound to {}
set onthisdaySkipped to {}
set allTheItems to every media item -- get a list of all photos and videos, may take a while
-- add all photos taken this day to the album
repeat with i from 1 to the count of allTheItems
-- check the dates of all photos and videos
set thisMediaItem to item i of allTheItems
try
set date_i to the date of thisMediaItem
set day_i to the day of (date_i as date)
set month_i to the month of (date_i as date)
if ((day_i = thisday) and (month_i = thismonth)) then
set end of onthisdayFound to thisMediaItem
add {thisMediaItem} to container thisDayAlbum
end if
on error errTexttwo number errNumtwo
set end of onthisdaySkipped to thisMediaItem
end try
end repeat
end tell
set theresultmessage to "Found " & (the count of onthisdayFound) & " items and added them to the album " & thisDayAlbum & ".
Skipped " & (the count of onthisdaySkipped) & " items without date"
display dialog theresultmessage