將開發(fā)過程中比較好的一些內容做個備份,下面內容段是關于Delphi 計算儒略日(Julian day)的內容,應該對大伙也有用途。
目前創(chuàng)新互聯已為上千的企業(yè)提供了網站建設、域名、虛擬空間、成都網站托管、企業(yè)網站設計、豐鎮(zhèn)網站維護等服務,公司將堅持客戶導向、應用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。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;
另外有需要云服務器可以了解下創(chuàng)新互聯scvps.cn,海內外云服務器15元起步,三天無理由+7*72小時售后在線,公司持有idc許可證,提供“云服務器、裸金屬服務器、高防服務器、香港服務器、美國服務器、虛擬主機、免備案服務器”等云主機租用服務以及企業(yè)上云的綜合解決方案,具有“安全穩(wěn)定、簡單易用、服務可用性高、性價比高”等特點與優(yōu)勢,專為企業(yè)上云打造定制,能夠滿足用戶豐富、多元化的應用場景需求。
本文名稱:Delphi計算儒略日(Julianday)的代碼-創(chuàng)新互聯
分享地址:http://muchs.cn/article16/ddcpdg.html
成都網站建設公司_創(chuàng)新互聯,為您提供搜索引擎優(yōu)化、品牌網站設計、手機網站建設、網站制作、Google、網頁設計公司
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