日序数的求算公式

topmad · 发表于 2011-8-25 14:35:33

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

日序数，即某个确定日期是在当年的第几天，1月1日的日叙述为1，平年的12月31日为365，闰年为366，许多模型在进行逐日的计算时，都按照日序数进行的

找到了一个计算日序数的小公式，很简单的（

要是早知道这个公式，我以前写的那个计算的小程序就不用那么多行了，清风我KB了）

直接发图吧

QQ截图20110825142734.jpg

其中J 就是日序数,  M为月份  D为日  EXAMPLE: 5月11日 M=5  D=11

很爽的一个公式，屡试不爽，分享给大家不管哪个语言都能用  {:soso_e121:}

应清风的要求，附上我修改的程序吧

jday=int(275*(M/9)-30+D)-2
if(mod (year,4)==0.and.mod (year,100)/=0.or.mod (year,400)==0))then
  if(M>2) then
  jday=jday+1
  else
  jday=jday+2
  endif
  elseif(M<3) then
  jday=jday+2
end if

由于是从一个专用的程序中弄出来稍加修改，只为叫大家看明白就好啦{:soso_e120:}

传说中的谁 · 发表于 2011-8-25 14:43:33

支持老五

mofangbao · 发表于 2011-8-25 14:50:47

同样支持，沙发没了
@传说中的谁那个程序我只改了源码，没重新生成exe哈

mofangbao · 发表于 2011-8-25 14:56:36

肿么不顺便写个fortran版的...

topmad · 发表于 2011-8-25 15:01:34

mofangbao 发表于 2011-8-25 14:56

登录/注册后可看大图

肿么不顺便写个fortran版的...

那我再改改我的那个程序吧，感觉挺简单的，就没有多想，呵呵

那个代码是生成一个模型用文件的，里面的东西比较乱，我在改改贴上去吧

topmad · 发表于 2011-8-25 15:02:16

传说中的谁发表于 2011-8-25 14:43

登录/注册后可看大图

支持老五

呃，支持是需要白花花的银子的

传说中的谁 · 发表于 2011-8-25 15:03:48

@topmad不带这样吃果果的要挟的

topmad · 发表于 2011-8-25 15:09:50

@传说中的谁不给你打问妹纸了

传说中的谁 · 发表于 2011-8-25 15:12:08

@topmad钱我已经给了，你看着办吧

尽头的尽头 · 发表于 2011-8-25 15:28:51

强力支持

		自动登录	找回密码
密码			立即注册

[经验总结] 日序数的求算公式

登录后查看更多精彩内容~

评分