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 existscontainerthisDayAlbum then
set thePhotosBuffer to containerthisDayAlbum
else
makealbumnamedthisDayAlbum
end if
on error errTexttwonumbererrNumtwo
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 itemi 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} tocontainerthisDayAlbum
end if
on error errTexttwonumbererrNumtwo
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 dialogtheresultmessage