自学八字实验课：手把手教你，通过新历生日时辰，自算八字乾造
本文所用公式以及资料表格：《自学八字入门课：了解自己的天干地支》
今天我们来手把手教你怎么算八字乾造，也就是年月日时的天干地支！案例：某人新历生日：2018年3月26日21点年干支：2018年，尾数是8，年干：戊
2018除以12，等于168.16，也就是等于168，余数为2，年支：戌
【年柱：戊戌】
按照表格计算
月干支：3月（农历二月）
年干为戊，则二月为“乙卯”
所以：
月干为乙；月支为卯。
日干支：已知2018年元旦日为：癸巳
计算3月26日的干支
日干公式：【日干代数=元旦天干代数+所求日数±按月加减数－天干周转数】
即：10（癸）+26（当日）-2（三月干）-3*10=4
即6为丁
日支公式：【日支代数=元旦地支代数+所求日数±按月加减数－地支周转数】
即：6（巳）+26（当日）+10（三月支）-3*12=6
即6为巳
所以3月26日为 丁巳日
时辰干支：口诀甲己还加甲，乙庚丙作初，丙辛生戊子，
丁壬庚子头，戊癸起壬子，周而复始求。
【已知3月26日为 丁巳日，则用【丁壬庚子头】，以庚子开始算当日23~1点，如此类推，辛丑、壬寅、癸卯。。。如此类推】比如是晚上9点~11点出生，则21点为亥时，而时辰的干则为【辛】（这里的类推请复习本人的入门课）
所以3月26日的时辰干支为：辛亥
今天出生的这位小孩子的八字为：
年 月 日 时
戊 乙 丁 辛
戌 卯 巳 亥
谢谢支持与关注：【现代风水实战派】的自学课最近收到很多粉丝的私信感谢，我很感恩！因为发现这么多的小伙伴都这么爱自学，弘扬文化，同时也强化了对八字的理解，不会人云亦云，这才是我开课的目的！算命不求人！Python公历和农历转换（阳历和阴历转换）
"""公历和农历转换（阳历和阴历转换）"""from datetime import dateimport sxtwldef moon_to_solar(yyyy_wm, mm_wm, dd_wm): # 阴历转阳历 lunar = sxtwl.Lunar() solar_day = lunar.getDayByLunar(yyyy_wm, mm_wm, dd_wm) solar_day_wm = "公历(阳历)：{0}年{1}月{2}日".format(solar_day.y, solar_day.m, solar_day.d) print("公历(阳历)：{0}年{1}月{2}日".format(solar_day.y, solar_day.m, solar_day.d)) return solar_day_wmdef solar_to_moon(yyyy_wm, mm_wm, dd_wm): # 阳历转阴历 ymc = [u"十一", u"十二", u"正", u"二", u"三", u"四", u"五", u"六", u"七", u"八", u"九", u"十"] rmc = [u"初一", u"初二", u"初三", u"初四", u"初五", u"初六", u"初七", u"初八", u"初九", u"初十", \ u"十一", u"十二", u"十三", u"十四", u"十五", u"十六", u"十七", u"十八", u"十九", \ u"二十", u"廿一", u"廿二", u"廿三", u"廿四", u"廿五", u"廿六", u"廿七", u"廿八", u"廿九", u"三十", u"卅一"] yyyy_china = {0: '0', 1: '一', 2: '二', 3: '三', 4: '四', 5: '五', 6: '六', 7: '七', 8: '八', 9: '九'} yyyy_ = str(yyyy_wm) yyyy_nv = '' for i in range(len(yyyy_)): wm_ = yyyy_[i] nv_ = yyyy_china[int(wm_)] yyyy_nv += nv_ lunar = sxtwl.Lunar() lunar_day = lunar.getDayBySolar(yyyy_wm, mm_wm, dd_wm) if (lunar_day.Lleap): lunar_day_wm = "农历(阴历):{0}年{1}月{2}".format(yyyy_nv, ymc[lunar_day.Lmc], rmc[lunar_day.Ldi]) print("阴历(农历):{0}年{1}月{2}".format(yyyy_nv, ymc[lunar_day.Lmc], rmc[lunar_day.Ldi])) else: lunar_day_wm = "农历(阴历):{0}年{1}月{2}".format(yyyy_nv, ymc[lunar_day.Lmc], rmc[lunar_day.Ldi]) print("农历(阴历):{0}年{1}月{2}".format(yyyy_nv, ymc[lunar_day.Lmc], rmc[lunar_day.Ldi])) return lunar_day_wmif __name__ == '__main__': moon_to_solar(1998, 5, 22) solar_to_moon(1997, 12, 26) """运行结果""" 公历(阳历)：1998年6月16日 农历(阴历):一九九七年十一月廿七 Process finished with exit code 0 """ Pgabc 2022000012 author : Pgabc www.wmdbsoft.com """
农历转公历
Public Function LTG(Optional xx_date As Date, Optional irow As Integer) '农历转公历
Dim LunarYear, LunarMonth, LunarDay
Dim NongliData(100)
'农历数据
NongliData(0) = 2635
NongliData(1) = 333387
NongliData(2) = 1701
NongliData(3) = 1748
NongliData(4) = 267701
NongliData(5) = 694
NongliData(6) = 2391
NongliData(7) = 133423
NongliData(8) = 1175
NongliData(9) = 396438
NongliData(10) = 3402
NongliData(11) = 3749
NongliData(12) = 331177
NongliData(13) = 1453
NongliData(14) = 694
NongliData(15) = 201326
NongliData(16) = 2350
NongliData(17) = 465197
NongliData(18) = 3221
NongliData(19) = 3402
NongliData(20) = 400202
NongliData(21) = 2901
NongliData(22) = 1386
NongliData(23) = 267611
NongliData(24) = 605
NongliData(25) = 2349
NongliData(26) = 137515
NongliData(27) = 2709
NongliData(28) = 464533
NongliData(29) = 1738
NongliData(30) = 2901
NongliData(31) = 330421
NongliData(32) = 1242
NongliData(33) = 2651
NongliData(34) = 199255
NongliData(35) = 1323
NongliData(36) = 529706
NongliData(37) = 3733
NongliData(38) = 1706
NongliData(39) = 398762
NongliData(40) = 2741
NongliData(41) = 1206
NongliData(42) = 267438
NongliData(43) = 2647
NongliData(44) = 1318
NongliData(45) = 204070
NongliData(46) = 3477
NongliData(47) = 461653
NongliData(48) = 1386
NongliData(49) = 2413
NongliData(50) = 330077
NongliData(51) = 1197
NongliData(52) = 2637
NongliData(53) = 268877
NongliData(54) = 3365
NongliData(55) = 531109
NongliData(56) = 2900
NongliData(57) = 2922
NongliData(58) = 398042
NongliData(59) = 2395
NongliData(60) = 1179
NongliData(61) = 267415
NongliData(62) = 2635
NongliData(63) = 661067
NongliData(64) = 1701
NongliData(65) = 1748
NongliData(66) = 398772
NongliData(67) = 2742
NongliData(68) = 2391
NongliData(69) = 330031
NongliData(70) = 1175
NongliData(71) = 1611
NongliData(72) = 200010
NongliData(73) = 3749
NongliData(74) = 527717
NongliData(75) = 1452
NongliData(76) = 2742
NongliData(77) = 332397
NongliData(78) = 2350
NongliData(79) = 3222
NongliData(80) = 268949
NongliData(81) = 3402
NongliData(82) = 3493
NongliData(83) = 133973
NongliData(84) = 1386
NongliData(85) = 464219
NongliData(86) = 605
NongliData(87) = 2349
NongliData(88) = 334123
NongliData(89) = 2709
NongliData(90) = 2890
NongliData(91) = 267946
NongliData(92) = 2773
NongliData(93) = 592565
NongliData(94) = 1210
NongliData(95) = 2651
NongliData(96) = 395863
NongliData(97) = 1323
NongliData(98) = 2707
NongliData(99) = 265877
NongliData(100) = 1706
Dim m, monthCount, toCurMonthCnt, LeapMonth, theDate, curTime
Dim i1, i2, i3, bit
'获取当前变量日期
curTime = xx_date
'LunarYear = Year(curTime)
LunarYear = Year(Now())
LunarMonth = Month(curTime)
LunarDay = Day(curTime)
m = LunarYear - 1921
monthCount = 0
toCurMonthCnt = 0
LeapMonth = -1
theDate = LunarDay - 1
For i1 = 0 To m - 1 Step 1
If (NongliData(i1) < 4095) Then
monthCount = 11
Else
monthCount = 12
End If
For i2 = 0 To monthCount Step 1
bit = NongliData(i1)
For i3 = 1 To i2 Step 1
bit = Int(bit / 2)
Next
bit = bit Mod 2
theDate = theDate + 29 + bit
Next
Next
If (NongliData(m) < 4095) Then
monthCount = 11
toCurMonthCnt = monthCount - LunarMonth + 2
Else
monthCount = 12
toCurMonthCnt = monthCount - LunarMonth + 1
LeapMonth = Int(NongliData(m) / 65536)
If LunarMonth <= LeapMonth Then toCurMonthCnt = toCurMonthCnt + 1
End If
For i2 = monthCount To toCurMonthCnt Step -1
bit = NongliData(m)
For i3 = 1 To i2 Step 1
bit = Int(bit / 2)
Next
bit = bit Mod 2
theDate = theDate + 29 + bit
Next
LTG = DateAdd("d", theDate, "1921/2/8")
If irow = 1 Then
Sheet1.Cells(1, 10) = "'" & LTG
Else
Sheet1.Cells(irow, 4) = "'" & LTG
End If
End Function
Private Sub CommandButton1_Click()
If IsDate(Sheet1.Cells(1, 9)) = True And IsNull(Sheet1.Cells(1, 9)) = False And Sheet1.Cells(1, 9) <> "" Then
aaa = LTG(Sheet1.Cells(1, 9), 1)
End If
Dim i As Integer
For i = 2 To 100
Sheet1.Cells(i, 4) = ""
If Sheet1.Cells(i, 2) <> "" And IsNull(Sheet1.Cells(i, 2)) = False And IsDate(Sheet1.Cells(i, 2)) = True Then
If Sheet1.Cells(i, 3) = "Y" Then
bbb = LTG(Sheet1.Cells(i, 2), i)
Else
Sheet1.Cells(i, 4) = "'" & Sheet1.Cells(i, 2)
End If
Else
Application.DisplayAlerts = False
Application.Quit
End If
Next i
End Sub
手机老黄历软件APP！万年历黄历农历全部都能查！功能非常强大！
今日分享手机万年历老黄历软件，是一款功能强大的万年历查询软件，现在也以时俱进推出了手机安卓版本，不但可以查询农历，黄历，天气，节日，假期等，还新增加了记事、拍照、录音、微博等功能，全力打造一个适合当下安卓软件的全新万年历。
生日管家，提供生日，纪念日提醒，倒计时，年龄，星座，生肖，生存天数，一目了然，再也不会忘记家人生日。支持农历生日。还提供自定义纪念日哦！便捷生活，天气预报，生肖运势，周公解梦，生男生女，八字婚配，宝宝起名，日期推算，短信祝福，车辆限行，食物禁忌，您关注的我们都有啦！我们就是要您便捷的生活！
万年历黄历，专注时间管理，高效生活，我们只想做您身边的好帮手！纯净日历，日历简约清爽，无垃圾新闻和过多广告打扰。我们可自定义日历背景，您的日历您做主，精美日历从第一眼开始。多日历切换，融合公历，农历，伊斯兰历，佛历，藏历，可直接切换月历模式，一历在手，万历皆有。权威天气，数据来自中央气象台雷达数据，准确及时，包含24小时实时气象雷达和连续15日未来天气，并覆盖全国3000个城市和全球核心城市。
全球节假日，提供全球十几个地区的官方假期和节日介绍。包含美国，英国，加拿大，新加坡，台湾，香港等地，全球主要华人分布的地区，都是我们的重点服务区。并且我们承诺，所有官方假期终生每年免费更新。高效云记事，提供文字，录音，图片记事，支持备忘标示在月历上。支持云备份，并且我们承诺终生免费提供云备份。您的所有记事只要登陆了云，都可以永不丢失。更新日志。新增免费的节日贺卡，可以在每日一言中选择喜欢的节日图片，分享给朋友。欢迎大家使用。
功能简介新增强大的每日一言分享，可更换图片，更改文字，更换logo，更换模板优化摇一摇语音播放，可选择插件不带播放按钮适配手机系统大字体，老人可选择系统大字体，更清晰支持同时显示多国假期。并精准提供每个假期对应的节日介绍简化节日显示，只显示用户选择的节日，如果需要国际节日，请在设置里勾选优化生日提醒，解决老用户的生日数据自动导入系统日历并提供提醒美化页面，提升登录软件速度手机软件千千万，总有一款适合你！专注于优秀手机软件APP分享，关注我获取更多有趣、好玩、实用、流行、优秀的手机软件APP。今天的分享就到这里啦，我们明年今日再见！
