李淳风六壬时课

admin

李淳风六壬时课

诚心占法 有求必应

其法:每从大安起正月→月上起日→日上起时,后为此,定为之

大安:身不动时  属木 青龙 凡谋事主一五七

诗曰:大安百事昌,求财向坤方,失物去不远,宅舍保安康,行人身未动,病者主无妨,将军回田野,仔细与推详.

留连:身未归时  属水 玄武 凡谋事主三八十

诗曰:留连事难成,求谋事未明,官事只宜缓,去者未回城,失物南方见,急讨方程心,更须妨口舌,人口且平平.

速喜:人便至时  属火 朱雀 凡谋事主三六九

诗曰:速喜喜来临 求财向南行,失物申未午,逢人路上寻.官事有福禄,病者无祸侵,田家六畜吉,行人有信音.

赤口:官事凶时  属金 白虎 凡谋事主四七十

诗曰:赤日主口舌,是非切要妨,失物急去寻,行人有惊慌,鸡犬多作怪.病者出西方,更须防儿泪,恐怕深瘟缠.

小吉:人来喜时  属木 六合 凡谋事主一五七

诗曰:小吉最吉昌,路上好商量,阴人来报喜,失物在坤方,竹人立便至,交关甚是强,凡事皆和合,到者祝上苍.

空亡:信音稀时  属土 勾陈 凡谋事主三六九

诗曰:空亡事不长,阴人小乖张,求财无利益,行人有灾殃,失物寻不见,官事有形伤,病人逢暗鬼,详解保安康.

admin

算法:  （月份+日期+时辰-2)/6 取余数
如:今天是农历2024年12月20日22点26分
(12+20+11-2)/6 =41/6= 41-36余5
大安开数5为小吉

admin

1. .版本 2
   
2. 
   
3. .子程序 占卜_六壬掐指诀, 文本型, 公开
   
4. .参数 参_六壬, 文本型
   
5. .局部变量 局_六壬, 文本型
   
6. .局部变量 局_原文, 文本型
   
7. .局部变量 局_解说, 文本型
   
8. .局部变量 局_返回, 文本型
   
9. .局部变量 局_空格, 文本型
   
10. 
    
11. 局_六壬 ＝ 参_六壬
    
12. 局_空格 ＝ “          ”
    
13. .如果真 (局_六壬 ＝ “大安”)
    
14.     局_原文 ＝ “身不动时，五行属木，颜色青色，方位东方临青龙，凡谋事主一、五、七。” ＋ #换行符 ＋ 局_空格 ＋ “有静止、心安、吉祥之含义。”
    
15.     局_解说 ＝ “大安事事昌，求财在坤方，失物去不远，宅舍保安康。” ＋ #换行符 ＋ 局_空格 ＋ “行人身未动，病者主无妨，将军回田野，仔细更推详。”
    
16. .如果真结束
    
17. .如果真 (局_六壬 ＝ “留连”)
    
18.     局_原文 ＝ “卒未归时，五行属水，颜色黑色，方位北方临玄武，凡谋事主二、八、十。” ＋ #换行符 ＋ 局_空格 ＋ “有暗昧不明、延迟、纠缠、拖延、漫长之含义。”
    
19.     局_解说 ＝ “留连事难成，求谋日未明，官事凡宜缓，去者未回程。” ＋ #换行符 ＋ 局_空格 ＋ “失物南方见，急讨方心称，更须防口舌，人口且平平。”
    
20. .如果真结束
    
21. .如果真 (局_六壬 ＝ “速喜”)
    
22.     局_原文 ＝ “人即全时，五行属火，颜色红色，方位南方，临朱雀，凡谋事主三、六、九。有快速、喜庆、吉利之含义。指时机已到。”
    
23.     局_解说 ＝ “速喜喜来临，求财向南行，失物申未午，逢人路上寻。” ＋ #换行符 ＋ 局_空格 ＋ “官事有福德，病者无祸侵，田宅六畜吉，行人有信音。”
    
24. .如果真结束
    
25. .如果真 (局_六壬 ＝ “赤口”)
    
26.     局_原文 ＝ “官事凶时，五行属金，颜色白色，方位西方临白虎，凡谋事主四、七、十。” ＋ #换行符 ＋ 局_空格 ＋ “有不吉、惊恐、凶险口舌是非之含义。”
    
27.     局_解说 ＝ “赤口主口舌，官非切宜防，失物速速讨，行人有惊慌。” ＋ #换行符 ＋ 局_空格 ＋ “六畜多作怪，病者出西方，更须防咀咒，诚恐染瘟皇。”
    
28. .如果真结束
    
29. .如果真 (局_六壬 ＝ “小吉”)
    
30.     局_原文 ＝ “人来喜时，五行属水，临六合，凡谋事主一、五、七。” ＋ #换行符 ＋ 局_空格 ＋ “有和合、吉利之含义。”
    
31.     局_解说 ＝ “小吉最吉昌，路上好商量，阴人来报喜，失物在坤方。” ＋ #换行符 ＋ 局_空格 ＋ “行人即便至，交关甚是强，凡事皆和合，病者叩穷苍。”
    
32. .如果真结束
    
33. .如果真 (局_六壬 ＝ “空亡”)
    
