–簡単な素因数分解
script divisorKit
　　on returnDivisor(a)
　　　　–1000以下の素数のリスト （prime number list under 1000)
　　　　set primeNum1000 to {2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463, 467, 479, 487, 491, 499, 503, 509, 521, 523, 541, 547, 557, 563, 569, 571, 577, 587, 593, 599, 601, 607, 613, 617, 619, 631, 641, 643, 647, 653, 659, 661, 673, 677, 683, 691, 701, 709, 719, 727, 733, 739, 743, 751, 757, 761, 769, 773, 787, 797, 809, 811, 821, 823, 827, 829, 839, 853, 857, 859, 863, 877, 881, 883, 887, 907, 911, 919, 929, 937, 941, 947, 953, 967, 971, 977, 983, 991, 997}
　　　　
　　　　if a > 1000 then return false –1000より大きかったらfalseをリターン（計算範囲外エラー）
　　　　
　　　　if a is in primeNum1000 then
　　　　　　return true –1000までの数字で、素数だった場合
　　　　end if
　　　　
　　　　–ここからメイン処理
　　　　set divisorList to {}
　　　　
　　　　repeat while a > 0
　　　　　　set {r1, r2} to returnDivisorSub(a, primeNum1000) of me
　　　　　　if r1 = false then exit repeat
　　　　　　
　　　　　　set the end of divisorList to r1
　　　　　　
　　　　　　set a to r2
　　　　end repeat
　　　　
　　　　return divisorList
　　end returnDivisor
　　
　　
　　on returnDivisorSub(a, primeNumList)
　　　　repeat with i in primeNumList
　　　　　　set a1 to a div i
　　　　　　set a2 to a / i
　　　　　　if a1 = a2 then
　　　　　　　　return {contents of i, a1}
　　　　　　end if
　　　　end repeat
　　　　return {false, false}
　　end returnDivisorSub
end script

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

set aStr to "\"第2エア\"" –英数字などが混在しているパターンの文字列
set bStr to trimStrFromTo(aStr, "\"", "\"") of me
set cRes to decodeCharacterReference(bStr) of me
–> "第2エア"

–実体参照している文字列をデコードする
on decodeCharacterReference(aStr)
　　set aList to parseByDelim(aStr, ";") of me
　　
　　set newStr to ""
　　
　　repeat with i in aList
　　　　set j to i as string
　　　　if j contains "&#" then
　　　　　　set aPos to offset of "&#" in j
　　　　　　set preChar to ""
　　　　　　if aPos is not equal to 1 then
　　　　　　　　set preChar to text 1 thru (aPos - 1) of j
　　　　　　　　set jj to text (aPos + 2) thru -1 of j
　　　　　　else
　　　　　　　　set jj to j
　　　　　　　　
　　　　　　end if
　　　　　　
　　　　　　set bStr to repChar(jj, "&#", "") of me
　　　　　　set cStr to string id (bStr as number)
　　　　else
　　　　　　set cStr to j
　　　　　　set preChar to ""
　　　　end if
　　　　set newStr to newStr & preChar & cStr
　　end repeat
　　
　　if newStr contains "&" then
　　　　set newStr to repChar(newStr, "&amp", "&") of me
　　　　set newStr to repChar(newStr, "&lt", "<") of me
　　　　set newStr to repChar(newStr, "&gt", ">") of me
　　　　set newStr to repChar(newStr, "&quot", "\"") of me
　　end if
　　
　　return newStr
end decodeCharacterReference

on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

on trimStrFromTo(aStr, fromStr, toStr)
　　–fromStrは前から探す
　　if fromStr is not equal to "" then
　　　　set sPos to (offset of fromStr in aStr) + 1
　　else
　　　　set sPos to 1
　　end if
　　
　　–toStrは後ろから探す
　　if toStr is not equal to "" then
　　　　set b to (reverse of characters of aStr) as string
　　　　set ePos to (offset of toStr in b)
　　　　set ePos to ((length of aStr) - ePos)
　　else
　　　　set ePos to length of aStr
　　end if
　　set aRes to text sPos thru ePos of aStr
　　return aRes
end trimStrFromTo

–文字置換ルーチン
on repChar(origText, targStr, repStr)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar

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

set bDate to “2010/8/1″
set bDateObj to date bDate

set dRes to monthDiff(aDateObj, bDateObj) of me
–> {yearDiff:8, monthDiff:11}

