最简公历排八字的代码

有更简单的，要告诉我幺
g1…g4年干月干日干时干，z1…z4地支
甲1…癸10，子1…亥12

procedure 确定GZ1_4;

begin
RiQi:= trunc ( Form1.DateTimePicker1.Date );
ShiJian := frac ( Form1.DateTimePicker2.Time );
decodedate(RiQi,XNian,Xyue, XRi);
decodeTime (ShiJian,XShi,XFen,XMiao,xx);

{g3  z3   z4  g4  确定 与节气无关}g3:=trunc(RiQi-encodedate(1919,11,8))mod 10+1 ;z3:=trunc(RiQi-encodedate(1919,11,8))mod 12+1 ;z4:= Round(XShi/2+0.1)+1;//Round  四舍六入 +0.1if XShi=23  then     //23 以后按下一天计算beginz4:=1;                       // z4 确定inc(g3);if g3=11  then g3:=1 ; // g3 最终确定inc(z3);if z3=13  then z3:=1 ; // z3 最终确定end ;g4 :=(g3*2+z4-2)mod 10;if g4=0 then g4:=10;  // g4 最终确定

{g1 z1 z2 g2 暂时确定与节气有关}

g1:= (XNian-4 ) mod 10+ 1;
z1:= (XNian-4 ) mod 12+ 1;
if Xyue=1 then //1月是上一年的
begin
dec(g1);if g1=0 then g1:=10;
dec(z1);if z1=0 then z1:=12;
end;
z2:= Xyue +1;if z2=13 then z2:=1;

if compareDatetime(RiQi+ShiJian,本月节令)=-1 then
begin

      dec(z2);if z2=0  then z2:=12;if Xyue=2 thenbegindec(g1);if g1=0  then g1:=10; //2 月 立春交节 以前修正为上年dec(z1);if z1=0  then z1:=12;end;end;{ 确定g2 }case z2 of3..12: g2:=(g1*2+z2-2)mod 10;1,2: g2:=(g1*2+z2-10)mod 10;end ;
if g2=0 then g2:=10;

end ;

最简公历排八字的代码相关推荐

php 八字算法,南方排八字专业程序 php不用内置函数对数组排序的两个算法代码...
一朋友找工作遇到的试题,备注一下. 极有可能今后我也会遇到的. 问题:php不用内置函数对数组排序,可能是降序或者升序第一种方法:传说中的冒泡法复制代码代码如下: function arrays ...
八字易经算法之用JAVA实现排八字神煞
序:我上网查找半天也没有具体八字易经排盘系统原理的文章. 排盘如同武学中的马步,拳法,是基础中的基础. 作为易学高手的我(大师♂罗莊)对告诉各位码农如何八字易经排盘系统负有不可推卸的责任. 我就细 ...
乱炖“简书交友”数据之代码（2）：关键词抽取、Word2Vec词向量
继续更新出来本系列的代码:乱炖数据之2700余篇"简书交友"专题文章数据的花式玩法在乱炖"简书交友"数据之代码(1)一文里,主要涉及结构化数据的分析,文本挖掘 ...
条件随机场（CRF）极简原理与超详细代码解析
条件随机场(CRF)极简原理与超详细代码解析 1. 原理 1.1 从名称说起 1.2 优化的目标 1.3 如何计算 2. 代码 2.1 基本结构 2.2 模型初始化 2.3 BERT提取的特征如何输入 ...
java南方八字排盘_八字排盘示例代码
package api.jisuapi.bazi; import api.util.HttpUtil; import net.sf.json.JSONArray; import net.sf.json ...
八字起大运php代码,八字排盘示例代码
require_once 'curl.func.php'; $appkey = 'your_appkey_here';//你的appkey $city = '';//utf8 $year=2009; ...
八字计算方法 php,八字排盘示例代码
require_once 'curl.func.php'; $appkey = 'your_appkey_here';//你的appkey $city = '';//utf8 $year=2009; ...
排序方法python实现_八字排盘,四柱八字排盘算命,免费排八字,卜易居在线排盘系统...
为方便您正确排好八字命盘,请阅读卜易居在线排盘系统之说明: 1. 将年月日时排成命盘,每个时间概念称为一柱,共有四柱:每柱有天干地支两个字,共八个字,故称四柱八字排盘. 2. 公历即是阳历,农历即是阴 ...
使用python排八字计算八字的相合相冲五行分值等
简介八字术是一种古老的算命术.它运用阴阳.五行.干支.八卦等理论,把人的出生年月日时转化为八个字,进而推算人的富贵贫贱.祸福吉凶.穷通寿天.名利地位.家庭六亲等方面的情况八字源自古代的中国,是一种 ...

最简公历排八字的代码

最简公历排八字的代码相关推荐

最新文章

热门文章