判断是否地支藏干暗合

cants7

地支={ “子”, “丑”, “寅”, “卯”, “辰”, “巳”, “午”, “未”, “申”, “酉”, “戌”, “亥” }
藏干 ＝ { “癸”, “癸辛己”, “甲丙戊”, “乙”, “乙戊癸”, “丙戊庚”, “己丁”, “乙己丁”, “戊庚壬”, “辛”, “辛丁戊”, “甲壬” }

天干相合的条件：
甲 合 己
乙 合 艮
丙 合 辛
丁 合 壬
戊 合 癸

例如：寅与丑就是三个天干相合

输入地支判断是否地支藏干暗合，并返回相合的百分比（全部天干/相合数）

星星之夜

请列出所有暗合的情况，或者进一步清晰地说明暗合的条件

cants7

星星之夜 发表于 2023-3-15 23:39
请列出所有暗合的情况，或者进一步清晰地说明暗合的条件

传入地支参数 转换获取藏干（天干） 判断藏干（天干）是否相合

cants7

传入地支参数 转换获取藏干（天干） 。判断两个地支之间的藏干（天干）是否相合有相合

cants7

cants7 发表于 2023-3-15 23:41
传入地支参数 转换获取藏干（天干） 判断藏干（天干）是否相合

传入地支参数 转换获取藏干（天干） 。判断两个地支之间的藏干（天干）是否相合有相合

cants7

.版本 2

.子程序 地支转数字_子, 整数型
.参数 地支, 文本型
.局部变量 Ary, 文本型

Ary ＝ “子丑寅卯辰巳午未申酉戌亥”
返回 (寻找文本 (Ary, 地支, , 假) ÷ 2 ＋ 1)

cants7

.版本 2

.子程序 是否天干相合, 逻辑型, 公开, 指定的两个天干参数是否相合
.参数 天干一, 文本型
.参数 天干二, 文本型
.参数 合化五行, 文本型, 参考 可空
.参数 合化月份, 文本型, 参考 可空
.局部变量 一, 文本型, , "5"
.局部变量 二, 文本型, , "5"
.局部变量 三, 文本型, , "5"
.局部变量 四, 文本型, , "5"
.局部变量 i, 整数型
.局部变量 临时, 逻辑型
.局部变量 Q, 整数型

一 ＝ { “甲”, “乙”, “丙”, “丁”, “戊” }
二 ＝ { “己”, “庚”, “辛”, “壬”, “癸” }
三 ＝ { “土”, “金”, “水”, “木”, “火” }
四 ＝ { “辰戌丑未月”, “巳酉丑申月”, “申子辰亥月”, “亥卯未寅月”, “寅午戌巳月” }

.计次循环首 (5, i)
    Q ＝ i
    .判断开始 (天干一 ＝ 一 [i] 且 天干二 ＝ 二 [i])
        临时 ＝ 真
        跳出循环 ()
    .判断 (天干一 ＝ 二 [i] 且 天干二 ＝ 一 [i])
        临时 ＝ 真
        跳出循环 ()
    .默认

    .判断结束

.计次循环尾 ()
合化五行 ＝ 三 [Q]
合化月份 ＝ 四 [Q]
返回 (临时)

小鸿同学

硬是没看懂

cants7

小鸿同学 发表于 2023-3-15 23:54
硬是没看懂

寅的藏干（天干的意思）是：甲丙戊  丑的藏干是：癸辛己

甲与己是相合 判断返回相合
丙与辛是相合 判断返回相合

只要存在一个相合就是地支藏干暗合，在返回相合的次数

cants7

已解决已解决已解决