分享一个写年月日的源代码

shirllu

其实我是来测试是不是发帖高亮的，顺便发一个写年月日的源代码。
program writein
integer :: cyear(40),month(12),temp



!----------------------------写成正规的样子-----------------!  
do i = 1 , 40
cyear(i)=1970+i
end  do

do k = 1 , 12
month(k) = k
end  do

!_________________________________将其定义好—————————!
open(13,file='daily.txt',status='unknown')

do i = 1 , 40
   
   do j = 1 , 12
     
         if(j == 1 .or. j == 3 .or. j == 5 .or. j == 7 .or.j == 8 .or. j == 10 .or. j == 12)then
          temp = 31
     elseif(j == 4 .or. j == 6 .or. j == 9 .or. j == 11)then
          temp = 30
     else
         if((mod(cyear(i),4) == 0) .and. j == 2) then
     temp = 29
         else
         temp = 28
          end if
     end if
         do k = 1 , temp
            write(13,'(x,3I8)') cyear(i),month(j),k
         end do
     end  do
end  do

end

mofangbao

目前还不支持高亮呢  正在想办法解决 VIP的功能后续会不断增加的~

言深深

程序貌似有个bug哦，即100的倍数，但不是400的倍数时，不是闰年，即便这一年可以被4整除。

topmad

言深深 发表于 2014-4-22 21:53
程序貌似有个bug哦，即100的倍数，但不是400的倍数时，不是闰年，即便这一年可以被4整除。

深深博士果然是数字达人啊...我等小辈实在佩服

言深深

topmad 发表于 2014-4-23 07:35
深深博士果然是数字达人啊...我等小辈实在佩服

额···我写过判断平年闰年的程序，所以这个看起来稍微别扭了点儿呢

kongfeng0824

谢谢分享                     

东风

我说一个，MM5程序包有个现成的 moduel_date_pack 太好用了。

超级之辉

这个程序里面判断闰年有误

飘逸

程序里面判断闰年有误

距离

言深深 发表于 2014-4-23 09:06
额···我写过判断平年闰年的程序，所以这个看起来稍微别扭了点儿呢

深深大神，求判断平年闰年的程序。。。