您的位置 首页 风水八字

1997年日历农历表查询 2021年农历表查询

excel里如何得到当天的农历日期? '函数作用: 阴阳历转换和阴阳历生日'&n…

excel里如何得到当天的农历日期?

'函数作用: 阴阳历转换和阴阳历生日'    说    明:适用于1901-2100年间'    示    例:=lunar("2006-11-1")  求阳历2006-11-1日对应的阴历'             =solar("2006-1-1")    求阴历2006年正月初一对应的阳历'             =lunarbirth("1975-5-6")  阴历生日:阳历1975年5月6日出生,今年阴历生日时对应的阳历日期'             =solarbirth("1975-5-6")   阳历生日:阳历1975年5月6日出生,今年阳历生日时对应的阳历日期

1997年日历农历表查询 2021年农历表查询插图


Type ConvDataA
    leapmonth As Integer
    Month(1 To 13) As Integer
    sp_month As Integer 'Solar month of Spring Festival
    sp_day As Integer 'Solar day   of Spring Festival
End Type

Private Function LunarData(q_year) As ConvDataA
    Dim d As Long
    Dim Month(1 To 13) As Integer
    '1901-2100
    LunarCal = Array(&H4AE53, &HA5748, &H5526BD, &HD2650, &HD9544, &H46AAB9, &H56A4D, &H9AD42, &H24AEB6, &H4AE4A, _
               &H6A4DBE, &HA4D52, &HD2546, &H5D52BA, &HB544E, &HD6A43, &H296D37, &H95B4B, &H749BC1, &H49754, _
               &HA4B48, &H5B25BC, &H6A550, &H6D445, &H4ADAB8, &H2B64D, &H95742, &H2497B7, &H4974A, &H664B3E, _
               &HD4A51, &HEA546, &H56D4BA, &H5AD4E, &H2B644, &H393738, &H92E4B, &H7C96BF, &HC9553, &HD4A48, _
               &H6DA53B, &HB554F, &H56A45, &H4AADB9, &H25D4D, &H92D42, &H2C95B6, &HA954A, &H7B4ABD, &H6CA51, _
               &HB5546, &H555ABB, &H4DA4E, &HA5B43, &H352BB8, &H52B4C, &H8A953F, &HE9552, &H6AA48, &H7AD53C, _
               &HAB54F, &H4B645, &H4A5739, &HA574D, &H52642, &H3E9335, &HD9549, &H75AABE, &H56A51, &H96D46, _
               &H54AEBB, &H4AD4F, &HA4D43, &H4D26B7, &HD254B, &H8D52BF, &HB5452, &HB6A47, &H696D3C, &H95B50, _
               &H49B45, &H4A4BB9, &HA4B4D, &HAB25C2, &H6A554, &H6D449, &H6ADA3D, &HAB651, &H93746, &H5497BB, _
               &H4974F, &H64B44, &H36A537, &HEA54A, &H86B2BF, &H5AC53, &HAB647, &H5936BC, &H92E50, &HC9645, _
               &H4D4AB8, &HD4A4C, &HDA541, &H25AA36, &H56A49, &H7AADBD, &H25D52, &H92D47, &H5C95BA, &HA954E, _
               &HB4A43, &H4B5537, &HAD54A, &H955ABF, &H4BA53, &HA5B48, &H652BBC, &H52B50, &HA9345, &H474AB9, _
               &H6AA4C, &HAD541, &H24DAB6, &H4B64A, &H69573D, &HA4E51, &HD2646, &H5E933A, &HD534D, &H5AA43, _
               &H36B537, &H96D4B, &HB4AEBF, &H4AD53, &HA4D48, &H6D25BC, &HD254F, &HD5244, &H5DAA38, &HB5A4C, _
               &H56D41, &H24ADB6, &H49B4A, &H7A4BBE, &HA4B51, &HAA546, &H5B52BA, &H6D24E, &HADA42, &H355B37, _
               &H9374B, &H8497C1, &H49753, &H64B48, &H66A53C, &HEA54F, &H6B244, &H4AB638, &HAAE4C, &H92E42, _
               &H3C9735, &HC9649, &H7D4ABD, &HD4A51, &HDA545, &H55AABA, &H56A4E, &HA6D43, &H452EB7, &H52D4B, _
               &H8A95BF, &HA9553, &HB4A47, &H6B553B, &HAD54F, &H55A45, &H4A5D38, &HA5B4C, &H52B42, &H3A93B6, _
               &H69349, &H7729BD, &H6AA51, &HAD546, &H54DABA, &H4B64E, &HA5743, &H452738, &HD264A, &H8E933E, _
               &HD5252, &HDAA47, &H66B53B, &H56D4F, &H4AE45, &H4A4EB9, &HA4D4C, &HD1541, &H2D92B5, &HD5349)
    startyear = 1901
    ng = LunarCal(q_year - startyear)
    d = &H100000
    LunarData.leapmonth = Int(ng / d)
    ng = ng Mod d
    d = &H80
    mdata = Int(ng / d)
    ng = ng Mod d
    d = &H20
    LunarData.sp_month = Int(ng / d)
    LunarData.sp_day = ng Mod d
    d = &H1000
    i = 1
    Do
        LunarData.Month(i) = 29 + Int(mdata / d)
        mdata = mdata Mod d
        If d = 1 Then Exit Do
        d = d / 2
        i = i + 1
    Loop
    If LunarData.leapmonth = 0 Then LunarData.Month(i) = 0
