八字起大运

zopey

伍成平 发表于 2018-3-4 11:19
不要乱想，先把常规的学精通了，悟透了，你才有资格去创新。最难的不是怎么排大运，而是大运流年与命局怎 ...

说法太多，莫衷一是，不知何为常规。

比如一种关于三者的说法是：
1、流年 可作用于 大运，命局；
2、大运 可作用于 命局 ，不作用于 流年；
3、命局 不作用于 流年、大运。

伍成平

zopey 发表于 2018-3-4 12:13
说法太多，莫衷一是，不知何为常规。

比如一种关于三者的说法是：

所以必须有明师传授，靠你自己摸索，一辈子估计都难，所以我现在基本上放弃八字了

zopey

又冒出一个不太成熟的想法，首取月令定五行旺衰，只论对日干的扶抑，
对日干生扶的做一类，对日干抑制的一类，八字论述如下；
1、日干就是日干，为比，生扶类；
2、月干、日支、时干 与日干相邻，直接起作用，日干的印比 为生扶类，否则为抑制类；
3、年干对 月干发生作用，对日干间接作用；
4、月支对月干、日支发生作用，对日干间接作用，分2条路线考虑对日干的影响，下同；
5、年支对年干、月支发生作用，对日干间接作用；
6、时支对日支、时干发生作用，对日干间接作用。

zopey

写的有点乱，基本效果还是有的，用单元格黄色表达与日干的扶抑关系！

扶抑分析3.zip (25.73 KB, 下载次数: 393)

2018-3-5 17:21 上传

点击文件名下载附件

'扶抑分析
wx = Array("水", "木", "火", "土", "金")

'日干ok
C = Cells(7, 4).Value
c1 = c1 + Val(Mid(C, 4, Len(C) - 1))
Cells(7, 4).Interior.ColorIndex = 6
For dzx = 1 To 5
    If Mid(C, 2, 1) = wx(dzx - 1) Then Exit For
Next
If dzx = 1 Then dzz = 5 Else dzz = dzx - 1

'日支ok
For i = 1 To 3
cg0 = Cells(i + 11, 4).Value
If Mid(cg0, 2, 1) = wx(dzx - 1) Or Mid(cg0, 2, 1) = wx(dzz - 1) Then
   c1 = c1 + Val(Mid(cg0, 4, Len(cg0) - 1))
   Cells(i + 11, 4).Interior.ColorIndex = 6
Else
   c2 = c2 + Val(Mid(cg0, 4, Len(cg0) - 1))
End If
Next

'时干ok
cg0 = Cells(7, 5).Value
For dzx2 = 1 To 5
    If Mid(cg0, 2, 1) = wx(dzx2 - 1) Then Exit For
Next
If dzx2 = 1 Then dzz2 = 5 Else dzz2 = dzx2 - 1

If Mid(cg0, 2, 1) = wx(dzx - 1) Or Mid(cg0, 2, 1) = wx(dzz - 1) Then
   c1 = c1 + Val(Mid(cg0, 4, Len(cg0) - 1))
   Cells(7, 5).Interior.ColorIndex = 6
'时干生扶日干时,时支1
For i = 1 To 3
cg2 = Cells(i + 11, 5).Value
If Mid(cg2, 2, 1) = wx(dzx2 - 1) Or Mid(cg2, 2, 1) = wx(dzz2 - 1) Then
   c1 = c1 + Val(Mid(cg2, 4, Len(cg2) - 1))
   Cells(i + 11, 5).Interior.ColorIndex = 6
Else
   c2 = c2 + Val(Mid(cg2, 4, Len(cg2) - 1))
End If
Next

Else
   c2 = c2 + Val(Mid(cg0, 4, Len(cg0) - 1))
'时干不生扶日干时,时支2
For i = 1 To 3
cg2 = Cells(i + 11, 5).Value
If Mid(cg2, 2, 1) = wx(dzx2 - 1) Or Mid(cg2, 2, 1) = wx(dzz2 - 1) Then
   c2 = c2 + Val(Mid(cg2, 4, Len(cg2) - 1))
Else
   c1 = c1 + Val(Mid(cg2, 4, Len(cg2) - 1))
   Cells(i + 11, 5).Interior.ColorIndex = 6
End If
Next
End If


'月干
cg0 = Cells(7, 3).Value
For dzx2 = 1 To 5
    If Mid(cg0, 2, 1) = wx(dzx2 - 1) Then Exit For
Next
If dzx2 = 1 Then dzz2 = 5 Else dzz2 = dzx2 - 1
'年干
cg1 = Cells(7, 2).Value
For dzx3 = 1 To 5
    If Mid(cg1, 2, 1) = wx(dzx3 - 1) Then Exit For
Next
If dzx3 = 1 Then dzz3 = 5 Else dzz3 = dzx3 - 1



If Mid(cg0, 2, 1) = wx(dzx - 1) Or Mid(cg0, 2, 1) = wx(dzz - 1) Then
   c1 = c1 + Val(Mid(cg0, 4, Len(cg0) - 1))
   Cells(7, 3).Interior.ColorIndex = 6

