生肖 天干地支年份 星座簡便判斷方法 VB

2021-04-01 00:48:44 字數 736 閱讀 9648

public function constellation(mdate as date) as string

'星座constellation = mid("摩羯水瓶雙魚白羊金牛雙子巨蟹獅子**天秤天蠍射手摩羯", (month(mdate) + iif((day(mdate) - (19 + int(mid("102123444533", month(mdate), 1)))) >= 0, 0, -1)) * 2 + 1, 2) & "座"

end function

public function animal(year as integer) as string

''生肖

animal = mid("鼠牛虎兔龍蛇馬羊猴雞狗豬", (((year - 1900) mod 12) + 12) mod 12 + 1, 1)

end function

public function tian(year as integer) as string

'天干地支

tian = mid("甲乙丙丁戊己庚辛壬癸", (((year - 1924) mod 10) + 10) mod 10 + 1, 1) & mid("子丑寅卯辰巳午未申酉戌亥", (((year - 1924) mod 12) + 12) mod 12 + 1, 1)

end function以前看過很多有關**,感覺都需要經過很多的複雜過算,今天偶然碰到這三個函式,感覺要簡便的多,所以就將他貼上來,供大家分享

天干地支計算公式 天干地支計算方法

從近幾年全國各地高考命題趨勢看,有關文史常識的題目幾乎年年考,面對這樣的形勢,我們在高三備考時,要注意提醒學生平時有意識地加強這方面的記憶和訓練,但要注意避免盲目性,同時要注意一些學習技巧。比如有關如何推算天干地支方面的文章網上也有很多,但看了有些學生還是看不懂或是不會運用。其實我們可以簡化如下,通...

天干地支紀年法

天干地支是早在西元前二千六百九十七年,於中華始祖黃帝建國時,命大撓氏探察天地之氣機,五行 金木水火土 始作甲 乙 丙 丁 戊 己 庚 辛 壬 癸等十天幹,及子 醜 寅 卯 辰 巳 午 未 申 酉 戌 亥等十二地支,相互配合成六十甲子用為紀歷之符號。我國曆法以月球繞地球一周的時間 29.5306天 為...

藍橋python 天干地支

時間限制 1.0s 記憶體限制 512.0mb 本題總分 15 分 問題描述 古代中國使用天干地支來記錄當前的年份。天乾一共有十個,分別為 甲 ji 乙 y 丙 b ng 丁 d ng 戊 w 己 j 庚 g ng 辛 x n 壬 r n 癸 gu 地支一共有十二個,分別為 子 z 醜 ch u 寅...