六十生肖五行表 甲子金鼠、乙丑金牛;丙寅火虎、丁卯火兔;戊辰木龙、己巳木蛇; 庚午土马、辛未土羊;壬申金猴、癸酉金鸡;甲戌火狗、乙亥火猪; 丙子水鼠、丁丑水牛;戊寅土虎、己卯土兔;庚辰金龙、辛巳金蛇; 壬午木马、癸未木羊;甲申水猴、乙酉水鸡;丙戌土狗、丁亥土猪; 戊子火鼠、己丑火牛;庚寅木虎、辛卯木兔;壬辰水龙、癸巳水蛇; 甲午金马、乙未金羊;丙申火猴、丁酉火鸡;戊戌木狗、己亥木猪; 庚子土鼠、辛丑土牛;壬寅金虎、癸卯金兔;甲辰火龙、乙巳火蛇; 丙午水马、丁未水羊;戊申土猴、己酉土鸡;庚戌金狗、辛亥金猪; 壬子木鼠、癸丑木牛;甲寅水虎、乙卯水鼠;丙辰土龙、丁巳土蛇; 戊午火马、己未火羊;庚申木猴、辛酉木鸡;壬戌水狗、癸亥水猪。
准备好12个图片,取名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
1990年马 1991年羊 1992年猴 1993年鸡 1994年狗 1995猪 1996鼠 1997牛 1998虎 1999兔2000龙 2001蛇 之后又从马开始轮回 02年马 03年羊 04年猴 05年鸡 06年狗 07猪 08鼠 09牛 10虎 11兔 12龙 13蛇 14马 15羊
鼠牛虎兔龙蛇马羊猴鸡狗猪,年份?
乙卯月对应兔生肖,乙酉日对应鸡生肖。 祝开心快乐!
首先,你得知道生肖的排列顺序。鼠牛虎兔龙蛇马羊猴鸡狗猪。 其次,你得找一个参照,例如你是什么年份出生的,是什么生肖。 最后,根据以上两个条件去推算,也就是简单的加减法。
你好 楼主问这个有什么用 2019,2007,1995,1983,1971,1959 大概就是这些了吧 希望对你有帮助
子鼠、丑牛、 寅虎、卯兔、 辰龙、巳蛇、 午马、未羊、 申猴、酉鸡、 戌狗、亥猪。
阴历。生肖以出生日期的阴历为准。 1978.1.25是阳历,那阴历为1977.12.17,则不是属马,属蛇。 1977.1.3是阳历,那阴历为1976.11.14,则是属龙。
我国的生肖属相是随着立春变更的。1991年2月4日立春。2月4日以前出生的算庚午年,庚午年出生的人生肖属马 五行属土,是路旁土命;2月4日以后出生的算辛未年,辛未年出生的人生肖属羊 五行属土,是路旁土命。 公历:1991年2月5日星期二宝瓶座 农历:庚午年 腊月 廿一日 干支:辛未 庚寅 丙午 公历:1991年2月2日星期六宝瓶座 农历:庚午年 腊月 十八日 四柱:庚午 己丑 癸卯