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

function julday(year,month,day:integer;hour:double;gregflag:integer):Double;varjd:double;u,u0,u1,u2:double;beginu:=year;if (month < 3) thenu:=u-1;u0:= u + 4712.0;u1:= month + 1.0;if (u1 < 4) then u1:=u1+12.0;if gregflag = SE_GREG_CAL thenbeginu2:= 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))) thenjd :=jd-1;end;result:=jd;end;

轉載于:https://blog.51cto.com/14118518/2347822

總結

以上是生活随笔為你收集整理的Delphi 计算儒略日（Julian day）的代码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。