–２つのdateの差を月単位で取得する
on monthDiff(aDateObj, bDateObj)
　　set aYear to year of aDateObj
　　set aMonth to month of aDateObj as number
　　
　　set bYear to year of bDateObj
　　set bMonth to month of bDateObj as number
　　
　　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 monthDiff

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

set d1Obj to date date1
set d2Obj to date date2

set dRes to getDifferenceOfMonth(d1Obj, d2Obj) of me
–> false

–与えられた日付の「月」が異なるかどうかチェック
on getDifferenceOfMonth(d1Obj, d2Obj)
　　set m1 to month of d1Obj as number
　　set m2 to month of d2Obj as number
　　return (m1 = m2)
end getDifferenceOfMonth

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

script lastXdayKit
　　–指定年月の最後のx曜日を返す
　　on retLastWeekday_X(aYear, aMonth, aWeekDayNum)
　　　　set aLen to getMlen(aYear, aMonth) of me
　　　　
　　　　set xDayList to {}
　　　　repeat with i from 1 to aLen
　　　　　　set dStr to (aYear as string) & "/" & (aMonth as string) & "/" & (i as string)
　　　　　　set aDate to date dStr
　　　　　　set theWeekdayN to weekday of aDate as number
　　　　　　if theWeekdayN = aWeekDayNum then
　　　　　　　　set the end of xDayList to i
　　　　　　end if
　　　　end repeat
　　　　
　　　　return contents of last item of xDayList
　　　　
　　end retLastWeekday_X
　　
　　
　　–指定月の日数を返す
　　on getMlen(aYear, aMonth)
　　　　set aYear to aYear as number
　　　　set aMonth to aMonth as number
　　　　
　　　　set aDat to (aYear as text) & "/" & (aMonth as text) & "/1"
　　　　
　　　　if aMonth is 12 then
　　　　　　set eDat to ((aYear + 1) as text) & "/" & (1 as text) & "/1"
　　　　else
　　　　　　set eDat to ((aYear as text) & "/" & (aMonth + 1) as text) & "/1"
　　　　end if
　　　　
　　　　set eDat to date eDat
　　　　set eDat to eDat - 1
　　　　
　　　　set mLen to day of eDat
　　　　return mLen
　　end getMlen
end script

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

script firstXdayKit
　　–指定年月の最初のx曜日を返す
　　on retFirstWeekday_X(aYear, aMonth, aWeekDayNum)
　　　　set aLen to getMlen(aYear, aMonth) of me
　　　　
　　　　repeat with i from 1 to aLen
　　　　　　set dStr to (aYear as string) & "/" & (aMonth as string) & "/" & (i as string)
　　　　　　set aDate to date dStr
　　　　　　set theWeekdayN to weekday of aDate as number
　　　　　　if theWeekdayN = aWeekDayNum then
　　　　　　　　return i
　　　　　　end if
　　　　end repeat
　　　　
　　end retFirstWeekday_X
　　
　　–指定月の日数を返す
　　on getMlen(aYear, aMonth)
　　　　set aYear to aYear as number
　　　　set aMonth to aMonth as number
　　　　
　　　　set aDat to (aYear as text) & "/" & (aMonth as text) & "/1"
　　　　
　　　　if aMonth is 12 then
　　　　　　set eDat to ((aYear + 1) as text) & "/" & (1 as text) & "/1"
　　　　else
　　　　　　set eDat to ((aYear as text) & "/" & (aMonth + 1) as text) & "/1"
　　　　end if
　　　　
　　　　set eDat to date eDat
　　　　set eDat to eDat - 1
　　　　
　　　　set mLen to day of eDat
　　　　return mLen
　　end getMlen
end script

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

set a to retTheNumberOfDays(tDateObj) of me
–> 3

–指定日がその年の何日目かを取得する
on retTheNumberOfDays(aDate)
　　set aYear to year of aDate
　　
　　set sDate to (aYear as string) & "/1/1"
　　set dDiff to (aDate - (date sDate)) div days + 1 –divは整数除算
　　
　　return dDiff
end retTheNumberOfDays

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

set a to retDayNumUntillTheFirstDayOfTheMonth(aYear, aMonth) of me
–> 335

–指定年/月の初日（1日）がその年の何日目かを取得する
on retDayNumUntillTheFirstDayOfTheMonth(aYear, aMonth)
　　set fD to (aYear as string) & "/1/1"
　　set fDobj to date fD
　　
　　set tD to ((aYear as string) & "/" & aMonth as string) & "/1"
　　set tDobj to date tD
　　
　　set diffD to ((tDobj - fDobj) / days) + 1
　　
　　return diffD as integer
end retDayNumUntillTheFirstDayOfTheMonth

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

