2005,1993,1981,1969,1957,19海5,1933,1921,1909。!12年一轮,
1鸡2017年/2猴2018年/3羊2019年/4马2020年/5蛇2021年/6龙2022年/7兔2023年/8虎2024年/9牛2025年/10鼠2026年/11猪2027年/12狗2028年。
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羊、
(仅列出17年)1902(壬寅) 1914(甲寅) 1926(丙寅) 1938(戊寅) 1950(庚寅) 1962(壬寅) 1974(甲寅) 1986(丙寅) 1998(戊寅) 2010(庚寅) 2022(壬寅) 2034(甲寅) 2046(丙寅) 2058(戊寅) 2070(庚寅) 2082(壬寅) 2094(甲寅)注意以上只是大概的对应关系,因为世界通用的公历和中国的干支历是两种不同的历法。公历以1月1日为一年之始,而干支历以立春建寅月之日为一年之始。一般般立春当天相当于公历每年2月4号或5号、。
1899、1911。1923、1935。1947。1959。1971!1983!1995、2007 目前在世的应该只有这些年份...,
2008年倒过来数的12年,
准备好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!
干支纪年。年份分为子年、丑年、寅年!卯年,辰年!巳年。午年 !未年!申年!酉年!戌年!亥年、对应的生肖是:子年鼠,丑年牛。寅年虎。卯年兔,辰年龙!巳年蛇!午年马!未年羊!申年猴!酉年鸡。戌年狗,亥年猪。。
2017年的生肖是鸡 生肖一一年只有一个!
01 甲子 11 甲戌 21 甲申 31 甲午 41 甲辰 51 甲寅 02 乙丑 12 乙亥 22 乙酉 32 乙未 42 乙巳 52 乙卯 03 丙寅 13 丙子 23 丙戌 33 丙申 43 丙午 53 丙辰 04 丁卯 14 丁丑 24 丁亥 34 丁酉 44 丁未 54 丁巳 05 戊辰 15 戊寅 25 戊子 35 戊戌 45 戊申 55 戊午 06 己巳 16 己卯 26 己丑 36 己亥 46 己酉 56 己未 07 庚午 17 庚辰 27 庚寅 37 庚子 47 庚戌 57 庚申 08 辛未 18 辛巳 28 辛卯 38 辛丑 48 辛亥 58 辛酉 09 壬申 19 壬午 29 壬辰 39 壬寅 49 壬子 59 壬戌 10 癸酉 20 癸未 30 癸巳 40 癸卯 50 癸丑 60 癸亥 今年是戊子年,根据此表!可依此类推、,