准备好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
可能是公元001年的生肖属性正好是鸡年而不是鼠年,生肖属性的年份应该是从公元前就开始了,毕竟公元是西方的叫法。。 这是为什么减三 加十二是因为十二年一轮,把年份除以十二,就是把每十二年分成一个阶段,比如余数是2,按照上面说的原因要减去3,发现变成了-1,那么就意味着要去前一个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年
那一年没人盖房啊?每年都有凶吉日,凶日积极准备,吉日破土动工。.
她的生肖是羊 91年的 都26岁了
刘三姐是唱山歌的,十二生肖谁唱歌最好听啊。 鸡
在《周易·说卦传》中有显示关于八卦图卦位具体位置的图腾属性说明,比如象逗乾为马,坤为牛,震为龙,巽为鸡,坎为豕,离为雉,艮为狗,兑为羊.地又有逗乾为首,坤为腹,震为足,坎为耳,离为目,艮为手,兑为口。地等等,如果将上述八卦图图腾属性组合在一起,便有了逗乾,马首;坤,牛腹;震,龙足;巽,鸡股;坎,豕耳;离,雉目;艮,狗手;兑,羊口。地八卦的图腾属性就相当清晰和具体化了。
今天是: 2016年2月23日 农历 正月十六 星期二 丙申年(猴年)、庚寅月(虎月)、乙亥日(猪日)
每年有很多庚子日,这是天干和地支排列组合,属什么要以年为准,且按节气确定
申,(猴),所以申时的属相是为猴. 酉,(鸡),所以申时的属相是为鸡.