生肖、天干地支年份、星座简便判断方法(VB)

原创 2005年05月23日 16:29:00

Public Function Constellation(mDate As Date) As String
'星座
    Constellation = Mid("摩羯水瓶双鱼白羊金牛双子巨蟹狮子处女天秤天蝎射手摩羯", (Month(mDate) + IIf((Day(mDate) - (19 + Int(Mid("102123444533", Month(mDate), 1)))) >= 0, 0, -1)) * 2 + 1, 2) & "座"
End Function

Public Function Animal(year As Integer) As String
''生肖
   Animal = Mid("鼠牛虎兔龙蛇马羊猴鸡狗猪", (((year - 1900) Mod 12) + 12) Mod 12 + 1, 1)
End Function

Public Function Tian(year As Integer) As String
'天干地支
   Tian = Mid("甲乙丙丁戊己庚辛壬癸", (((year - 1924) Mod 10) + 10) Mod 10 + 1, 1) & Mid("子丑寅卯辰巳午未申酉戌亥", (((year - 1924) Mod 12) + 12) Mod 12 + 1, 1)
End Function以前看过很多有关代码,感觉都需要经过很多的复杂过算,今天偶然碰到这三个函数,感觉要简便的多,所以就将他贴上来,供大家分享

acm功能日历(查周几,输出月日历,天干地支生肖)

程序:/* Copyright (c) 2013, 烟台大学计算机学院 * All rights reserved. * 作 者:赵玲玲 * 完成日期:2014 年 1 月 20 日 * 版 本...

天干地支纪年法及其换算方法

  • 2015年04月21日 21:10
  • 62KB
  • 下载

天干地支的意义

邵伟华老先生的文章,转载下,哈哈 十天干: 甲, 乙, 丙, 丁, 戊, 己, 庚, 辛, 壬, 癸. 十二地支: 子, 丑, 寅, 卯, 辰, 巳, 午, 未, 申, 酉, 戌, 亥. 天干的...
  • yxgeng
  • yxgeng
  • 2012年06月12日 13:15
  • 719

年份天干地支计算

  • 2015年06月29日 00:09
  • 66KB
  • 下载

天干地支查询 VC MFC

  • 2009年04月19日 02:07
  • 41KB
  • 下载

天干地支起源的几个说法

说法一: 在中国古代的历法中,甲、乙、丙、丁、戊、己、庚、辛、壬、癸被称为“十天干”,子、丑、寅、卯、辰、巳、午、未、申、酉、戌、亥叫作“十二地支”。两者按固定的顺序互相配合,组成了干支纪法。从殷墟...

我写的万年历插件(含天干地支,农历,阳历,节气,各种节假日等),基于MooTools 1.4

演示效果图:   插件源代码: function PL_rili(_id,Option,memo,_edit){//_edit:日曆內的價格可否被編輯 //如果页面中不包含该对象则...
  • sibang
  • sibang
  • 2014年08月21日 16:51
  • 540

天干地支与阴阳五行的关系

天干地支与阴阳五行的关系 中国古人采用干支纪年法,直到现在,我们还经常提到某某年的天干地支是什么,比如今年是戊子年,去年是丁亥年,其中子和亥分别表示了这两年的属相鼠和猪。因此很少有人不知道天干地支是...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:生肖、天干地支年份、星座简便判断方法(VB)
举报原因:
原因补充:

(最多只允许输入30个字)