global d3List –３か月カレンダーの格納変数
global d4List –３か月カレンダーBの格納変数（当月の情報しか日付は入っていないカレンダー）
global weekCounter – 今日が３か月カレンダーの何週目にあたるか

set aDate to calcDate(“今日”, “”) of me
display dialog aDate as text

set aDate to calcDate(“先々週”, “水曜日”) of me
display dialog aDate as text

set aDate to calcDate(“来週”, “金曜”) of me
display dialog aDate as text

on calcDate(param1, param2)
　　
　　–相対日付指定パラメータテーブル
　　–data sample: {{”今日”, “きょう”}, 0, “date”}
　　–data format:{{”keyword_1″, “keyword_2″….”keyword_n”}, vector, “class_of_this_keyword”}
　　
　　–Vector量をその場で算出する必要がある場合には「999」を設定しておく
　　
　　set dDat to {{{“来年”}, 1, “year”}, {{“今年”}, 0, “year”}, {{“去年”}, -1, “year”}, {{“再来年”}, 2, “year”}, {{“今週”}, 0, “week”}, {{“先週”}, -1, “week”}, {{“先々週”}, -2, “week”}, {{“来週”}, 1, “week”}, {{“再来週”}, 2, “week”}, {{“今日”, “きょう”}, 0, “date”}, {{“明日”, “あした”}, 1, “date”}, {{“明後日”, “あさって”}, 2, “date”}, {{“明々後日”, “しあさって”}, 3, “date”}, {{“昨日”, “きのう”}, -1, “date”}, {{“一昨日”, “おととい”}, -2, “date”}, {{“一昨々日”, “さきおととい”}, -3, “date”}, {{“次”, “今度”, “こんど”, “つぎ”}, 1, “variable”}, {{“前”}, -1, “variable”}}
　　
　　–曜日指定パラメータ
　　set wDat to {“日曜日”, “月曜日”, “火曜日”, “水曜日”, “木曜日”, “金曜日”, “土曜日”, “日曜”, “月曜”, “火曜”, “水曜”, “木曜”, “金曜”, “土曜”, “にちようび”, “げつようび”, “かようび”, “すいようび”, “もくようび”, “きんようび”, “どようび”, “にちよう”, “げつよう”, “かよう”, “すいよう”, “もくよう”, “きんよう”, “どよう”}
　　
　　–３か月カレンダーを作成
　　makeCalendar() of me
　　
　　–今日の日付を保持
　　set todayDate to current date
　　–指定週の計算用ワーク変数
　　set targetWeek to 0
　　–指定月の計算用ワーク変数
　　set targetMonth to month of todayDate as number
　　set targetYear to year of todayDate
　　set targetDate to day of todayDate
　　
　　set aItem to “”
　　repeat with i in dDat
　　　　if param1 is in item 1 of i then
　　　　　　copy i to aItem
　　　　　　log i
　　　　　　exit repeat
　　　　end if
　　end repeat
　　
　　if (item 3 of aItem) is “date” then
　　　　log “Hit date class parameter”
　　　　–dateレベルのパラメータの場合
　　　　set retDate to todayDate + (item 2 of aItem) * days
　　　　set ret2Date to date “0:0:0″ of retDate
　　　　return ret2Date
　　　　–「時刻を問わない」ことを示す表現として、00時を指定してdate型を返す
　　　　
　　else if item 3 of aItem is “week” then
　　　　log “hit week class parameter”
　　　　
　　　　–weekレベルのパラメータの場合
　　　　set targetWeek to weekCounter + (item 2 of aItem)
　　　　if param2 is in wDat then
　　　　　　
　　　　　　–パラメータが「何曜日か？」を得る
　　　　　　set tmpD to 1
　　　　　　repeat with j in wDat
　　　　　　　　if param2 is contents of j then exit repeat
　　　　　　　　set tmpD to tmpD + 1
　　　　　　end repeat
　　　　　　
　　　　　　if tmpD > 7 then
　　　　　　　　set tmpD to tmpD mod 7
　　　　　　end if
　　　　　　
　　　　　　–set tmp_Week to targetWeek * 7 + tmpD - 1
　　　　　　
　　　　　　
　　　　　　–今月か？
　　　　　　if item tmpD of item targetWeek of d4List is 0 then
　　　　　　　　–今月ではない場合
　　　　　　　　set tmp2 to item tmpD of item targetWeek of d3List
　　　　　　　　–set tmp3 to day of todayDate
　　　　　　　　if ((item 2 of aItem) < 0) then
　　　　　　　　　　–今月ではなく、パラメータがマイナスの週計算を行う場合
　　　　　　　　　　–先月に入ったので月を減らす
　　　　　　　　　　set targetMonth to targetMonth - 1
　　　　　　　　　　set tmp4 to (targetYear & “/” & targetMonth & “/” & tmp2) as string
　　　　　　　　　　set ret2Date to date “0:0:0″ of (date tmp4)
　　　　　　　　　　return ret2Date
　　　　　　　　else
　　　　　　　　　　–来月として処理
　　　　　　　　　　set targetMonth to targetMonth + 1
　　　　　　　　　　set tmp4 to (targetYear & “/” & targetMonth & “/” & tmp2) as string
　　　　　　　　　　set ret2Date to date “0:0:0″ of (date tmp4)
　　　　　　　　　　return ret2Date
　　　　　　　　end if
　　　　　　else
　　　　　　　　–今月の場合の処理
　　　　　　　　set tmp2 to item tmpD of item targetWeek of d3List
　　　　　　　　set tmp3 to day of todayDate
　　　　　　　　
　　　　　　　　–set targetMonth to targetMonth + 1
　　　　　　　　set tmp4 to (targetYear & “/” & targetMonth & “/” & tmp2) as string
　　　　　　　　set ret2Date to date “0:0:0″ of date tmp4
　　　　　　　　return ret2Date
　　　　　　　　
　　　　　　end if
　　　　　　
　　　　else
　　　　　　–ここはエラーを返すべし（”来週”,”"）といったパターンになるので
　　　　　　—-あるいは、「○○日」といったダイレクトパラメータの処理を行う
　　　　　　
　　　　　　–日付ダイレクトパラメータの処理
　　　　　　
　　　　　　
　　　　　　error “日付を特定するためのパラメータがありません”
　　　　　　(*
　　　　　　ただし、このように決め打ちでエラーメッセージを返すような実装は暫定仕様。
　　　　　　何が欠けているかをGUIフィードバックするのが最終的な実装
　　　　　　*)
　　　　end if
　　else if item 3 of aItem is “month” then
　　　　–monthレベルのパラメータの場合
　　　　log “Hit month class parameter”
　　　　
　　else if item 3 of aItem is “year” then
　　　　–yearレベルのパラメータの場合
　　　　log “Hit year class parameter”
　　　　
　　end if
　　
　　return “no hit”
end calcDate

