八字起大运

zopey

     操作简单，输入性别、出生公历即可，一键 查询
     一个节气管一个月，对应10年大运，与网上流行的几种起大运方法不尽相同，以下是我的一家之言，
1、以出生时刻邻近的节气时刻（分顺、逆）为准绳，计算时间差（精确到分钟），公历12分钟对应 大运的1天。
2、再参照大运的一年等于 12月，一月等于30天，将时间差对应总天数 换算为起运周岁  “岁  个月 天”
3、最后从出生时刻邻近的节气 ，由起运周岁 推算交运日期，“岁”代表 干支甲子年，“个月” 代表节气月（具体查八字）。
     这一步没有采用公历日期 分别加 年 月 日的做法。

八字起大运.zip (42.22 KB, 下载次数: 775)

2018-2-13 11:13 上传

点击文件名下载附件

zopey

Private Sub CommandButton1_Click()
Dim A As Date, i As Integer, jy As Integer, jm As Integer
Rows("5:65535").ClearContents

T = Array("甲", "乙", "丙", "丁", "戊", "己", "庚", "辛", "壬", "癸")
Dz = Array("子", "丑", "寅", "卯", "辰", "巳", "午", "未", "申", "酉", "戌", "亥")
'F = Array("小寒", "立春", "惊蛰", "清明", "立夏", "芒种", "小暑", "立秋", "白露", "寒露", "立冬", "大雪")
F = Array("小寒", "大寒", "立春", "雨水", "惊蛰", "春分", "清明", "谷雨", "立夏", "小满", "芒种", "夏至", "小暑", "大暑", "立秋", "处暑", "白露", "秋分", "寒露", "霜降", "立冬", "小雪", "大雪", "冬至")

'四柱
A = Cells(1, 4).Value
Cells(3, 4).Value = sizhu(A)

'阴阳与顺逆
B = Left(sizhu(A), 1)
For i = 0 To 9
   If T(i) = B Then
      If i Mod 2 = 0 Then
         Cells(3, 2).Value = "阳年"
         If Cells(1, 2).Value = "男" Then Cells(4, 2).Value = "顺": Exit For
      Else
         Cells(3, 2).Value = "阴年"
         If Cells(1, 2).Value = "女" Then Cells(4, 2).Value = "顺": Exit For
      End If
      Cells(4, 2).Value = "逆": Exit For
   End If
Next

'寻找第一个节气

If A < getjq(year(A), 0) Then
   If Cells(4, 2).Value = "顺" Then
      jy = year(A): jm = 0
   ElseIf Cells(4, 2).Value = "逆" Then
      jy = year(A) - 1: jm = 22
   End If
ElseIf A >= getjq(year(A), 22) Then
   If Cells(4, 2).Value = "顺" Then
      jy = year(A) + 1: jm = 0
   ElseIf Cells(4, 2).Value = "逆" Then
      jy = year(A): jm = 22
   End If
Else
   For i = 0 To 20 Step 2
   If A >= getjq(year(A), i) And A < getjq(year(A), i + 2) Then
      If Cells(4, 2).Value = "顺" Then
         jy = year(A): jm = i + 2
      ElseIf Cells(4, 2).Value = "逆" Then
         jy = year(A): jm = i
      End If
      Exit For
   End If
   Next
End If

jy0 = jy: jm0 = jm

For i = 0 To 9
   If T(i) = Mid(sizhu(A), 6, 1) Then k1 = i: Exit For
Next
For i = 0 To 11
   If Dz(i) = Mid(sizhu(A), 7, 1) Then k2 = i: Exit For
Next

