#module
#const 明治 1868
#const 大正 1912
#const 昭和 1926
#const 平成 1989
#defcfunc 生年を和暦で int 生年
if 生年 > 平成 {
和暦 = 生年-平成+1
} else: if 生年 > 昭和 {
和暦 = 生年-昭和+1
} else: if 生年 > 大正 {
和暦 = 生年-大正+1
} else : if 生年 > 明治 {
和暦 = 生年-明治+1
} else : 和暦 = 0
return 和暦
#global
現在の西暦 = gettime( 0 )
測定西暦 = 現在の西暦
repeat 20 ; 20年間
生年 = 明治
repeat
和暦 = 生年を和暦で( 生年 )
if 測定西暦 = 和暦 + 生年 {
mes "和暦"+和暦+"(西暦"+生年+")年生まれ 西暦"+測定西暦+"年に"+(測定西暦-生年)+"歳"
}
if 生年 >= 現在の西暦 : break
生年++
loop
測定西暦++
loop