准备好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！
能啊、比如我是1993年的属鸡的，那么1981年也是鸡的！12年一轮，例如1459年是什么生肖。用1993减1459再除以12得则商44余6则从鸡向前数六个生肖就是拉兔 希望采纳、
年 月 日 时 对应八字字 八字的每个字对应五行中的一个属性 有缺的 有多的 按你说的你还得搞清锭自己的时辰 才能算八字 进而算五行缺什么旺什么!
25岁和27岁就是2008年2010年过了的话就在等35岁到2018年、
属虎 2016年双重犯太岁！不仅仅冲太岁还还刑太岁！由于冲破太岁引起岁破出现专门破财的大耗星，并且血刃煞出现破坏寿命宫，这些凶星使得属虎成为今年第二凶的属！仅次于本命年的属猴、刑太岁直接造成犯太岁破坏了福字宫。运程的基础遭到严重打击！冲太岁造成大耗破坏财运形成岁破，同时驿马出现破财更凶，吉星方面虽然出现了大贵人月德德贵人!但是被犯太岁众多凶星压制孤掌难鸣！只能辅助人际关系帮助人缘、学堂小贵人能够对于禄字运有所帮助，红艳星对于婚姻宫感情恋爱比较有利。但是这些吉星难以与多重犯犯太岁对抗、整年运程大凶， 破解方法：佩戴本命佛、属虎人的本命佛是虚空藏菩萨。虚空藏菩萨为三世诸佛第一辅臣！1641在众多菩萨中专主智慧？功德和财富。因其智慧。功德、财富如虚空一样广阔无边，8804并能如愿满足世人的需求!使0456众生获得无穷利益。故有此名。虚空空藏菩萨是诚实，富有的象征！不虚不空是佛界的财神、当您佩戴敬奉时能够使您避开破财、败财的灾难！使您财财路畅通无阻,且能1247生财聚财，得八方贵贵人相助!远离小人！人财俱旺，、
7910 出生年份！
1941.1953.1965.1977.1989.2001.？
你就迷信吧。年份计算生肖肖方法。
年的数天除4,
如果技术不佳是初学、最好是购买买一只奶油裱花枪,这样子可以省去你不少事。比较方便快捷！ 如果想凭借自己的手艺或或者是一种盛满爱意的表达方式，那么你你就要费些时间。费些精力，把塑料袋用细针扎一个眼！先开始多练习几次！等你掌握到应用自如！9604随心所欲的挤出你想要的图案时再开始制作花边或者是图案， 如果自己也没有设计能力，也觉得是麻烦的事情的话，可以买一个设计好的了磨具、
上一篇：如何计算年份生肖
下一篇：如何通过年份计算生肖
年份计算生肖方法、如何通过年份计算生肖