getWeekdayNumOfFirstDay(aYear, aMonth) of me
–> 7

–指定年＆月の初日が何曜日かを数値で取得する
on getWeekdayNumOfFirstDay(aYear, aMonth)
　　set fD to ((aYear as string) & "/" & aMonth as string) & "/1"
　　set fDobj to date fD
　　set fNum to weekday of fDobj as number
　　return fNum
end getWeekdayNumOfFirstDay

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

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

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

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

set cNumList to {54, 55, 56, 57, 58, 59, 60, 61, 62}
set nList to splitNumList(cNumList) of me
–> {{54, 62}}

–数値リストを、連続する値ごとにペアで「起点」「終点」リストにして返す
on splitNumList(cNumList)
　　set bList to detectChangeInNumSeriesList(cNumList) of me
　　
　　if length of bList is not equal to 1 then
　　　　set prevItem to contents of first item of bList
　　　　
　　　　set bList to rest of bList
　　　　
　　　　set outList to {{1, prevItem}}
　　　　
　　　　repeat with i in bList
　　　　　　set j1 to prevItem + 1
　　　　　　set j2 to contents of i
　　　　　　set the end of outList to {j1, j2}
　　　　　　set prevItem to j2
　　　　end repeat
　　　　
　　　　set aLen to length of cNumList
　　　　if j2 is not equal to aLen then
　　　　　　set the end of outList to {j2 + 1, aLen}
　　　　end if
　　else
　　　　set outList to {contents of first item of bList}
　　end if
　　
　　set newList to {}
　　repeat with i in outList
　　　　set j1 to item (item 1 of i) of cNumList
　　　　set j2 to item (item 2 of i) of cNumList
　　　　set the end of newList to {j1, j2}
　　end repeat
　　
　　return newList
　　
end splitNumList

–数値リストで、値が連続しないポイントをアイテム番号のリストで返す
on detectChangeInNumSeriesList(aNumList)
　　set prevNum to (first item of aNumList)
　　set bNumList to rest of aNumList
　　
　　set outList to {}
　　
　　set iCount to 1
　　
　　repeat with i in bNumList
　　　　set j to contents of i
　　　　if prevNum = (j - 1) then
　　　　　　–
　　　　else
　　　　　　set the end of outList to iCount
　　　　end if
　　　　
　　　　copy j to prevNum
　　　　set iCount to iCount + 1
　　end repeat
　　
　　if outList = {} then
　　　　set outList to {{1, length of aNumList}}
　　end if
　　
　　return outList
　　
end detectChangeInNumSeriesList

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

–現在実行中のユーザーの権限を得る（管理者か、それ以外か） 10.4および10.5以降両用
–管理者だとtrueが、それ以外だとfalseが返る
on getCurUsersPrivileges()
　　set aVer to system attribute "sys2" –OSメジャーバージョンを取得する（例：Mac OS X 10.6.4→6）
　　
　　set current_user to (do shell script "whoami") –実行中のユーザー名を取得
　　
　　if aVer > 4 then
　　　　–Mac OS X 10.5以降の処理
　　　　set adR to (do shell script "/usr/bin/dsmemberutil checkmembership -U " & current_user & " -G admin users")
　　　　
　　　　if adR = "user is a member of the group" then
　　　　　　return true
　　　　else
　　　　　　return false
　　　　end if
　　　　
　　else
　　　　–Mac OS X 10.4までの処理
　　　　set admin_users to (do shell script "/usr/bin/niutil -readprop . /groups/admin users")
　　　　tell (a reference to AppleScript’s text item delimiters)
　　　　　　set {old_atid, contents} to {contents, " "}
　　　　　　set {admin_users, contents} to {text items of admin_users, old_atid}
　　　　end tell
　　　　
　　　　if current_user is in admin_users then
　　　　　　return true
　　　　else
　　　　　　return false
　　　　end if
　　end if
　　
end getCurUsersPrivileges

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

set outFile to choose file name with prompt “書き出し先ファイル名を入力”

set targYearStr to (targYear as string) & “年”
set targMonthStr to targYearStr & (targMonth as string) & “月”

