将UTC
标准
excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载
日期转换为儒略日
将UTC标准日期转换为儒略日(julian day)
function y=julia(theyear,themonth,theday);%return the julia day (year,day)
leapyear=rem(theyear,4); if leapyear>0
leap=0;
else
if rem(theyear,100)==0 & rem(theyear,400)~=0
leap=0;
else
leap=1;
end
end
if themonth==1
juliaday=theday;
end
if themonth==2
juliaday=theday+31;
end
if themonth==3
juliaday=theday+59;
end
if themonth==4
juliaday=theday+90;
end
if themonth==5
juliaday=theday+120;
end
if themonth==6
juliaday=theday+151;
end
if themonth==7
juliaday=theday+181;
end
if themonth==8
juliaday=theday+212;
end
if themonth==9
juliaday=theday+243;
end
if themonth==10
juliaday=theday+273;
end
if themonth==11
juliaday=theday+304;
end
if themonth==12
juliaday=theday+334;
end
if leap==1
if themonth<=2
juliaday=juliaday;
end
if themonth>=3
juliaday=juliaday+1;
end
end
y(1)=theyear;
y(2)=juliaday;