End Function

Function lunar(Solar_date As Date, Optional Part As Integer = 0) As String
    'Part = 0, all; Part = 1, lunar year; Part = 2, lunar month; Part = 3, lunar day
    Dim a As ConvDataA
    l_year = Year(Solar_date)
    a = LunarData(l_year)
    sp_date = DateSerial(l_year, a.sp_month, a.sp_day)
    If sp_date > Solar_date Then
        l_year = l_year - 1
        a = LunarData(l_year)
        sp_date = DateSerial(l_year, a.sp_month, a.sp_day)
    End If
    l_day = Solar_date - sp_date
    l_month = 1
    IS_lunar_leapmonth = False
    y = a.Month(l_month)
    Do While l_day >= y
        l_day = l_day - y
        If l_month = a.leapmonth Then IS_lunar_leapmonth = (Not IS_lunar_leapmonth)
        If IS_lunar_leapmonth Then
            y = a.Month(13)
        Else
            l_month = l_month + 1
            y = a.Month(l_month)
        End If
    Loop
    l_day = l_day + 1
    lunar = l_year & "-" & l_month & "-" & l_day
    If IS_lunar_leapmonth Then lunar = lunar & "-L"
    lunar = Choose(Part + 1, lunar, l_year, l_month, l_day)
End Function

Function solar(Lunar_date, Optional IS_lunar_leapmonth As Integer = 0) As String
    'IS_lunar_leapmonth = 0, No leap month; IS_lunar_leapmonth = 1, is leap month
    Dim a As ConvDataA
    Lunar_date = Split(Lunar_date, "-")
    s_year = Lunar_date(0)
    For Each C In Lunar_date
        If C = "L" Then IS_lunar_leapmonth = 1
    Next
    a = LunarData(s_year)
    sp_date = DateSerial(s_year, a.sp_month, a.sp_day)
    If Lunar_date(1) <> a.leapmonth Then IS_lunar_leapmonth = 0
    x = Lunar_date(2)
    tm = Lunar_date(1) + IS_lunar_leapmonth - 1
    For i = 1 To tm
        x = x + a.Month(i)
        If i = a.leapmonth And IS_lunar_leapmonth = 0 Then
            x = x + a.Month(13)
        End If
    Next
    s_date = sp_date + x - 1
    solar = s_date
End Function

Function lunarbirth(Solar_birthday As Date, Optional Inquire_year As Integer) As String
    If Inquire_year = 0 Then
        Inquire_year = Left(lunar(Now), 4)
        lunarbirth = solar(Inquire_year & Mid(lunar(Solar_birthday), 5, 10))
        If CDate(lunarbirth) < Now - 1 Then Inquire_year = Inquire_year + 1
    End If
    lunarbirth = solar(Inquire_year & Mid(lunar(Solar_birthday), 5, 10))
End Function

Function solarbirth(Solar_birthday As Date, Optional Inquire_year As Integer) As String
    If Inquire_year = 0 Then
        Inquire_year = Year(Now)
        solarbirth = DateSerial(Inquire_year, Month(Solar_birthday), Day(Solar_birthday))
        If CDate(solarbirth) < Now - 1 Then Inquire_year = Inquire_year + 1
    End If
    solarbirth = DateSerial(Inquire_year, Month(Solar_birthday), Day(Solar_birthday))