–相対日付計算用の３か月カレンダーを作成する
on makeCalendar()
　　
　　set aToday to current date
　　
　　–とりあえず、当月の情報を収集する
　　set y1 to getYear(aToday) of me
　　set m1 to getMonth(aToday) of me
　　set d1 to getDate(aToday) of me
　　set dy1 to getDay(aToday) of me
　　set mlen1 to getMlen(y1, m1) of me
　　
　　set mXDay to getDay(aToday) of me –今日の曜日
　　
　　
　　–前月の情報を組み立てる
　　if m1 is not equal to 1 then
　　　　–2〜12月の場合
　　　　set y0 to y1
　　　　set m0 to m1 - 1
　　else
　　　　–1月の場合
　　　　set yo to y1 - 1
　　　　set m0 to 12
　　end if
　　–前月の月の長さ
　　set mLen0 to getMlen(y0, m0) of me
　　
　　–前月のみ開始日の曜日を求めておく必要がある（3か月カレンダーを作るため）
　　set m0Date to (y0 & “/” & m0 & “/1″) as text
　　set m0Date to date m0Date
　　set m0Day to getDay(m0Date) of me –１日の曜日
　　
　　
　　–翌月の情報を組み立てる
　　if m1 is not equal to 12 then
　　　　–1〜11月の場合
　　　　set y2 to y1
　　　　set m2 to m1 + 1
　　else
　　　　–12月の場合
　　　　set y2 to y1 + 1
　　　　set m2 to 1
　　end if
　　–翌月の月の長さ
　　set mLen2 to getMlen(y2, m2) of me
　　
　　–３か月カレンダーの格納変数
　　set d3List to {}
　　–３か月カレンダーBの格納変数（当月の情報しか日付は入っていないカレンダー）
　　set d4List to {}
　　
　　
　　set gapList to {0, 0, 0, 0, 0, 0, 0}
　　set w1temp to items 1 thru (m0Day) of gapList
　　set w2temp to items 1 thru (m0Day) of gapList
　　
　　(*
　　set w1temp to items 1 thru (m0Day - 1) of gapList
　　set w2temp to items 1 thru (m0Day - 1) of gapList
　　*)
　　
　　set dayCounter to 1
　　
　　–最初の１週目の要素を組み立てる
　　repeat with i from m0Day to 7
　　　　set the end of w1temp to dayCounter
　　　　set the end of w2temp to 0
　　　　set dayCounter to dayCounter + 1
　　end repeat
　　set the end of d3List to w1temp
　　set the end of d4List to w2temp
　　
　　set w1temp to {}
　　set w2temp to {}
　　
　　
　　–前月の通常処理
　　repeat
　　　　repeat with i from 1 to 7
　　　　　　set the end of w1temp to dayCounter
　　　　　　set the end of w2temp to 0
　　　　　　
　　　　　　set dayCounter to dayCounter + 1
　　　　　　if dayCounter > mLen0 then exit repeat
　　　　end repeat
　　　　if dayCounter > mLen0 then exit repeat
　　　　set the end of d3List to w1temp
　　　　set the end of d4List to w2temp
　　　　
　　　　set w1temp to {}
　　　　set w2temp to {}
　　　　
　　end repeat
　　
　　–ここから当月処理
　　
　　–１週目
　　if i = 7 then
　　　　set ii to 1
　　　　set the end of d3List to w1temp
　　　　set the end of d4List to w2temp
　　　　set w1temp to {}
　　　　set w2temp to {}
　　　　
　　else
　　　　set ii to i + 1
　　end if
　　
　　set dayCounter to 1 –日付カウンタの初期化
　　repeat with j from ii to 7
　　　　set the end of w1temp to dayCounter
　　　　set the end of w2temp to dayCounter
　　　　
　　　　set dayCounter to dayCounter + 1
　　end repeat
　　
　　set the end of d3List to w1temp
　　set the end of d4List to w2temp
　　
　　set w1temp to {}
　　set w2temp to {}
　　
　　–当月の2週目以降
　　repeat
　　　　repeat with j from 1 to 7
　　　　　　set the end of w1temp to dayCounter
　　　　　　set the end of w2temp to dayCounter
　　　　　　
　　　　　　set dayCounter to dayCounter + 1
　　　　　　if dayCounter > mlen1 then exit repeat
　　　　end repeat
　　　　if dayCounter > mlen1 then exit repeat
　　　　set the end of d3List to w1temp
　　　　set the end of d4List to w2temp
　　　　
　　　　set w1temp to {}
　　　　set w2temp to {}
　　　　
　　end repeat
　　
　　–ここから翌月処理
　　
　　–１週目
　　if j = 7 then
　　　　set iii to 1
　　　　set the end of d3List to w1temp
　　　　set the end of d4List to w2temp
　　　　
　　　　set w1temp to {}
　　　　set w2temp to {}
　　　　
　　else
　　　　set iii to j + 1
　　end if
　　
　　set dayCounter to 1 –日付カウンタの初期化
　　repeat with j from iii to 7
　　　　set the end of w1temp to dayCounter
　　　　set the end of w2temp to 0
　　　　
　　　　set dayCounter to dayCounter + 1
　　end repeat
　　
　　set the end of d3List to w1temp
　　set the end of d4List to w2temp
　　
　　set w1temp to {}
　　set w2temp to {}
　　
　　–翌月の2週目以降
　　repeat
　　　　repeat with k from 1 to 7
　　　　　　set the end of w1temp to dayCounter
　　　　　　set the end of w2temp to 0
　　　　　　
　　　　　　set dayCounter to dayCounter + 1
　　　　　　if dayCounter > mlen1 then exit repeat
　　　　end repeat
　　　　if dayCounter > mlen1 then exit repeat
　　　　set the end of d3List to w1temp
　　　　set the end of d4List to w2temp
　　　　
　　　　set w1temp to {}
　　　　set w2temp to {}
　　　　
　　end repeat
　　
　　if length of w1temp is not equal to 0 then
　　　　set the end of d3List to w1temp
　　　　set the end of d4List to w2temp
　　　　
　　end if
　　
　　
　　–ここまで３か月カレンダーの生成
　　
　　
　　–３か月カレンダーにおいて今日が何週目かを算出
　　set weekCounter to 1
　　
　　repeat with aWeek in d4List –裏リストで操作を行う
　　　　–ただし、該当曜日しかチェックしないので全チェックに比べて速度７倍
　　　　set aDay to (item mXDay of aWeek) as number
　　　　if aDay = (d1 as number) then
　　　　　　exit repeat
　　　　end if
　　　　set weekCounter to weekCounter + 1
　　end repeat
end makeCalendar

