Yearly Journal for Evernote

I wanted a years folders for evernote here is a journal

property theMonths : {“JAN”, “FEB”, “MAR”, “APR”, “MAY”, “JUN”, “JUL”, “AUG”, “SEP”, “OCT”, “NOV”, “DEC”}
property theWeekdays : {“SAT”, “SUN”, “MON”, “TUE”, “WED”, “THU”, “FRI”}

tell (current date) to set referenceDate to (it - (its day) * days + days - (its time))

set thisYear to year of referenceDate

set yearList to {}
repeat with i from 1 to 11
set end of yearList to (thisYear + i - 6) as string
end repeat
(* Fill year list with the previous 5 years followed by the next 5 *)

set chosenYear to (choose from list yearList with prompt “choose a year”) as string
if chosenYear is “false” then return
(* set variable choosenyear to year picked from menu*)
set year of referenceDate to chosenYear
repeat with aMonth from 1 to 12
set month of referenceDate to aMonth
set monthnotebook to text -2 thru -1 of (“0” & aMonth) & space & item aMonth of theMonths & space & chosenYear
set currentWeekDay to weekday of referenceDate as integer
set dayList to {}
repeat with aDay from 1 to (daysInMonth for referenceDate)
set end of dayList to “/” & (text -2 thru -1 of (“0” & aDay) & “/” & chosenYear & space & “-” & space & item ((currentWeekDay mod 7) + 1) of theWeekdays)
set currentWeekDay to currentWeekDay + 1
set AppleScript’s text item delimiters to “,”
end repeat
repeat with the_item in dayList
tell application “Evernote”
create note title (aMonth as text) & the_item with text (aMonth as text) & the_item notebook monthnotebook
end tell
end repeat
set {TID, text item delimiters} to {text item delimiters, “,”}
set dayList to dayList as text
set text item delimiters to TID
tell application “Evernote”
if (not (notebook named monthnotebook exists)) then
make notebook with properties {name:monthnotebook}
end if
end tell
end repeat

on daysInMonth for theDate – returns an integer
copy theDate to d
set d’s day to 32
32 - (d’s day)
end daysInMonth