1鸡2017年/2猴2018年/3羊2019年/4马2020年/5蛇2021年/6龙2022年/7兔2023年/8虎2024年/9牛2025年/10鼠2026年/11猪2027年/12狗2028年
可能是公元001年的生肖属性正好是鸡年而不是鼠年,生肖属性的年份应该是从公元前就开始了?毕竟公元是西方的叫法,、 这是为什么减三 加十二是因为十二年一轮,把把年份除以十二 就是把每十二二年分成一个阶段?比如余数是2、按照上面说的原因要减去3!发现变成了-1,那么就意味着要去前一个12年里面去找?前前面一个十二年前去最后一个猪年!那么就是狗年了。。?周易四柱八卦算命婚姻
当然是按公历!但农村一般按农历?我个7183人觉得不准?要是生到润月怎么办!例如润五月!好多年才有一次润五月。你不可能每年按六月或是五月来过吧!要是按农历五月来过,假如你有一远房哥、他是是五月二号的,你是润五月一号的?你不6843可能每年比你哥还早过生日吧 !家养什么植物风水好
1992年11月28日 农历 十一月初五 星期六 壬申年 【猴年】辛亥月【猪月】 戊申日【猴日】。哪个生肖运势最好2016
能啊,比如我是1993年的属鸡的!那么1981年也是鸡的?12年一轮,例如1459年是什么生肖?用1993减1459再除以12得则商44余6则从鸡向前数六个生肖就是拉兔 希望采纳。恩爱相随伴打一生肖
2008年倒过来数的12年,年份与生肖做梦梦到算命先生
2013年是蛇 2012年是龙 20唬1年是兔 2010年是虎 2009年是牛 2008年是鼠 2007年是狗 2006年是猪 2005年是鸡 2004年是猴 2003年是羊 2002年是马马 2001年是蛇 2000年是龙,最穷的生肖
准准备好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、气纯八卦洞玄
亥猪: 亥4421猪与寅虎六合,因此最宜找个属虎的对象,此乃上上上等婚配 其次是与卯兔未未羊三合、故也宜找个属兔属羊的 此乃上等婚配。亥猪与巳蛇相冲!故最忌找属蛇的 此乃下下等婚配。有时也讲亥亥自刑?故也不不宜找同属相的、此乃中下等婚配??八字能算出有几个孩子
这个可以用取模的方式实现。主要思路如下: dim year as integer dim rem as integer year=val(inputbox("请输入年份")) rem=year mod 12 select case rem case 0 msgbox "猴" case 1 msgbox "鸡" case 2 msgbox "狗" case 3 msgbox "猪" case 4 msgbox "鼠" case 5 msgbox "牛" case 6 msgbox "虎" case 7 msgbox "兔" case 8 msgbox "龙" case 9 msgbox "蛇" case 10 msgbox "马" case 11 msgbox "羊" end select 主要代码就是这样了,你在根据要修修改完善下就可以了?韶关风水