–現在日時から曜日を取得を返す
on getDay(aDate)
　　
　　–パラメータ判定部分
　　if aDate is “” then
　　　　–ヌルの場合には本日の日付を指定
　　　　set aDate to current date
　　else if class of aDate is not date then
　　　　try
　　　　　　–パラメータがDate型でなければ、castする
　　　　　　set aDate to date aDate
　　　　on error number errNo
　　　　　　–型変換に失敗した場合にはエラーを返す
　　　　　　error errNo
　　　　end try
　　end if
　　
　　set b to weekday of aDate as number
　　
　　return b
　　
end getDay

–指定日の月のみ返す
on getMonth(aDat)
　　–引数がDate型でなかった場合にキャスト
　　if class of aDat is not equal to date then
　　　　try
　　　　　　set aDat to date aDat
　　　　on error
　　　　　　–日付フォーマットでなかった場合には「0」を返す
　　　　　　return 0
　　　　end try
　　end if
　　–Mac OS X 10.3.5以降のみOK
　　set bDate to month of aDat as number
　　
　　return bDate as number
end getMonth

–指定日の日付のみ返す
on getDate(aDat)
　　–引数がDate型でなかった場合にキャスト
　　if class of aDat is not equal to date then
　　　　try
　　　　　　set aDat to date aDat
　　　　on error
　　　　　　–日付フォーマットでなかった場合には「0」を返す
　　　　　　return 0
　　　　end try
　　end if
　　
　　set bDate to day of aDat
　　return bDate as number
end getDate

–指定日の年のみ返す
on getYear(aDat)
　　–引数がDate型でなかった場合にキャスト
　　if class of aDat is not equal to date then
　　　　try
　　　　　　set aDat to date aDat
　　　　on error
　　　　　　–日付フォーマットでなかった場合には「0」を返す
　　　　　　return 0
　　　　end try
　　end if
　　set bDate to year of aDat
　　return bDate as number
end getYear

–指定月の長さを得る（日数）
on getMlen(aYear, aMonth)
　　
　　(*
　　Parameter
　　　　set aYear to 2004–Year
　　　　set aMonth to 7–Month
*)
　　set aDat to (aYear as text) & “/” & (aMonth as text) & “/1″
　　if aMonth is not equal to 12 then
　　　　set eDat to ((aYear as text) & “/” & (aMonth + 1) as text) & “/1″
　　else
　　　　set eDat to ((aYear + 1) as text) & “/” & (1 as text) & “/1″
　　end if
　　
　　–set sDat to date aDat
　　set eDat to date eDat
　　set eDat to eDat - 1
　　
　　set mLen to day of eDat
　　return mLen
　　
end getMlen

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–「m月d日」の文字列を「m/d」に変換して返す
on retMonthSlashDateStr(aStr)
　　set {mStr, dStr} to retMonthStrAndDateStr(aStr, {"月", "日"}, 2) of me
　　set resStr to mStr & "/" & dStr
　　return resStr
end retMonthSlashDateStr