tell application “Diary++X”
　　tell document 1
　　　　tell category “日記”
　　　　　　tell category targYearStr –2010年
　　　　　　　　tell category targMonthStr –2010年7月
　　　　　　　　　　set aList to every article
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
　　
　　–業務日報のarticleのみ抽出（本来はタグなどで抽出すべき）
　　set bList to {}
　　repeat with i in aList
　　　　set aCon to text contents of i
　　　　if aCon contains “職場関連：” then
　　　　　　set the end of bList to contents of i
　　　　end if
　　end repeat
　　
　　–日付とアーティクル本文のセットのリストを作成する
　　set newList to {}
　　repeat with i in bList
　　　　set aDate to diary date of i
　　　　set aText to text contents of i
　　　　
　　　　set the end of newList to {aDate, aText}
　　end repeat
　　
　　set n2List to shellSortListAscending(newList, 1) of me
　　
　　n2List
end tell

–処理対象の月の日数を取得
set dLen to getMlen(targYear, targMonth) of me

–処理対象月の各日付でループし、業務日報の該当アーティクルが存在する場合には、各タスクの情報を取り出してファイル出力
–該当アーティクルが存在しない場合には日付のみのカラ行をファイル出力　するメインループ
repeat with i from 1 to dLen
　　set tDate to (targYear as string) & “/” & (targMonth as string) & “/” & (i as string)
　　set aDate to date tDate
　　
　　–アーティクルのデータを日付で検索
　　set findF to false
　　repeat with ii in n2List
　　　　if item 1 of ii = aDate then
　　　　　　set findF to true
　　　　　　exit repeat
　　　　end if
　　end repeat
　　
　　–処理対象日のテキスト（○月○日）
　　set thisDateStr to (targMonth as string) & “月” & (i as string) & “日”
　　
　　if findF = false then
　　　　set blankDate to thisDateStr & return
　　　　write_to_file(blankDate, outFile, true) of me
　　else
　　　　–１日分のコンテンツ処理
　　　　set dList to retStartWithBlankAndEndsWithBlank(contents of item 2 of ii) of me –空白行で囲まれたブロックを日報本体としてピックアップ
　　　　set dList to listSweep(dList) of me –カラの行（リターンのみ）を除去
　　　　set firstF to true –１行目フラグ（１行目のみ日付データを出力）をtrueに
　　　　
　　　　repeat with iii in dList
　　　　　　set jjj to contents of iii
　　　　　　set {timeStr, targetStr, actionStr} to parseByDelim(jjj, tab) of me
　　　　　　set {sTime, eTime} to parseByDelim(timeStr, “〜”) of me
　　　　　　set diffNum to getTimeDiffNum(sTime, eTime) of me
　　　　　　
　　　　　　if firstF = true then
　　　　　　　　–１日の日付の予定の中の１行目
　　　　　　　　set outData to thisDateStr & tab & sTime & tab & eTime & tab & (diffNum as string) & tab & tab & tab & tab & targetStr & tab & actionStr & return
　　　　　　　　set firstF to false
　　　　　　else
　　　　　　　　–２行目以降
　　　　　　　　set outData to tab & sTime & tab & eTime & tab & (diffNum as string) & tab & tab & tab & tab & targetStr & tab & actionStr & return
　　　　　　end if
　　　　　　write_to_file(outData, outFile, true) of me
　　　　end repeat
　　end if
　　
　　
end repeat

–リスト項目のうち、空白であった場合にはリストから除去する
on listSweep(aList)
　　set bList to {}
　　set aLen to length of (item 1 of aList)
　　repeat with i in aList
　　　　if (contents of i is not equal to “”) then
　　　　　　set the end of bList to contents of i
　　　　end if
　　end repeat
　　return bList
end listSweep

–改行のみで囲まれた行をリストで取り出す
on retStartWithBlankAndEndsWithBlank(aStr)
　　set mList to paragraphs of aStr
　　set wList to {}
　　
　　set trimF to false
　　set tStart to 0
　　set tEnd to 0
　　set tCounter to 1
　　
　　repeat with i in mList
　　　　set j to contents of i
　　　　set jLen to length of j
　　　　if trimF = false then
　　　　　　if jLen = 0 then
　　　　　　　　set tStart to tCounter
　　　　　　　　set trimF to true
　　　　　　end if
　　　　else
　　　　　　if jLen = 0 then
　　　　　　　　set tEnd to tCounter
　　　　　　　　exit repeat
　　　　　　end if
　　　　end if
　　　　
　　　　set tCounter to tCounter + 1
　　end repeat
　　
　　set rData to items tStart thru tEnd of mList
　　return rData
　　
end retStartWithBlankAndEndsWithBlank

–指定デリミタで文字列をparseする
on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

