Delphi 计算儒略日（Julian day）的代码_程序开发

Delphi 计算儒略日（Julian day）的代码

admin

2023-07-26 01:00:12

0次

将开发过程中比较好的一些内容做个备份，下面内容段是关于Delphi 计算儒略日（Julian day）的内容，应该对大伙也有用途。

function julday(year,month,day:integer;hour:double;gregflag:integer):Double;

var

  jd:double;

  u,u0,u1,u2:double;

begin

  u:=year;

  if (month < 3) then

   u:=u-1;

  u0:= u + 4712.0;

  u1:= month + 1.0;

  if (u1 < 4) then u1:=u1+12.0;

  if gregflag = SE_GREG_CAL then

  begin

    u2:= floor(abs(u) / 100) - floor(abs(u) / 400);

    if (u < 0.0) then u2:=-u2;

    jd:= jd - u2 + 2;

    if ((u < 0.0) and (u/100 = floor(u/100)) and (u/400 <> floor(u/400))) then

      jd :=jd-1;

  end;

  result:=jd;

end;

上一篇：Vim 为什么把 HJKL 当作光标键？

下一篇：微信小程序微乐跑得快怎么拿好牌，微信小程序自动透视微乐，微信小程序微乐房间怎么拿好牌。

热门资讯

年轻博士想让机器人“接住人的需... 6月将尽，2026届高校毕业生陆续走出校园，人生新的坐标正在展开。找工作、考研考公、继续深造，是很多...

麦韦光学取得光学配件真空封装组... 国家知识产权局信息显示，武汉麦韦光学科技有限公司取得一项名为“一种光学配件真空封装组件”的专利，授权...

苹果涨价，美光开撕，我们终于要... “在各行各业，资源都基于AI需求被重新定价、分配。” 文 /巴九灵苹果公司和自家存储供应商美光科...

家用空调加氟什么型号 1、家用空调一般加R22型号的氟，该款型号的氟一般用于家用空复调、中央空调和其它商业制冷设备。2、R...

创维电视机的开机方法创维电视机的开机方法其实非常简单，只需要按照以下步骤执行即可：步骤一：连接电源线首先要连接好...

法国高温已致超1000人死，巴... 2026年6月28日消息，席卷整个欧洲的极端热浪持续发酵，法国公共卫生机构最新统计出炉，本轮高温已经...

创维电视机常用故障创维电视机常见故障可以包括以下几种： 1. 无法开机或黑屏：这可能是由于电源问题、接口问题、设备损...

空调怎么样？最新空调产品推荐空调是非常优秀的品牌，不仅品牌的影响力和口碑遥遥领先，产品的质量也非常的过硬，好空调，造，是用户对它...

求教美的电热水器产品质量怎么样... 最佳回答美的的电热水器是非常不错的，美的的产品质量都是非常好的，而且外观很漂亮，非常符合现代年轻人...

在委华人华侨已捐赠约500吨救... 据凤凰卫视报道，根据不完全统计，委内瑞拉强震至今，在委华人华侨已捐赠超过40余卡车合共约500吨救灾...

Delphi 计算儒略日（Julian day）的代码

相关内容

热门资讯