干支は十干と十二支の計算するプログラム早見表はいらない

   

干支の計算するプログラム早見表はいらない

干支の計算するプログラム早見表はいらない

干支とは
中国や漢字圏において使用された。
日本では干支は十二支を指すことが多いが
十干と十二支の組み合わせのことです。

うぃきより引用

十干は

十干 日本語 中国語 朝鮮語 ベトナム語 本義[2]
音読み 訓読み 意味
甲 こう きのえ 木の兄 jiǎ 갑 (gap) giáp 草木の芽生え、鱗芽のかいわれの象意
乙 いつ、おつ きのと 木の弟 yǐ 을 (eul) ất 陽気のまだ伸びない、かがまっているところ
丙 へい ひのえ 火の兄 bǐng 병 (byeong) bính 陽気の発揚
丁 てい ひのと 火の弟 dīng 정 (jeong) đinh 陽気の充溢
戊 ぼ つちのえ 土の兄 wù 무 (mu) mậu “茂”に通じ、陽気による分化繁栄
己 き つちのと 土の弟 jǐ 기 (gi) kỷ “紀”に通じ、分散を防ぐ統制作用
庚 こう かのえ 金の兄 gēng 경 (gyeong) canh 結実、形成、陰化の段階
辛 しん かのと 金の弟 xīn 신 (shin) tân 陰による統制の強化
壬 じん みずのえ 水の兄 rén 임 (im) nhâm “妊”に通じ、陽気を下に姙む意
癸 き みずのと 水の弟 guǐ 계 (gye) quý “揆”に同じく生命のない残物を清算して地ならしを行い、新たな生長を行う待機の状態
十二支 日本語 中国語 朝鮮語 ベトナム語 本義[3]
音読み 訓読み
子 し ね zǐ 자 (ja) tý “孳”で、陽気が色々に発現しようとする動き
丑 ちゅう うし chǒu 축 (chuk) sửu “紐”で、生命エネルギーの様々な結合
寅 いん とら yín 인 (in) dần “演”で、形をとっての発生
卯 ぼう う mǎo 묘 (myo) mão/mẹo 同音“冒”に通じ、開発の意
辰 しん たつ chén 진 (jin) thìn “震”、同音“申”に同じ、生の活動
巳 し み sì 사 (sa) tỵ “已”に通じ、陽盛の極、漸く陰に移ろうとする所
午 ご うま wǔ 오 (o) ngọ “忤(さからう)”に通じ、上昇する陰と下退する陽との抵触
未 び ひつじ wèi 미 (mi) mùi “昧”で、陰気の支配
申 しん さる shēn 신 (shin) thân 陰気の支配
酉 ゆう とり yǒu 유 (yu) dậu 酒熟して気の漏れる象。陰気の熟する所
戌 じゅつ いぬ xū 술 (sul) tuất 同音“恤”であり、“滅”である。統一退蔵。
亥 がい い hài 해 (hae) hợi “核”で、生命の完全な収蔵含蓄

十干の計算方法
西暦を10で割った余りで求めることができます。

十二支の計算方法
西暦を12で割った余りで求めることができます。

サンプルソース
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ary1() As String = New String() {"庚", "辛", "壬", "癸", "甲", "乙", "丙", "丁", "戊", "己"}
Dim ary2() As String = New String() {"甲", "酉", "戌", "亥", "子", "丑", "寅", "卯", "辰", "巳", "午", "未"}

TextBox2.Text = "十干は" & ary1(TextBox1.Text Mod 10) & "十二支は" & "十二支は" & ary2(TextBox1.Text Mod 12)
End Sub

End Class

TextBox1に西暦を入力してボタンを押すと
TextBox2に十干は十干の該当十二支は十二支の該当

2017年は
十干は丁十干は十二支は酉
ですね。

PR



 - vb.netさんぷる

Translate »