34.     局_原文 ＝ “原文：” ＋ “音信稀时，五行属土，颜色黄色，方位中央，临勾陈，凡谋事主三、六、九。” ＋ #换行符 ＋ 局_空格 ＋ “有不吉、无结果、忧虑之含义。”
    
35.     局_解说 ＝ “空亡事不祥，阴人多乖张，求财无利益，行人有灾殃。” ＋ #换行符 ＋ 局_空格 ＋ “失物寻一见，官事有刑伤，病人逢暗鬼，解禳保安康。”
    
36. .如果真结束
    
37. 局_返回 ＝ “原文：” ＋ 局_原文 ＋ #换行符 ＋ “解说：” ＋ 局_解说
    
38. 返回 (局_返回)
    
39. 
    
40. 
    
41. 
    
42. 
    
43. 
    
44. 
    
45. 
    
46. 
    
47. 
    
48. 
    
49. 
    
50. 
    
51. .子程序 日期_取时辰_文本, 文本型, 公开
    
52. .局部变量 a, 整数型
    
53. .局部变量 局_时辰, 文本型
    
54. 
    
55. a ＝ 取时间部分 (取现行时间 (), 6)
    
56. .如果真 (a ≥ 1 且 a ＜ 3)
    
57.     局_时辰 ＝ “丑时”
    
58. .如果真结束
    
59. .如果真 (a ≥ 3 且 a ＜ 5)
    
60.     局_时辰 ＝ “寅时”
    
61. .如果真结束
    
62. .如果真 (a ≥ 5 且 a ＜ 7)
    
63.     局_时辰 ＝ “卯时”
    
64. .如果真结束
    
65. .如果真 (a ≥ 7 且 a ＜ 9)
    
66.     局_时辰 ＝ “辰时”
    
67. .如果真结束
    
68. .如果真 (a ≥ 9 且 a ＜ 11)
    
69.     局_时辰 ＝ “巳时”
    
70. .如果真结束
    
71. .如果真 (a ≥ 11 且 a ＜ 13)
    
72.     局_时辰 ＝ “午时”
    
73. .如果真结束
    
74. .如果真 (a ≥ 13 且 a ＜ 15)
    
75.     局_时辰 ＝ “未时”
    
76. .如果真结束
    
77. .如果真 (a ≥ 15 且 a ＜ 17)
    
78.     局_时辰 ＝ “申时”
    
79. .如果真结束
    
80. .如果真 (a ≥ 17 且 a ＜ 19)
    
81.     局_时辰 ＝ “酉时”
    
82. .如果真结束
    
83. .如果真 (a ≥ 19 且 a ＜ 21)
    
84.     局_时辰 ＝ “戌时”
    
85. .如果真结束
    
86. .如果真 (a ≥ 21 且 a ＜ 23)
    
87.     局_时辰 ＝ “亥时”
    
88. .如果真结束
    
89. .如果真 (a ≥ 23 或 a ＜ 1)
    
90.     局_时辰 ＝ “子时”
    
91. .如果真结束
    
92. 返回 (局_时辰)
    
93. 
    
94. 
    
95. 
    
96. 
    
97. 
    
98. 
    
99. .子程序 日期_取时辰_数值, 整数型, 公开
    
100. .局部变量 a, 整数型
     
101. .局部变量 局_时辰, 整数型
     
102. 
     
103. a ＝ 取时间部分 (取现行时间 (), 6)
     
104. .如果真 (a ≥ 1 且 a ＜ 3)
     
105.     局_时辰 ＝ 2
     
106. .如果真结束
     
107. .如果真 (a ≥ 3 且 a ＜ 5)
     
108.     局_时辰 ＝ 3
     
109. .如果真结束
     
110. .如果真 (a ≥ 5 且 a ＜ 7)
     
111.     局_时辰 ＝ 4
     
112. .如果真结束
     
113. .如果真 (a ≥ 7 且 a ＜ 9)
     
114.     局_时辰 ＝ 5
     
115. .如果真结束
     
116. .如果真 (a ≥ 9 且 a ＜ 11)
     
117.     局_时辰 ＝ 6
     
118. .如果真结束
     
119. .如果真 (a ≥ 11 且 a ＜ 13)
     
120.     局_时辰 ＝ 7
     
121. .如果真结束
     
122. .如果真 (a ≥ 13 且 a ＜ 15)
     
123.     局_时辰 ＝ 8
     
124. .如果真结束
     
125. .如果真 (a ≥ 15 且 a ＜ 17)
     
126.     局_时辰 ＝ 9
     
127. .如果真结束
     
128. .如果真 (a ≥ 17 且 a ＜ 19)
     
129.     局_时辰 ＝ 10
     
130. .如果真结束
     
131. .如果真 (a ≥ 19 且 a ＜ 21)
     
132.     局_时辰 ＝ 11
     
133. .如果真结束
     
134. .如果真 (a ≥ 21 且 a ＜ 23)
     
135.     局_时辰 ＝ 12
     
136. .如果真结束
     
137. .如果真 (a ≥ 23 或 a ＜ 1)
     
138.     局_时辰 ＝ 1
     
139. .如果真结束
     
140. 返回 (局_时辰)
     
141. 
     
142. 
     
143. 
     
144. 
     
145. 
     

复制代码