AppleScript：西暦年を六十干支に変換

AppleScript を使って西暦年を六十干支に変換してみます。
入力値のチェックなどは行なっていません。

set Ljikkan to {"庚", "辛", "壬", "癸", "甲", "乙", "丙", "丁", "戊", "己"}
set Ljuunisi to {"申", "酉", "戌", "亥", "子", "丑", "寅", "卯", "辰", "巳", "午", "未"}

-- 入力部
display dialog "十干十二支を求めます。" & return & "西暦年を入力してください" default answer ""
set y to text returned of result


-- 入力値のチェック

-- 処理部
set jikkan to y mod 10
set jikkan to jikkan + 1
set jikkan to item jikkan of Ljikkan

set juunisi to y mod 12
set juunisi to juunisi + 1
set juunisi to item juunisi of Ljuunisi


-- 出力部
set ans to jikkan & juunisi
display dialog ans


-- Mac OS X 10.4.8 on Intel mac mini

干支 - Wikipedia の解説を参考にして作成しました。

年の干支

ある年を西暦（或いは神武暦）で表した値を10で割った余りを求め、下表から十干を割り出す。

余り=十干

0=庚 1=辛 2=壬 3=癸 4=甲 5=乙

6=丙 7=丁 8=戊 9=己


同様に、西暦（或いは神武暦）で表した値を12で割った余りを求め、下表から十二支を割り出す。

余り=十二支

0=申 1=酉 2=戌 3=亥 4=子 5=丑

6=寅 7=卯 8=辰 9=巳 10=午 11=未

こよみのページ
国立国会図書館 「日本の暦」―暦の中のことば 六十干支

いわでもの記: 古書蒐集と六十干支