84 干支を調べる

作品プログラム
動作環境
プロデル1.7.1023以降
投稿者
ゆうと
更新日
2020-09-22 12:10:36
ダウンロード数
24

作品のプログラム

入力日は、「1999/11/27」
//入力日は、「誕生日」を聞く
//もし入力日が「」なら終了する

対象日は、入力日を日時形式化したもの
「対象日:[対象日の日付]」を報告する
「年の干支: [対象日の年の年の干支]」を報告する
「月の干支: [対象日の月の干支​]」を報告する
「日の干支: [対象日の日の干支]」を報告する
//対象日のユリウス通日を報告する

【年番号】の、年の干支を求める手順
  //新暦で計算します
  【十干】は、{「庚」,「辛」,「壬」,「癸」,「甲」,「乙」,「丙」,「丁」,「戊」,「己」}
  【干支】は、{「申」,「酉」,「戌」,「亥」,「子」,「丑」,「寅」,「卯」,「辰」,「巳」,「午」,「未」}
  十干(年番号を10で割った剰り+1)&干支(年番号を12で割った剰り+1)を返す
終わり

【年月】の、月の干支​を求める手順
  //新暦で計算します
  【月干支】={{「戊寅」,「己卯」,「庚辰」,「辛巳」,「壬午」,「癸未」,「甲申」,「乙酉」,「丙戌」,「丁亥」,「戊子」,「己丑」},
  {「庚寅」,「辛卯」,「壬辰」,「癸巳」,「甲午」,「乙未」,「丙申」,「丁酉」,「戊戌」,「己亥」,「庚子」,「辛丑」},
  {「壬寅」,「癸卯」,「甲辰」,「乙巳」,「丙午」,「丁未」,「戊申」,「己酉」,「庚戌」,「辛亥」,「壬子」,「癸丑」},
  {「甲寅」,「乙卯」,「丙辰」,「丁巳」,「戊午」,「己未」,「庚申」,「辛酉」,「壬戌」,「癸亥」,「甲子」,「乙丑」},
  {「丙寅」,「丁卯」,「戊辰」,「己巳」,「庚午」,「辛未」,「壬申」,「癸酉」,「甲戌」,「乙亥」,「丙子」,「丁丑」}}
  月干支(年月の年を5で割った剰り+1)(年月の月)を返す
終わり

【対象日付】の、日の干支を求める手順
  【日干支】={「甲子」,「乙丑」,「丙寅」,「丁卯」,「戊辰」,「己巳」,
  「庚午」,「辛未」,「壬申」,「癸酉」,「甲戌」,「乙亥」,
  「丙子」,「丁丑」,「戊寅」,「己卯」,「庚辰」,「辛巳」,
  「壬午」,「癸未」,「甲申」,「乙酉」,「丙戌」,「丁亥」,
  「戊子」,「己丑」,「庚寅」,「辛卯」,「壬辰」,「癸巳」,
  「甲午」,「乙未」,「丙申」,「丁酉」,「戊戌」,「己亥」,
  「庚子」,「辛丑」,「壬寅」,「癸卯」,「甲辰」,「乙巳」,
  「丙午」,「丁未」,「戊申」,「己酉」,「庚戌」,「辛亥」,
  「壬子」,「癸丑」,「甲寅」,「乙卯」,「丙辰」,「丁巳」,
  「戊午」,「己未」,「庚申」,「辛酉」,「壬戌」,「癸亥」}
  【日数】=(対象日付のユリウス通日+49)を60で割った余り+2
  日干支(日数)を返す
終わり

【対象日付:日時形式】の、ユリウス通日を求める手順
  【日数積算】={30, 61, 91, 122, 152, 183, 214, 244, 275, 305, 336, 367}
  【年】=対象日付の年
  【月】=対象日付の月
  【日】=対象日付の日
  もし月が3未満なら
    年を減らす
    月を12だけ増やす
  もし終わり
  【通日】=(365.25*年)を切り捨てる+(年/400)を切り捨てる-((年/100)を切り捨てる)+日数積算(月-2)+日+1721088.5
  通日を返す
終わり
	

▲ページの先頭へ