–数値にゼロパディングしたテキストを返す
on retZeroPaddingText(aNum, aLen)
　　set tText to (“0000000000″ & aNum as text)
　　set tCount to length of tText
　　set resText to text (tCount - aLen + 1) thru tCount of tText
　　return resText
end retZeroPaddingText

–シェルソートで入れ子のリストを昇順ソート
on shellSortListAscending(a, keyItem)
　　set n to length of a
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of a
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of a) > (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of a to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　return a
end shellSortListAscending

–指定月の日数を返す
on getMlen(aYear, aMonth)
　　set aYear to aYear as number
　　set aMonth to aMonth as number
　　
　　set aDat to (aYear as text) & “/” & (aMonth as text) & “/1″
　　if aMonth is 12 then
　　　　set eDat to ((aYear + 1) as text) & “/” & (1 as text) & “/1″
　　else
　　　　set eDat to ((aYear as text) & “/” & (aMonth + 1) as text) & “/1″
　　end if
　　
　　set eDat to date eDat
　　set eDat to eDat - 1
　　
　　set mLen to day of eDat
　　return mLen
end getMlen

–ファイルの追記ルーチン「write_to_file」
–追記データ、追記対象ファイル、boolean（trueで追記）
on write_to_file(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to open for access file target_file with write permission
　　　　if append_data is false then set eof of the open_target_file to 0
　　　　write this_data to the open_target_file starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error error_message
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return error_message
　　end try
end write_to_file

–文字列で与えられた時刻（時:分）の「差」を数値で返す（30分＝0.5、15分＝0.25）
on getTimeDiffNum(startTImestr, endTimeStr)
　　
　　set {sH, sM} to parseByDelim(startTImestr, “:”) of me
　　set sDate to current date
　　set hours of sDate to (sH as number)
　　set minutes of sDate to (sM as number)
　　set seconds of sDate to 0
　　
　　set {eH, eM} to parseByDelim(endTimeStr, “:”) of me
　　set eDate to current date
　　set hours of eDate to (eH as number)
　　set minutes of eDate to (eM as number)
　　set seconds of eDate to 0
　　
　　set d to eDate - sDate
　　set h to d div 3600
　　set m to d mod 3600
　　set m2 to m / 3600
　　set m3 to h + m2
　　
　　return m3
　　
end getTimeDiffNum

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

"
set aRes to retStartWithBlankAndEndsWithBlank(aStr) of me
–> {"", "09:30〜12:00 　　　　ひよこ手帳　　資料作成", "13:00〜14:30　　　　ひよこインク　　資料作成", "15:00〜17:00　　　　世界征服計画発表会　　", "17:00〜18:45　　　　ひよこインク　　資料作成", ""}

–改行のみで囲まれた行をリストで取り出す
on retStartWithBlankAndEndsWithBlank(aStr)
　　set mList to paragraphs of aStr
　　set wList to {}
　　
　　set trimF to false
　　set tStart to 0
　　set tEnd to 0
　　set tCounter to 1
　　
　　repeat with i in mList
　　　　set j to contents of i
　　　　set jLen to length of j
　　　　if trimF = false then
　　　　　　if jLen = 0 then
　　　　　　　　set tStart to tCounter
　　　　　　　　set trimF to true
　　　　　　end if
　　　　else
　　　　　　if jLen = 0 then
　　　　　　　　set tEnd to tCounter
　　　　　　　　exit repeat
　　　　　　end if
　　　　end if
　　　　
　　　　set tCounter to tCounter + 1
　　end repeat
　　
　　set rData to items tStart thru tEnd of mList
　　return rData
　　
end retStartWithBlankAndEndsWithBlank

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

–文字列で与えられた時刻（時:分）の「差」を数値で返す（30分＝0.5、15分＝0.25）
on getTimeDiffNum(startTImestr, endTimeStr)
　　
　　set {sH, sM} to parseByDelim(startTImestr, ":") of me
　　set sDate to current date
　　set hours of sDate to (sH as number)
　　set minutes of sDate to (sM as number)
　　set seconds of sDate to 0
　　
　　set {eH, eM} to parseByDelim(endTimeStr, ":") of me
　　set eDate to current date
　　set hours of eDate to (eH as number)
　　set minutes of eDate to (eM as number)
　　set seconds of eDate to 0
　　
　　set d to eDate - sDate
　　set h to d div 3600
　　set m to d mod 3600
　　set m2 to m / 3600
　　set m3 to h + m2
　　
　　return m3
　　
end getTimeDiffNum

on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

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