#カレンダー作成対象の年、月を選択（ただし、日付をクリックして選択しないと値を取得できないので注意）
on chooseDate(aMainMes, aSubMes, aLabel1, aLabel2)
　　script MyDialog
　　　　property parent : AppleScript
　　　　use AppleScript
　　　　use scripting additions
　　　　use framework "Foundation"
　　　　property _the_date : missing value
　　　　on make
　　　　　　set aClass to me
　　　　　　script
　　　　　　　　property parent : aClass
　　　　　　end script
　　　　end make
　　　　## ダイアログの呼び出し
　　　　on chooseDate(aMainMes, aSubMes, aLabel1, aLabel2)
　　　　　　set paramObj to {myMessage:aMainMes, mySubMessage:aSubMes, myLabel1:aLabel1, myLabel2:aLabel2}
　　　　　　parent’s performSelectorOnMainThread:"raize:" withObject:paramObj waitUntilDone:true
　　　　　　return (my _the_date)
　　　　end chooseDate
　　　　## ダイアログの生成
　　　　on raize:paramObj
　　　　　　set aMainMes to paramObj’s myMessage
　　　　　　set aSubMes to paramObj’s mySubMessage
　　　　　　set aLabel1 to paramObj’s myLabel1
　　　　　　set aLabel2 to paramObj’s myLabel2
　　　　　　set setTime1 to current date
　　　　　　set setTime2 to setTime1 + days
　　　　　　
　　　　　　set aList to {}
　　　　　　set aList’s end to {boxLabel:aLabel1, aTime:setTime1}
　　　　　　set aList’s end to {boxLabel:aLabel2, aTime:setTime2}
　　　　　　
　　　　　　set viewList to {}
　　　　　　set datePickerList to {}
　　　　　　set parentViewWidth to 0
　　　　　　set aMargin to 8
　　　　　　
　　　　　　set countItem to count aList
　　　　　　repeat with num from 1 to countItem
　　　　　　　　set anItem to (aList)’s item num
　　　　　　　　
　　　　　　　　set setLabel to anItem’s boxLabel
　　　　　　　　set setTime to anItem’s aTime
　　　　　　　　
　　　　　　　　## create a view
　　　　　　　　set opt to current application’s NSYearMonthDayDatePickerElementFlag
　　　　　　　　–set opt to opt + (current application’s NSHourMinuteSecondDatePickerElementFlag as integer)
　　　　　　　　tell current application’s NSDatePicker’s new()
　　　　　　　　　　–setDatePickerStyle_(current application’s NSClockAndCalendarDatePickerStyle) –> 10.13以下
　　　　　　　　　　setDatePickerStyle_(current application’s NSDatePickerStyleClockAndCalendar) –> 10.14以上 カレンダー
　　　　　　　　　　–setDatePickerStyle_(current application’s NSDatePickerStyleTextField) –> 10.14以上 テキスト入力
　　　　　　　　　　–setDatePickerStyle_(current application’s NSDatePickerStyleTextFieldAndStepper) –> 10.14以上 ステップ入力
　　　　　　　　　　setDatePickerElements_(opt)
　　　　　　　　　　setDateValue_(setTime)
　　　　　　　　　　set thisSize to fittingSize()
　　　　　　　　　　setFrameSize_(thisSize)
　　　　　　　　　　
　　　　　　　　　　### 余白の大きさを指定
　　　　　　　　　　set aWidth to (thisSize’s width) + aMargin * 3.75
　　　　　　　　　　set aHeight to (thisSize’s height) + aMargin * 5.25
　　　　　　　　　　set boxFrameSize to current application’s NSMakeSize(aWidth, aHeight)
　　　　　　　　　　setFrameOrigin_(current application’s NSMakePoint(aMargin, aMargin))
　　　　　　　　　　log frame()
　　　　　　　　　　set theDatePicker to it
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　tell current application’s NSBox’s new()
　　　　　　　　　　setTitle_(setLabel)
　　　　　　　　　　addSubview_(theDatePicker)
　　　　　　　　　　setFrameSize_(boxFrameSize)
　　　　　　　　　　setFrameOrigin_(current application’s NSMakePoint(parentViewWidth, 0))
　　　　　　　　　　set viewList’s end to it
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　### 親NSViewの大きさを指定
　　　　　　　　set countItem2 to count viewList
　　　　　　　　repeat with num2 from num to countItem2
　　　　　　　　　　set anItem2 to viewList’s item num2
　　　　　　　　　　set tmpFrame to anItem2’s frame()
　　　　　　　　　　set aBoxWidt to current application’s NSWidth(tmpFrame)
　　　　　　　　　　set parentViewHeight to current application’s NSHeight(tmpFrame)
　　　　　　　　　　set parentViewWidth to parentViewWidth + aMargin + aBoxWidt
　　　　　　　　　　log result
　　　　　　　　end repeat
　　　　　　　　
　　　　　　　　###
　　　　　　　　set datePickerList’s end to {pickerObj:theDatePicker, keyLabel:setLabel}
　　　　　　end repeat
　　　　　　
　　　　　　tell current application’s NSView’s new()
　　　　　　　　–setAutoresizingMask_(0)
　　　　　　　　–setAutoresizesSubviews_(true)
　　　　　　　　setFrameSize_(current application’s NSMakeSize(parentViewWidth, parentViewHeight))
　　　　　　　　setSubviews_(viewList)
　　　　　　　　set theView to it
　　　　　　end tell
　　　　　　
　　　　　　## set up alert
　　　　　　tell current application’s NSAlert’s new()
　　　　　　　　setMessageText_(aMainMes)
　　　　　　　　setInformativeText_(aSubMes)
　　　　　　　　addButtonWithTitle_("OK")
　　　　　　　　addButtonWithTitle_("Cancel")
　　　　　　　　setAccessoryView_(theView)
　　　　　　　　set returnCode to runModal() — show alert in modal loop
　　　　　　end tell
　　　　　　
　　　　　　if returnCode = (current application’s NSAlertSecondButtonReturn) then error number -128
　　　　　　
　　　　　　## retrieve date
　　　　　　set keyList to {}
　　　　　　set dateList to {}
　　　　　　repeat with anItem in datePickerList
　　　　　　　　set keyList’s end to anItem’s keyLabel
　　　　　　　　set dateList’s end to (anItem’s pickerObj)’s dateValue() as date
　　　　　　end repeat
　　　　　　set my _the_date to (current application’s NSDictionary’s dictionaryWithObjects:dateList forKeys:keyList) as record
　　　　　　log result
　　　　end raize:
　　end script
　　
　　##
　　tell (make MyDialog)
　　　　return chooseDate(aMainMes, aSubMes, aLabel1, aLabel2)
　　end tell
end chooseDate

★Click Here to Open This Script