For i = 0 To 11

   If Cells(4, 2).Value = "顺" Then
      If k1 = 9 Then k1 = 0 Else k1 = k1 + 1
      If k2 = 11 Then k2 = 0 Else k2 = k2 + 1
      Cells(i + 5, 6).Value = T(k1) & Dz(k2)
      Cells(i + 5, 3).Value = F(jm)
      Cells(i + 5, 4).Value = getjq(jy, jm)
          d2 = DateDiff("n", A, Cells(i + 5, 4).Value)
          d2 = Int(d2 / 12)
         
          sk1 = Int(d2 / 360)
          sk2 = Int((d2 - 360 * Int(d2 / 360)) / 30)
          sk3 = d2 - 360 * Int(d2 / 360) - 30 * Int((d2 - 360 * Int(d2 / 360)) / 30) - DateDiff("d", A, Cells(5, 4).Value)
          If jm0 + sk2 * 2 >= 24 Then sk1 = sk1 + 1: sk2 = sk2 - 12
          Cells(i + 5, 7).Value = DateAdd("d", sk3, getjq(jy0 + sk1, jm0 + sk2 * 2))
          Cells(i + 5, 5).Value = Int(d2 / 360) & "岁 "
          Cells(i + 5, 5).Value = Cells(i + 5, 5).Value & Int((d2 - 360 * Int(d2 / 360)) / 30) & "个月 "
          Cells(i + 5, 5).Value = Cells(i + 5, 5).Value & d2 - 360 * Int(d2 / 360) - 30 * Int((d2 - 360 * Int(d2 / 360)) / 30) & "天"
      jm = jm + 2
      If jm = 24 Then jm = 0: jy = jy + 1
   ElseIf Cells(4, 2).Value = "逆" Then
      If k1 = 0 Then k1 = 9 Else k1 = k1 - 1
      If k2 = 0 Then k2 = 11 Else k2 = k2 - 1
      Cells(i + 5, 6).Value = T(k1) & Dz(k2)
      Cells(i + 5, 3).Value = F(jm)
      Cells(i + 5, 4).Value = getjq(jy, jm)
          d1 = DateDiff("n", Cells(i + 5, 4).Value, A)
          d1 = Int(d1 / 12)
         
          nk1 = Int(d1 / 360)
          nk2 = Int((d1 - 360 * Int(d1 / 360)) / 30)
          If jm0 + nk2 * 2 >= 24 Then nk1 = nk1 + 1: nk2 = nk2 - 12
          nk3 = d1 - 360 * Int(d1 / 360) - 30 * Int((d1 - 360 * Int(d1 / 360)) / 30) + DateDiff("d", Cells(5, 4).Value, A)
          Cells(i + 5, 7).Value = DateAdd("d", nk3, getjq(jy0 + nk1, jm0 + nk2 * 2))
          Cells(i + 5, 5).Value = Int(d1 / 360) & "岁 "
          Cells(i + 5, 5).Value = Cells(i + 5, 5).Value & Int((d1 - 360 * Int(d1 / 360)) / 30) & "个月 "
          Cells(i + 5, 5).Value = Cells(i + 5, 5).Value & d1 - 360 * Int(d1 / 360) - 30 * Int((d1 - 360 * Int(d1 / 360)) / 30) & "天"
      jm = jm - 2
      If jm = -2 Then jm = 22: jy = jy - 1
   End If
Next

End Sub

zopey

生肖是看农历，还是阳历？但农历也有两种算法:
1.以正月初一的子时(也就是除夕晚上11:00)为分界线,这是大家惯用的说法
2.以"立春"的子时(也就是立春前一日晚上11:00)为分界线

1.传统春节是指“立春”，已经流传了数千年，形成了中国传统文化不可分割的一部分！正月初一为“元旦”，民国元年（1912年）规定阳历1月1日为“春节”，由于民间反对，袁世凯采取了换位的办法，将阳历1月1日定名为“元旦”，正月初一定名为“春节”。
2.从“立春”到“立春”是基本规律的365天，而从“春节”到“春节”短时只有354天，长时则多达384天。
3.我国的黄历、以及传统的命理学、占卜学等民俗学，均以“立春”作为生肖计算的依据！
4.许多民俗学专家支持以“立春”计算生肖。

zopey

地支藏干表

lby0712

zopey 发表于 2018-2-14 09:46
地支藏干表

你会算命？给你钱。

zopey

地支关系表

zopey

baigangliao 发表于 2018-2-18 08:40
人一辈子有多少大运啊，大运意味着什么

比如 某人出生于 甲戌寒露月令，出生大运为 “甲戌” （管 出生至5岁 8个月 10天） ；
大运为“顺”时 ，起大运周岁 5岁 8个月 11天，则 一步大运为 “乙亥” （管 5岁 8个月 11天至15岁 7个月 4天）；
以此类推。。。

个人理解：
除了出生时刻的大运，后面是 一步大运管十年左右（10年与一个节气月30天对应），某人有多少个大运就看 某人寿命了。
大运就是 一个干支“甲戌”、“乙亥”等，古人记录天体运行的符号。

zopey

通过地支藏干对八字的 五行进行量化分析。
1、天干 等于 5
2、年、日、时 支=8
3、月 支=16
八字的 五行合计为
    5*4+8*3+16=60.
当日干对应 五行的 生助之和大于30，可视为日干"强"；小于25，视为"弱".

八字分析.rar (22.12 KB, 下载次数: 644)

2018-2-18 12:31 上传

点击文件名下载附件

zopey

一种尝试：
1、以月令旺衰为出发点，得出天干的强度值 1+0.2*（印、比），
2、地支强度 等于 所藏天干强度 乘以藏干天数 除以30天。
3、八字的五行相加，为最后得分。