生肖、天干地支年份、星座简便判断方法(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以前看过很多有关代码,感觉都需要经过很多的复杂过算,今天偶然碰到这三个函数,感觉要简便的多,所以就将他贴上来,供大家分享

正确计算天干地支生肖的函数(.net)---更正版

因为要用到一个 算干支的函数但在网上找了好长时间,没有发现算的正确的(按春节划分如20070217丙戌-20070218则为丁亥)所以就自写了一个,夜深了,有的地方就草草写了,有错请回复提出注:用的X...
  • chsword
  • chsword
  • 2007年01月06日 02:09
  • 5092

JS类库整理–判断干支、生肖和星座 –js

//+————————————————— //| Date.prototype.MagicInfo(type) //| 判断日期 所属 干支 生肖 星座 //| type 参数:XZ 星座 GZ...
  • zhangxh1013
  • zhangxh1013
  • 2012年04月28日 09:48
  • 2050

Java根据年份算出所属的生肖。

一个小程序~ public String getYear(Integer year){ if(year
  • u010402518
  • u010402518
  • 2013年09月25日 16:26
  • 2038

Java通过出生日期计算属相(生肖)和星座

Java代码通过出生日期计算属相和星座,以后用到了就不用再百度了。。。public class Year { private final static int[] dayArr = new i...
  • u010758605
  • u010758605
  • 2015年09月09日 16:26
  • 2179

javascript计算生肖、星座、年龄的方法

function ages(str){ var r = str.match(/^(\d{1,4})(-|\/)(\d{1,2})\2(\d{1,2})$/); ...
  • fay462298322
  • fay462298322
  • 2016年11月01日 21:46
  • 383

【mysql 计算星座】根据身份证计算用户所属星座

SELECT casewhen SUBSTRING(person_card,11,4) between '0120' and '0218' then '水瓶座' when SUBSTRING(pers...
  • u013421629
  • u013421629
  • 2017年11月13日 14:44
  • 196

根据日期,转换成星座、生肖工具类

package com.ss.common.util; import java.text.ParseException; import java.text.SimpleDateFormat; imp...
  • saindy5828
  • saindy5828
  • 2015年08月11日 10:23
  • 1283

输入一个年份,输出框就能显示这一年是什么生肖

public class test { public static void main(String[] args) { Animal.zodiac(1910); } ...
  • qq_36474990
  • qq_36474990
  • 2017年12月19日 20:41
  • 109

C#根据年份计算生肖属相的代码

提供年份可以输出属相,代码比较简单,因为2008年为鼠年,所以程序以2008为标准开始,2008对中国人也有特殊的意义 private static void shuxian...
  • my98800
  • my98800
  • 2018年01月12日 08:25
  • 43

12生肖与做营销:从生肖性格特征谈销售人员素质

做了十多年市场,近来有意亲自干一回销售。应聘了数不清的销售经理职位,结果都是不了了之。看来销售工作也不是谁想干就能干的。很多人都把销售人员视为特殊的一群。学历和年龄要求可以不高,但对素质和销售从业资历...
  • wl0215
  • wl0215
  • 2009年03月26日 14:34
  • 884
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:生肖、天干地支年份、星座简便判断方法(VB)
举报原因:
原因补充:

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