–指定リストを指定デリミタでparseして日付文字列をリストにして、先頭から指定アイテムまで取り出して返す
–ただし、日付など「月」「日」が必ず存在しているという前提条件が成立するものだけが処理対象
on retMonthStrAndDateStr(aStr, delimiterList, lastItem)
　　set osVer to system attribute "sys2"
　　
　　if osVer ≥ 5 then
　　　　–Mac OS X 10.5以上の場合
　　　　set curDelim to AppleScript’s text item delimiters
　　　　set AppleScript’s text item delimiters to delimiterList
　　　　set aList to text items of aStr
　　　　set AppleScript’s text item delimiters to curDelim
　　　　set bList to items 1 thru lastItem of aList
　　　　return bList
　　　　
　　else
　　　　–Mac OS X 10.4以下の場合
　　　　set resList to {}
　　　　
　　　　repeat with i in delimiterList
　　　　　　set curDelim to AppleScript’s text item delimiters
　　　　　　set AppleScript’s text item delimiters to i –10.4ではデリミタをリストで指定できないので１つずつ指定
　　　　　　set aList to text items of aStr
　　　　　　set AppleScript’s text item delimiters to curDelim
　　　　　　
　　　　　　set the end of resList to item 1 of aList
　　　　　　
　　　　　　try
　　　　　　　　set aStr to contents of (item 2 of aList) –ここ、あんまりよくないな〜。実害はないけど、美しくない
　　　　　　end try
　　　　　　
　　　　end repeat
　　　　
　　　　return resList
　　end if
　　
end retMonthStrAndDateStr

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

repeat with i from 1 to 12
　　set mLen to getMlen(thisYear, i) of me
　　repeat with ii from 1 to mLen
　　　　set dStr to (thisYear as string) & "/" & (i as string) & "/" & (ii as string)
　　　　set the end of dList to date dStr
　　end repeat
end repeat

dList

–指定月の長さを得る（日数）
on getMlen(aYear, aMonth)
　　
　　set aDat to (aYear as text) & "/" & (aMonth as text) & "/1"
　　if aMonth is not equal to 12 then
　　　　set eDat to ((aYear as text) & "/" & (aMonth + 1) as text) & "/1"
　　else
　　　　set eDat to ((aYear + 1) as text) & "/" & (1 as text) & "/1"
　　end if
　　
　　–set sDat to date aDat
　　set eDat to date eDat
　　set eDat to eDat - 1
　　
　　set mLen to day of eDat
　　return mLen
　　
end getMlen

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aList to {“1″, “2″, “3″, “”, “”, “”, “”} –後ろにヌルが入っているリスト
set {aFlag, pFlag, bStart, bEnd} to detectBlankItemFromList(aList) of me
log {aFlag, pFlag, bStart, bEnd}
–> (*false, after, 4, 7*)

set aList to {“”, “”, “”, “4″, “5″, “6″, “7″} –先頭にヌルが入っているリスト
set {aFlag, pFlag, bStart, bEnd} to detectBlankItemFromList(aList) of me
log {aFlag, pFlag, bStart, bEnd}
–> (*false, before, 1, 3*)

–与えられたリストに、値がヌルの要素が入っているか判定し、フラグ、前がブランクか後がブランクか、ブランク開始・終了位置を返す
on detectBlankItemFromList(aList)
　　set aCount to 1
　　set retF to true
　　set aLen to length of aList
　　
　　set directionF to “”
　　
　　set blankStart to 1
　　set blankEnd to aLen
　　
　　
　　if contents of item 1 of aList = “” then
　　　　–頭の方にブランクがある場合
　　　　set rList to reverse of aList –リストを逆順に
　　　　repeat with i in rList
　　　　　　if contents of i is equal to “” then
　　　　　　　　set retF to false –Blank Itemが入っている場合
　　　　　　　　exit repeat
　　　　　　end if
　　　　　　set aCount to aCount + 1
　　　　end repeat
　　　　
　　　　set blankStart to 1
　　　　set blankEnd to (aLen - aCount + 1)
　　　　
　　　　set directionF to “before”
　　　　
　　else if contents of last item of aList = “” then
　　　　–末尾の方にブランクがある場合
　　　　repeat with i in aList
　　　　　　if contents of i is equal to “” then
　　　　　　　　set retF to false –Blank Itemが入っている場合
　　　　　　　　exit repeat
　　　　　　end if
　　　　　　set aCount to aCount + 1
　　　　end repeat
　　　　
　　　　set blankStart to aCount
　　　　set blankEnd to aLen
　　　　
　　　　set directionF to “after”
　　　　
　　else
　　　　–先頭にも末尾にもブランクがない場合
　　　　set blankStart to 0
　　　　set blankEnd to 0
　　　　set retF to true
　　　　
　　end if
　　
　　return {retF, directionF, blankStart, blankEnd}
　　
end detectBlankItemFromList

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aWeek to retTheNumberOfWeekInTheMonth(tDateObj) of me
–> 2

