四柱定十神delphi代码

最新推荐文章于 2024-11-14 10:43:11 发布

逆炼归元

最新推荐文章于 2024-11-14 10:43:11 发布

阅读量305

点赞数

分类专栏：笔记

本文链接：https://blog.csdn.net/m0_46689821/article/details/106136925

版权

笔记专栏收录该内容

14 篇文章

订阅专栏

function 定十神(某天干:T天干):string;
begin
if (日干.五行序数+1)mod 5=某天干.五行序数 then
begin
if Odd(日干.序数)= Odd(某天干.序数) then result:=‘食’; // 同性为食
if Odd(日干.序数)<>Odd(某天干.序数) then result:=‘伤’; // 异性为伤
end;

if (日干.五行序数+2)mod 5=某天干.五行序数 then
begin
if Odd(日干.序数)= Odd(某天干.序数) then result:=‘财’; // 同性
if Odd(日干.序数)<>Odd(某天干.序数) then result:=‘才’; // 异性
end;

if (日干.五行序数+3)mod 5=某天干.五行序数 then
begin
if Odd(日干.序数)= Odd(某天干.序数) then result:=‘杀’; // 同性
if Odd(日干.序数)<>Odd(某天干.序数) then result:=‘官’; // 异性
end;

if (日干.五行序数+4)mod 5=某天干.五行序数 then
begin
if Odd(日干.序数)= Odd(某天干.序数) then result:=‘枭’; // 同性
if Odd(日干.序数)<>Odd(某天干.序数) then result:=‘印’; // 异性
end;

if 日干.五行序数=某天干.五行序数 then
begin
if Odd(日干.序数)= Odd(某天干.序数) then result:=‘比’; // 同性
if Odd(日干.序数)<>Odd(某天干.序数) then result:=‘劫’; // 异性
end;

end;