准备好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
亥猪: 亥猪与寅虎六合,因此最宜找个属虎的对象,此乃上上等婚配。其次是与卯兔未羊三合,故也宜找个属兔属羊的,此乃上等婚配。亥猪与巳蛇相冲,故最忌找属蛇的,此乃下下等婚配。有时也讲亥亥自刑,故也不宜找同属相的,此乃中下等婚配。
法定婚龄,按当事人实际出生的年月日计算,一般情况下,一天也不能相差。 《婚姻法》第六条明确规定:结婚年龄,男不得早于二十二周岁,女不得早于二十周岁。 这是我国大陆最低的法定结婚登记年龄。 希望我的回答能对你有所帮助。
1936 1948 1960 1972 1984 1996 2008 2020
1年纸婚50年金婚
我就记得自己出生的年份是什么生肖,然后12年以内的就按十二生肖排序来算。12年以外的就加上12的倍数。比如1985年是属牛,那2015年就是(2015-1985)/12=2余数6。2015年就是牛年后面第六个生肖。(鼠牛虎兔龙蛇马羊猴鸡狗猪)属羊。
2017年的生肖是鸡 生肖一年只有一个
生肖邮票当然是第一轮生肖票猴 (庚申猴)最贵 达到一万二至一万四左右一枚 大版八十枚达到一百多万一块.
农历去年十二月廿一龙冲狗
阴历。生肖以出生日期的阴历为准。 1978.1.25是阳历,那阴历为1977.12.17,则不是属马,属蛇。 1977.1.3是阳历,那阴历为1976.11.14,则是属龙。