set aList to retTheListOfWeekInTheMonth(tDateObj, aWeek) of me
–> {date "2011年1月2日日曜日 0:00:00", date "2011年1月3日月曜日 0:00:00", date "2011年1月4日火曜日 0:00:00", date "2011年1月5日水曜日 0:00:00", date "2011年1月6日木曜日 0:00:00", date "2011年1月7日金曜日 0:00:00", date "2011年1月8日土曜日 0:00:00"}

–指定日が所属する月の中の指定週のリストを求める
on retTheListOfWeekInTheMonth(tDateObj, theWeek)
　　–引数から年と月を求める
　　set theYear to year of tDateObj
　　set theMonth to month of tDateObj as number
　　set theDate to day of tDateObj
　　
　　–指定月のリストを作成
　　set mList to makeMonthList(theYear, theMonth) of me
　　
　　–得られた週リストから、指定週のリストを返す
　　set wList to contents of item theWeek of mList
　　return wList
　　
end retTheListOfWeekInTheMonth

–指定日がその月の中で何週目かを求める
on retTheNumberOfWeekInTheMonth(tDateObj)
　　–引数から年と月を求める
　　set theYear to year of tDateObj
　　set theMonth to month of tDateObj as number
　　set theDate to day of tDateObj
　　
　　–指定月のリストを作成
　　set mList to makeMonthList(theYear, theMonth) of me
　　
　　set wNum to getWeekNumInTheMonth(mList, tDateObj) of me
　　
　　return wNum
　　
end retTheNumberOfWeekInTheMonth

–指定のカレンダーから、指定日が何週目かを求める
on getWeekNumInTheMonth(yList, aDate)
　　set weekCount to 1
　　
　　repeat with i in yList
　　　　repeat with ii in i
　　　　　　set jj to contents of ii
　　　　　　if jj is equal to aDate then
　　　　　　　　return weekCount
　　　　　　end if
　　　　end repeat
　　　　set weekCount to weekCount + 1
　　end repeat
　　return 0
end getWeekNumInTheMonth

–指定の月を１月分リスト化
on makeMonthList(theYear, theMonth)
　　
　　set yList to {}
　　set curList to {}
　　
　　set curList to {"", "", "", "", "", "", ""}
　　
　　–１か月分の日をリスト化
　　set aLen to getMlen(theYear, theMonth) of me
　　
　　repeat with ii from 1 to aLen
　　　　set aDateStr to (((theYear as string) & "/" & theMonth as string) & "/" & ii as string)
　　　　set aDate to date aDateStr
　　　　set aWD to weekday of aDate as number
　　　　set item aWD of curList to aDate
　　　　if aWD = 7 then
　　　　　　set the end of yList to curList
　　　　　　set curList to {"", "", "", "", "", "", ""}
　　　　end if
　　end repeat
　　
　　if curList is not equal to {"", "", "", "", "", "", ""} then
　　　　set the end of yList to curList
　　end if
　　
　　return yList
　　
end makeMonthList

–指定月の長さを得る（日数）
on getMlen(aYear, aMonth)
　　
　　set aDat to (aYear as text) & "/" & (aMonth as text) & "/1"
　　if aMonth is not equal to 12 then
　　　　set eDat to ((aYear as text) & "/" & (aMonth + 1) as text) & "/1"
　　else
　　　　set eDat to ((aYear + 1) as text) & "/" & (1 as text) & "/1"
　　end if
　　
　　–set sDat to date aDat
　　set eDat to date eDat
　　set eDat to eDat - 1
　　
　　set mLen to day of eDat
　　return mLen
　　
end getMlen

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set a to retTheNumberOfWeekInTheMonth(tDateObj) of me
–> 2

–指定日がその月の中で何週目かを求める
on retTheNumberOfWeekInTheMonth(tDateObj)
　　–引数から年と月を求める
　　set theYear to year of tDateObj
　　set theMonth to month of tDateObj as number
　　set theDate to day of tDateObj
　　
　　–指定月のリストを作成
　　set mList to makeMonthList(theYear, theMonth) of me
　　
　　set wNum to getWeekNumInTheMonth(mList, tDateObj) of me
　　
　　return wNum
　　
end retTheNumberOfWeekInTheMonth

