1鸡2017年/2猴2018年/3羊2019年/4马2020年/5蛇2021年/6龙2022年/7兔2023年/8虎2024年/9牛2025年/10鼠2026年/11猪2027年/12狗2028年!
亥猪: 亥猪与寅虎六he,yin此最宜找个属虎的对象。此乃上上等婚配,其次shi与卯兔未羊三合?故ye宜找个属兔属羊的。此乃上等婚配,亥猪与巳蛇相冲,故最忌找属蛇的,此乃下下等婚配。有shi也讲亥亥自刑、故也不宜找同shu相的!此乃中下等婚配,。
准备好12ge图片。qu名sx01.jpg-sx12.jpg?放在当前文件夹。comboBox 只显示年份!添加一个按钮Command1 Dim strSxName Private Sub Command1_Click() Dim dd As Long '计算选择的年份和标准年份的差值 dd = (dateDiff("yyyy", #1/1/2020#, DateSerial(Combo1.Text, 1, 1)) Mod 12 + 12) Mod 12 Text1.Text = strSxName(dd) '载入对应的图片 Image1.Picture = LoadPicture(App.Path & "\" & Format(dd+1, "00") & ".jpg") End Sub Private Sub Form_Load() '初始化数组 strSxName = Array("鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊", "猴", "鸡", "狗", "猪") '找到一个已知生肖的年份作为标准年份:2020-鼠年,对应数组索引0。对应图片 01.jpg End Sub?
以下为十二地支和十二生肖以及五行的对应关系: 地支 子 丑 寅 卯 辰 巳 午 未 申 酉 戌 亥 属相 鼠 牛 虎 兔 龙 蛇 马 羊 猴 鸡 狗 猪 五行 水 土 木 木 土 火 火 土 金 金 土 水 1986年3月初4为丙寅年壬辰月丙戌日,也就是虎年龙月…… 1988年7月28 为戊辰年辛酉月丙寅日!也就是龙年ji月…… 对应一下就可以了!
1981。1993,2005,2017。2029尾数单数。生肖猪对应年份
生肖属马的年份 公历纪元2014年 农历甲午年【马年】 公历纪元2002年 农历壬午年【马年】 公历纪元1990年 农历庚午年【马年】 公历纪元1978年 农历戊午年【马年】 公历纪元1966年 农历丙午年【马年】 公历纪元1954年 农历甲午年【马年】?
2017年是鸡nian!生肖猪对应年份
1933...1945...1957...1969...1981...1993...2005,
鸡冲兔无蛇克狗破龙 猴冲虎无龙克猪破兔 羊冲牛无兔克鼠破虎 马 冲鼠无虎克牛破牛蛇冲猪无牛克虎破鼠 龙冲狗无鼠克兔破猪 兔冲鸡无猪克龙破狗 虎冲猴 无狗克蛇破鸡牛冲羊无鸡克马破猴 鼠冲马无猴克羊破羊 猪冲蛇无羊克猴破马 狗冲龙无 ... 参考资料:sina.sm.aqioo.com/ChineseCalendar.html,生肖猪对应年份
子鼠。丑牛。 寅虎,卯兔, 辰龙。巳蛇, 午马。未羊, 申猴,酉鸡。 戌狗。亥猪。,生肖猪对应年份