'月干生扶日干时,年干cg1
If Mid(cg1, 2, 1) = wx(dzx2 - 1) Or Mid(cg1, 2, 1) = wx(dzz2 - 1) Then
   c1 = c1 + Val(Mid(cg1, 4, Len(cg2) - 1))
   Cells(7, 2).Interior.ColorIndex = 6
   '年干间接生扶日干时,年支1
   For i = 1 To 3
      cg3 = Cells(i + 11, 2).Value
      If Mid(cg3, 2, 1) = wx(dzx3 - 1) Or Mid(cg3, 2, 1) = wx(dzz3 - 1) Then
         c1 = c1 + Val(Mid(cg3, 4, Len(cg3) - 1))
         Cells(i + 11, 2).Interior.ColorIndex = 6
      Else
         c2 = c2 + Val(Mid(cg3, 4, Len(cg3) - 1))
      End If
   Next
Else
   c2 = c2 + Val(Mid(cg1, 4, Len(cg2) - 1))
   '年干间接不生扶日干时,年支1
   For i = 1 To 3
      cg3 = Cells(i + 11, 2).Value
      If Mid(cg3, 2, 1) = wx(dzx3 - 1) Or Mid(cg3, 2, 1) = wx(dzz3 - 1) Then
         c2 = c2 + Val(Mid(cg3, 4, Len(cg3) - 1))
      Else
         c1 = c1 + Val(Mid(cg3, 4, Len(cg3) - 1))
         Cells(i + 11, 2).Interior.ColorIndex = 6
      End If
   Next
End If

'月干生扶日干时,月支1
For i = 1 To 3
cg2 = Cells(i + 11, 3).Value
If Mid(cg2, 2, 1) = wx(dzx2 - 1) Or Mid(cg2, 2, 1) = wx(dzz2 - 1) Then
   c1 = c1 + Val(Mid(cg2, 4, Len(cg2) - 1))
   Cells(i + 11, 3).Interior.ColorIndex = 6
Else
   c2 = c2 + Val(Mid(cg2, 4, Len(cg2) - 1))
End If
Next

Else
   c2 = c2 + Val(Mid(cg0, 4, Len(cg0) - 1))
'月干不生扶日干时,年干cg1
If Mid(cg1, 2, 1) = wx(dzx2 - 1) Or Mid(cg1, 2, 1) = wx(dzz2 - 1) Then
   c2 = c2 + Val(Mid(cg1, 4, Len(cg2) - 1))
   '年干间接不生扶日干时,年支1
   For i = 1 To 3
      cg3 = Cells(i + 11, 2).Value
      If Mid(cg3, 2, 1) = wx(dzx3 - 1) Or Mid(cg3, 2, 1) = wx(dzz3 - 1) Then
         c2 = c2 + Val(Mid(cg3, 4, Len(cg3) - 1))
      Else
         c1 = c1 + Val(Mid(cg3, 4, Len(cg3) - 1))
         Cells(i + 11, 2).Interior.ColorIndex = 6
      End If
   Next
Else
   c1 = c1 + Val(Mid(cg1, 4, Len(cg2) - 1))
   '年干间接生扶日干时,年支1
   For i = 1 To 3
      cg3 = Cells(i + 11, 2).Value
      If Mid(cg3, 2, 1) = wx(dzx3 - 1) Or Mid(cg3, 2, 1) = wx(dzz3 - 1) Then
         c1 = c1 + Val(Mid(cg3, 4, Len(cg3) - 1))
         Cells(i + 11, 2).Interior.ColorIndex = 6
      Else
         c2 = c2 + Val(Mid(cg3, 4, Len(cg3) - 1))
      End If
   Next
End If
'月干不生扶日干时,月支2
For i = 1 To 3
cg2 = Cells(i + 11, 3).Value
If Mid(cg2, 2, 1) = wx(dzx2 - 1) Or Mid(cg2, 2, 1) = wx(dzz2 - 1) Then
   c2 = c2 + Val(Mid(cg2, 4, Len(cg2) - 1))
Else
   c1 = c1 + Val(Mid(cg2, 4, Len(cg2) - 1))
   Cells(i + 11, 3).Interior.ColorIndex = 6
End If
Next
End If

Cells(4, 4).Value = c1
Cells(5, 4).Value = c2

qw52633

楼主人才啊

伍成平

zopey 发表于 2018-3-5 17:23
写的有点乱，基本效果还是有的，用单元格黄色表达与日干的扶抑关系！

厉害，  我只会函数，不过也把八字，六爻，奇门排出来了

lccchengcheng

只能用一个字表达，牛~

hbhn

留下足印学习学习

zopey

即根据八字反推日期  。

八字搜索.zip (35.1 KB, 下载次数: 415)

2018-9-13 15:29 上传

点击文件名下载附件

rxdn8898

楼主奇才！无私分享，已下载来学习，希望能发个“奇门遁甲”来学习一下！