–指定のカレンダーから、指定日が何週目かを求める
on getWeekNumInTheMonth(yList, aDate)
　　set weekCount to 1
　　
　　repeat with i in yList
　　　　repeat with ii in i
　　　　　　set jj to contents of ii
　　　　　　if jj is equal to aDate then
　　　　　　　　return weekCount
　　　　　　end if
　　　　end repeat
　　　　set weekCount to weekCount + 1
　　end repeat
　　return 0
end getWeekNumInTheMonth

–指定の月を１月分リスト化
on makeMonthList(theYear, theMonth)
　　
　　set yList to {}
　　set curList to {}
　　
　　set curList to {"", "", "", "", "", "", ""}
　　
　　–１か月分の日をリスト化
　　set aLen to getMlen(theYear, theMonth) of me
　　
　　repeat with ii from 1 to aLen
　　　　set aDateStr to (((theYear as string) & "/" & theMonth as string) & "/" & ii as string)
　　　　set aDate to date aDateStr
　　　　set aWD to weekday of aDate as number
　　　　set item aWD of curList to aDate
　　　　if aWD = 7 then
　　　　　　set the end of yList to curList
　　　　　　set curList to {"", "", "", "", "", "", ""}
　　　　end if
　　end repeat
　　
　　if curList is not equal to {"", "", "", "", "", "", ""} then
　　　　set the end of yList to curList
　　end if
　　
　　return yList
　　
end makeMonthList

–指定月の長さを得る（日数）
on getMlen(aYear, aMonth)
　　
　　set aDat to (aYear as text) & "/" & (aMonth as text) & "/1"
　　if aMonth is not equal to 12 then
　　　　set eDat to ((aYear as text) & "/" & (aMonth + 1) as text) & "/1"
　　else
　　　　set eDat to ((aYear + 1) as text) & "/" & (1 as text) & "/1"
　　end if
　　
　　–set sDat to date aDat
　　set eDat to date eDat
　　set eDat to eDat - 1
　　
　　set mLen to day of eDat
　　return mLen
　　
end getMlen

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set theYear to year of tDateObj
set theMonth to month of tDateObj as number

set aList to makeMonthList(theYear, theMonth) of me
–> {{"", "", "", "", "", "", date "2011年1月1日土曜日 0:00:00"}, {date "2011年1月2日日曜日 0:00:00", date "2011年1月3日月曜日 0:00:00", date "2011年1月4日火曜日 0:00:00", date "2011年1月5日水曜日 0:00:00", date "2011年1月6日木曜日 0:00:00", date "2011年1月7日金曜日 0:00:00", date "2011年1月8日土曜日 0:00:00"}, {date "2011年1月9日日曜日 0:00:00", date "2011年1月10日月曜日 0:00:00", date "2011年1月11日火曜日 0:00:00", date "2011年1月12日水曜日 0:00:00", date "2011年1月13日木曜日 0:00:00", date "2011年1月14日金曜日 0:00:00", date "2011年1月15日土曜日 0:00:00"}, {date "2011年1月16日日曜日 0:00:00", date "2011年1月17日月曜日 0:00:00", date "2011年1月18日火曜日 0:00:00", date "2011年1月19日水曜日 0:00:00", date "2011年1月20日木曜日 0:00:00", date "2011年1月21日金曜日 0:00:00", date "2011年1月22日土曜日 0:00:00"}, {date "2011年1月23日日曜日 0:00:00", date "2011年1月24日月曜日 0:00:00", date "2011年1月25日火曜日 0:00:00", date "2011年1月26日水曜日 0:00:00", date "2011年1月27日木曜日 0:00:00", date "2011年1月28日金曜日 0:00:00", date "2011年1月29日土曜日 0:00:00"}, {date "2011年1月30日日曜日 0:00:00", date "2011年1月31日月曜日 0:00:00", "", "", "", "", ""}}

