数値を「時間」「分」でフォーマットしたテキストで返す
時間の数値（単位：秒）を「時間」「分」でフォーマットしたテキストとして返すAppleScriptです。
処理に長い時間を要するバッチ処理のプログラムで、途中経過をtwitterで報告しようとして、単に経過時間を分で返すだけでは分りづらかったので、これをフォーマットするために作ったものです。
| スクリプト名：数値を「時間」「分」でフォーマットして返す |
| set aTime to (time to GMT) + 1800 set aText to retTimeText(aTime) of me –> "9時間30分" –数値を「時間」「分」でフォーマットして返す on retTimeText(aTime) set aHour to aTime div 3600 set aMinute to (aTime mod 3600) / 60 set aString to "" if aHour > 0 then set aString to aHour & "時間" end if if aMinute > 0 then set aString to aString & (aMinute as integer) & "分" end if return (aString as string) end retTimeText |