12生肖` 鼠.牛.虎.兔.龙.蛇.马.羊.猴.鸡.狗.猪. 现在是2008年.猪年.自己往下数或者上推`每个生肖12年轮一次
可能是公元001年的生肖属性正好是鸡年而不是鼠年,生肖属性的年份应该是从公元前就开始了,毕竟公元是西方的叫法。。 这是为什么减三 加十二是因为十二年一轮,把年份除以十二,就是把每十二年分成一个阶段,比如余数是2,按照上面说的原因要减去3,发现变成了-1,那么就意味着要去前一个12年里面去找,前面一个十二年前去最后一个猪年,那么就是狗年了。。
1906、1918、1930、1942、1954、1966、1978、1990、2002
准备好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
上面是虚岁,供参考
把生肖定义为0~11 今年是鼠年,就已2008年为基准 (unsigned int)(年份 - 2008) % 12
上联:车水马龙农家乐;下联:花香鸟语大地春 上联:车水马龙一路景;下联:花香鸟语万家春 上联:春返神州舒画卷;下联:马腾盛世入诗篇 上联:春风碧水双鸥静;下联:旭日青山万马嘶 上联:春风得意人得志;下联:骏马扬蹄国扬威 上联:春风化雨芭蕉翠;下联:骏马登程杨柳青 上联:春风骏马开新纪;下联:大业宏图壮国威 上联:春风送暖花千树;下联:骏马扬蹄路万程 上联:春风万里辞蛇岁;下联:笑语千家入马年 上联:春风笑逐福音至;下联:天马喜随捷报飞 上联:春光原自梅梢发;下联:诗句竞于马背吟 上联:春归禹甸风光美;下联:马纵山河气势雄 上联:春花吐艳香千里;下联:快马加鞭跃九州 上联:春江花月宜人景;下联:龙马海风强国图 上联:春日寻芳骑骏马;下联: 国家思治用贤才 上联:春天点点芭蕉雨;下联:马步声声杨柳风 上联:春阳送暖芳菲地;下联:骏马奔驰锦绣程 上联:春寓枝头歌唤马;下联:马驰大道喜迎春 上联:春寓枝头迎佳节;下联:福在心里接马年 上联:辞年喜饮三蛇酒;下联:贺岁争描八骏图 上联:大道扬鞭驰骏马;下联:高天阔地展雄才 上联:大路长征驰骏马;下联:中华伟业展雄才 上联:大鹏俯视万春寨;下联:天马驰骋五里街 上联:大鹏欢喜天空阔;下联:骏马何愁道路长 上联:大鹏展翅青云路;下联:骏马奔驰浩荡春 上联:得意春风催骏马;下联:及时惠雨润鲜花 上联:东方古国红旗舞;下联:大路长征骏马驰 上联:冬去蛇留诗意里;下联:春来马入画图中 上联:冬去蛇留诗意美;下联:春来马跃画图新 上联:飞驰骏马鞭高举;下联:欢庆新年酒满斟 上联:风尘一路马蹄碎;下联:爆竹千家春意浓 上联:风光秀丽随春展;下联:道路逶迤任马驰 上联:伏枥犹存千里志;下联:添翼更上九重天 上联:福到门庭梅吐艳;下联:马驰道路柳生烟 上联:改革新潮催骏马;下联:振兴大业起宏图 上联:高天雪舞银蛇去;下联:大地春归骏马来 上联:庚晨日暖春来早;下联:午院花香蝶舞忙 上联:古柳荫中来走马;下联:好花深处有鸣禽 上联:豪情振笔歌新岁;下联:骏马加鞭奔坦途 上联:好借春风酬壮志;下联:快催骏马跃前程
1942 1954 1966 1978 1990 2002 2014
您好! 属鸡的年份有哪些? 1933...1945...1957...1969...1981...1993...2005
亥猪: 亥猪与寅虎六合,因此最宜找个属虎的对象,此乃上上等婚配。其次是与卯兔未羊三合,故也宜找个属兔属羊的,此乃上等婚配。亥猪与巳蛇相冲,故最忌找属蛇的,此乃下下等婚配。有时也讲亥亥自刑,故也不宜找同属相的,此乃中下等婚配。