–指定の月を１月分リスト化
on makeMonthList(theYear, theMonth)
　　
　　set yList to {}
　　set curList to {}
　　
　　set curList to {"", "", "", "", "", "", ""}
　　
　　–１か月分の日をリスト化
　　set aLen to getMlen(theYear, theMonth) of me
　　
　　repeat with ii from 1 to aLen
　　　　set aDateStr to (((theYear as string) & "/" & theMonth as string) & "/" & ii as string)
　　　　set aDate to date aDateStr
　　　　set aWD to weekday of aDate as number
　　　　set item aWD of curList to aDate
　　　　if aWD = 7 then
　　　　　　set the end of yList to curList
　　　　　　set curList to {"", "", "", "", "", "", ""}
　　　　end if
　　end repeat
　　
　　if curList is not equal to {"", "", "", "", "", "", ""} then
　　　　set the end of yList to curList
　　end if
　　
　　return yList
　　
end makeMonthList

–指定月の長さを得る（日数）
on getMlen(aYear, aMonth)
　　
　　set aDat to (aYear as text) & "/" & (aMonth as text) & "/1"
　　if aMonth is not equal to 12 then
　　　　set eDat to ((aYear as text) & "/" & (aMonth + 1) as text) & "/1"
　　else
　　　　set eDat to ((aYear + 1) as text) & "/" & (1 as text) & "/1"
　　end if
　　
　　–set sDat to date aDat
　　set eDat to date eDat
　　set eDat to eDat - 1
　　
　　set mLen to day of eDat
　　return mLen
　　
end getMlen

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–>
(*1, 睦月*)
(*2, 如月*)
(*3, 弥生*)
(*4, 卯月*)
(*5, 皐月*)
(*6, 水無月*)
(*7, 文月*)
(*8, 葉月*)
(*9, 長月*)
(*10, 神無月*)
(*11, 霜月*)
(*12, 師走*)
(*13, *)
(*14, *)
(*15, *)

–日本の月呼称を返す
on retJapaneseMonthName(aMonthNum)
　　if aMonthNum < 1 or aMonthNum > 12 then return "" –エラーチェック
　　
　　set aMonthNum to aMonthNum as integer
　　set mStrList to {"睦月", "如月", "弥生", "卯月", "皐月", "水無月", "文月", "葉月", "長月", "神無月", "霜月", "師走"}
　　return contents of item aMonthNum of mStrList
end retJapaneseMonthName

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set incMonthNum to 6

set dRes to addMonth(aDateObj, incMonthNum) of me

–dateに対してincMonthNumか月足した結果の年、月を取得する
on addMonth(aDateObj, incMonthNum)
　　set aYear to year of aDateObj
　　set aMonth to month of aDateObj as number
　　
　　repeat incMonthNum times
　　　　set {aYear, aMonth} to incrementMonth(aYear, aMonth) of me
　　end repeat
　　
　　return {yearnum:aYear, monthNum:aMonth}
　　
end addMonth

–カレンダー（年と月のペア）をインクリメント（＋１）
on incrementMonth(aYear, aMonth)
　　if aMonth < 12 then
　　　　–1から11月の場合
　　　　set nMonth to aMonth + 1
　　　　return {aYear, nMonth}
　　　　
　　else if aMonth = 12 then
　　　　–12月の場合
　　　　set nYear to aYear + 1
　　　　set nMonth to 1
　　　　return {nYear, nMonth}
　　　　
　　else
　　　　–月パラメータが1から12の範囲になかった
　　　　return {false, false}
　　end if
end incrementMonth

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set bDateList to {2010, 8, 1}

set dRes to monthDiffByList(aDateList, bDateList) of me
–> {yearDiff:8, monthDiff:11}

–２つのdateの差を月単位で取得する。パラメータはdateオブジェクトではなくリストで
on monthDiffByList(aDateList, bDateList)
　　set aYear to contents of item 1 of aDateList
　　set aMonth to contents of item 2 of aDateList
　　
　　set bYear to contents of item 1 of bDateList
　　set bMonth to contents of item 2 of bDateList
　　
　　if aMonth > bMonth then
　　　　set dMonth to (12 - aMonth) + bMonth
　　　　set dYear to bYear - aYear - 1
　　else
　　　　set dMonth to (bMonth - aMonth)
　　　　set dYear to bYear - aYear
　　end if
　　
　　return {yearDiff:dYear, monthDiff:dMonth}
　　
end monthDiffByList