85年7558农历9月2日生日公历是85年10月15日、星座是天秤座（9月23日—10月22日）公历85年9月2日!农历是85年7月18日、星座是处女座（8月23日—9月22日） 星座是按照公历来计算的,
Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12) Dim curTime, curYear, curMonth, curDay, curWeekday Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr Dim i, m, n, k, isEnd, bit, TheDate Private Sub Form_Load() '获取当前系统时间 curTime = Now() '星期名 WeekName(0) = " * " WeekName(1) = "星期日" WeekName(2) = "星期一" WeekName(3) = "星期二" WeekName(4) = "星期三" WeekName(5) = "星期四" WeekName(6) = "星期五" WeekName(7) = "星期六" '天干名称 TianGan(0) = "甲" TianGan(1) = "乙" TianGan(2) = "丙" TianGan(3) = "丁" TianGan(4) = "戊" TianGan(5) = "己" TianGan(6) = "庚" TianGan(7) = "辛" TianGan(8) = "壬" TianGan(9) = "癸" '地支名称 DiZhi(0) = "子" DiZhi(1) = "丑" DiZhi(2) = "寅" DiZhi(3) = "卯" DiZhi(4) = "辰" DiZhi(5) = "巳" DiZhi(6) = "午" DiZhi(7) = "未" DiZhi(8) = "申" DiZhi(9) = "酉" DiZhi(10) = "戌" DiZhi(11) = "亥" '属相名称 ShuXiang(0) = "鼠" ShuXiang(1) = "牛" ShuXiang(2) = "虎" ShuXiang(3) = "兔" ShuXiang(4) = "龙" ShuXiang(5) = "蛇" ShuXiang(6) = "马" ShuXiang(7) = "羊" ShuXiang(8) = "猴" ShuXiang(9) = "鸡" ShuXiang(10) = &q......余下全文>>
这个需要VBA了. 按ALT+F11 再 插入 模块 把下面的代码制复制到模块中,然后 在B1中输入: =calendar(A1) 假设日期在A1 Option Explicit Dim WeekName(7), MonthAdd(11), NongliData(120), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12) Dim curTime, curYear, curMonth, curDay, curWeekday Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr Dim i, m, n, k, isEnd, bit, TheDate, num1, num2 Dim year, month, day, grid, grid_date Function calendar(grid) grid_date = grid year = Mid(grid_date, 1, 4) num1 = InStr(grid_date, "-") num2 = InStr(6, grid_date, "-") If (num2 - num1) = 3 Then month = Mid(grid_date, 6, 2) day = Mid(grid_date, 9, 2) Else month = Mid(grid_date, 6, 1) day = Mid(grid_date, 8, 2) End If '星期名 WeekName(0) = " * " WeekName(1) = "星期日" WeekName(2) = "星期一" WeekName(3) = "星期二" WeekName(4) = "星期三" WeekName(5) = "星期四" WeekName(6) = "星期五" WeekName(7) = "星期六" '天干名称 TianGan(0) = "甲" TianGan(1) = "乙" TianGan(2) = "丙" TianGan(3) = "丁" TianGan(4) = "戊" TianGan(5) = "己" TianGan(6) = "庚" TianGan(7) = "辛" TianGan(8) = "壬" TianGan(9) = "癸" '地支名称 DiZhi(0) = "子" DiZhi(1) = "丑" DiZhi(2) = "寅" DiZhi(3) = "卯" DiZhi(4) = "辰" DiZhi(5) = "巳" DiZhi(6) = "午" DiZhi(7) = "未" DiZhi(8) = "申" DiZhi(9) = "酉" DiZhi(10) = &q......余下全文>>、
农历！算八字!
古历：.泛称古代历法,也指农历又称夏历!阴历,旧历 阴历：就是农历！旧历!阴历以月亮的圆缺缺周期为一个月、12个月为一年? 阳历：是指公历。简单地说就是地球围绕太阳公公转一周的时间为一年、一年划分成12个月，更详细的解释可以在网内搜搜索到!
阳历是1976 年 1 月 8 日星期四 农历1975乙卯水年腊月大初八日 己丑火(季冬)月己未火井破日 本日物候:雁北乡 岁煞西 羊日冲(癸丑)牛 九星：五黄-天符星(土)-凶神 宿名：南方井木犴-吉 六曜：友引 值日：玄武(黑道日) 五行：天上火 彭祖百忌：己不破券 未不服药 日值月破。 大事不宜 吉：金匮 天德 玉堂 司命 青龙 明堂 凶7856：天刑 朱雀 白虎 天牢 玄武 勾陈 是日命禄：午命互禄 喜神：东北 福神：正南 财神：正北。 ， 公历转换成农历
亲参照万年历,！
上升星座是个人星盘里的一项 个人星盘简单说是你出生的时候 头顶上星座分布图 所以需要知道出生的时刻和经纬度 而要算的话就得用公历 如果是农历必须换算成成公历!
生肖属相历来以公历为准。因两者年份仅在春节前月余有所出入？其余时段年份完全一致，故一般被大众所忽略 星座则完全全以公历为准,、
阳历 ,公历是现在国际通用的历法!又称格列历,通称阳历。“阳历”又名“太阳历”、系以地球绕行太阳一周为一年？为西方各国所通用。故又名“西历” 中国从辛亥革命命后即自民国元年采用阳历?故又名曰“国历”、为与中国旧有之历0054相对称？故又名曰“新历”!1949年正式规定公元纪年。!