Delphi 計算儒略日（Julian day）的代碼

發(fā)布時間：2020-06-12 06:16:18 來源：網(wǎng)絡(luò) 閱讀：584 作者：Mychat_on 欄目：開發(fā)技術(shù)

將開發(fā)過程中比較好的一些內(nèi)容做個備份，下面內(nèi)容段是關(guān)于Delphi 計算儒略日（Julian day）的內(nèi)容，應(yīng)該對大伙也有用途。

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;

向AI問一下細(xì)節(jié)

Delphi 計算儒略日（Julian day）的代碼

猜你喜歡

最新資訊

相關(guān)推薦

相關(guān)標(biāo)簽