**月齢 [#vd8a3418]
月齢の計算式を里々に当てはめたもの。正確な月齢を得るには複雑な計算式が必要であるため、かなり簡素化されている。精度は劣るものの記述が簡単なのがメリット。~
使い方は(月齢)。実行時の年月日で算出される。~

 @月齢
 (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)だよ。

トップ   編集 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS