分享一个查找后一天和查找前一天的子程序。

littleqi

    subroutine nextday(yy,mm,dd,yx,mx,dx) ! find next date 查找每月下一天
    implicit none
    integer yy,mm,dd,yx,mx,dx
    integer nt
    if (mod(yy,4)==0) then
       nt =29
    else
       nt=28
    endif
    yx=yy
    mx=mm
    dx=dd+1
       if ((mm==12).and.(dd==31)) then
       yx=yy+1
    mx=1
    dx=1
    endif
    if ((mm==2).and.(dd==nt)) then
       yx=yy
    mx=3
    dx=1
    endif
    if (((mm==1).or.(mm==3).or.(mm==5).or.(mm==7).or.(mm==8).or.(mm==10)).and.(dd==31)) then
       yx=yy
    mx=mx+1
    dx=1
    endif
       if (((mm==4).or.(mm==6).or.(mm==9).or.(mm==11)).and.(dd==30)) then
       yx=yy
    mx=mx+1
    dx=1
    endif
end subroutine nextday
    subroutine beforeday(yy,mm,dd,yx,mx,dx)  !查找每月前一天
    integer yy,mm,dd,yx,mx,dx
    integer nt
    if (mod(yy,4)==0) then
       nt =29
    else
       nt=28
    endif
    yx=yy
    mx=mm
    dx=dd-1
       if ((mm==1).and.(dd==1)) then
       yx=yy-1
    mx=12
    dx=31
    endif
    if ((mm==3).and.(dd==1)) then
       yx=yy
    mx=2
    dx=nt
    endif
    if (((mm==2).or.(mm==4).or.(mm==6).or.(mm==8).or.(mm==9).or.(mm==11)).and.(dd==1)) then
       yx=yy
    mx=mx-1
    dx=31
    endif
       if (((mm==5).or.(mm==7).or.(mm==10).or.(mm==12)).and.(dd==1)) then
       yx=yy
    mx=mx-1
    dx=30
    endif
end subroutine beforeday

柿子柿子柿子

好像閏年不是這麼求的吧？？？

littleqi

柿子柿子柿子 发表于 2017-4-3 12:27
好像閏年不是這麼求的吧？？？

嗯对，不过因为我自己的主程序时间范围是1950年-2000年，所以就用了不严谨的求法，有需求的自己改一下哈~