月齢の計算式を里々に当てはめたもの。正確な月齢を得るには複雑な計算式が必要であるため、かなり簡素化されている。精度は劣るものの記述が簡単なのがメリット。
使い方は(月齢)。実行時の年月日で算出される。
@月齢 (calc, ((((現在年)-11)%19)*11 +(nswitch,(現在月),0,2,0,2,2,4,5,6,7,8,9,10)+(現在日))%30 )
特定の日付の月齢を得たい場合は関数化する。
@月齢 (calc, ((((A0)-11)%19)*11 +(nswitch,(A1),0,2,0,2,2,4,5,6,7,8,9,10)+(A2))%30 ) * :2016年1月1日の月齢は(call,月齢,2016,1,1)だよ。