End Function

excel表格如何显示农历日期

设置excel表格日期显示为农历的步骤如下:1、打开需要操作的excel表格,在A1单元格输入如下函数:“=TEXT(NOW(),"[$-130000]YYYY-M-D")”。2、单元格中可以观察到出现了一个日期:农历日期为六月初一。3、如果要将农历形式完全显示出来,就可以输入下列公式:=MID(" 甲乙丙丁戊己庚辛壬癸",MOD(TEXT(NOW(),"[$-130000]e")-4,10)+1,1)&MID("子丑寅卯辰巳午未申酉 戌亥",MOD(TEXT(NOW(),"[$-130000]e")-4,12)+1,1)&"年"&TEXT(NOW()," [$-130000][DBNum1]m月d日")。

12星座农历日期查询

你是出生在星座与星座的交接奌上
=
你必须补足个人的资料后!再告诉你!
本命太阳星座=查询日期列表
若要
查出自己的本命太阳星座
=


阳历查询对照的!
12星座代表!各自管辖不同出生月日的人仕,区分如下:
水瓶座:
公元历01月21日到02月19日之间出生的人
双鱼座:
公元历02月20日到03月20日之间出生的人
牡羊座:
公元历03月21日到04月20日之间出生的人
金牛座:
公元历04月21日到05月21日之间出生的人
双子座:
公元历05月22日到06月21日之间出生的人
巨蟹座:
公元历06月22日到07月22日之间出生的人
狮子座:
公元历07月23日到08月23日之间出生的人
处女座:
公元历08月24日到09月23日之间出生的人
天枰座:
公元历09月24日到10月23日之间出生的人
天蝎座:
公元历10月24日到11月22日之间出生的人
射手座:
公元历11月23日到12月21日之间出生的人
摩羯座:
公元历12月22日到01月20日之间出生的人
上列的本命太阳星座查核表!只是方便那些!
不是生于每月份!星座交接日子上的人士核对用的!
至于下列这些!生于星座交换日子上出生的人士!
必须透过电脑系统与你自己的出生国度!省!县!市!与出生时间(几点几分)!
才能去运算出精准的本命太阳星座与其它的各种星座!
因为中国版图很大!跨过好几个时区!
假若:生于同年!
月!
日!
时!
分!
秒的人!
因为时区的经纬度关系与真正太阳时引响!
在一年中的某些季节内!北京生与广西生人!
有时候是相差一个半小时呀!
例如:
出生在公历01月21日与02月19日当天出生的人!不一定是=宝瓶座
出生在公历12月22日与01月20日当天出生的人!不一定是=摩羯座
出生在公历11月23日与12月21日当天出生的人!不一定是=射手座
出生在公历10月24日与11月22日当天出生的人!不一定是=天蝎座
出生在公历09月24日与10月23日当天出生的人!不一定是=天枰座
出生在公历08月24日与09月23日当天出生的人!不一定是=处女座
出生在公历07月23日与08月23日当天出生的人!不一定是=狮子座
出生在公历06月22日与07月22日当天出生的人!不一定是=巨蟹座
出生在公历05月22日与06月21日当天出生的人!不一定是=双子座
出生在公历04月20日与05月21日当天出生的人!不一定是=金牛座
出生在公历03月21日与04月20日当天出生的人!不一定是=牡羊座
出生在公历02月20日与03月20日当天出生的人!不一定是=双鱼座
你的本命太阳星座是什么?
请你自己查核!
生于星座交换日子上的人士
=
星座查询者
若要查询=你个人的星座时!
请你准备自己的出生年次(阴历或公历)
与你的?月?日?时间(几奌?几分)出生地的省份?县市?=才会精准!
笔者:罗极先生编着!
曾任
:
台北市易学会学术研究部主任
实务
30


易理
!
哲理
!


..
研究
!
我想你应该是一位高贵的网友吧
!
我们期待
=
上面答复你能满意并点选满意度!
谢谢
!

本文来自网络,不代表小逸算命网立场,转载请注明出处:http://www.chinaprokits.com.cn/news/531.html

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注

返回顶部