fortran 创建系统日期文件夹 - Fortran Coder

[Fortran] 纯文本查看 复制代码
Program shijian

  use ifport

  implicit none

  Integer     ::  date_time(8),day1(50),yy(50),mm(50),dd(50),i

  Character*10   ::  b(3),day(50)

  Character*8     ::   day2(50)

  Integer         ::   istatus1,istatus2

!  Character(len=100) ::  

      call date_and_time(b(1),b(2),b(3),date_time)

     dd(1)=date_time(3);  mm(1)=date_time(2);  yy(1)=date_time(1)

     do i=1,20

      dd(i+1)=dd(i)-1;mm(i+1)=mm(i);yy(i+1)=yy(i)

        if(dd(i+1).eq.0)then

      mm(i+1)=date_time(2)-1

      if(mm(i+1).eq.0) then ; yy(i+1)=date_time(1)-1;dd(i+1)=31;mm(i+1)=12

      Else if(mm(i+1).eq.1.or.mm(i+1).eq.3.or.mm(i+1).eq.5.or.mm(i+1).eq.7.or.mm(i+1).eq.8.or.mm(i+1).eq.10) then

      dd(i+1)=31

      Else if(mm(i+1).eq.4.or.mm(i+1).eq.6.or.mm(i+1).eq.9.or.mm(i+1).eq.11) then;dd(i+1)=30

      Else if(mm(i+1).eq.2) then ;

           if(mod(yy(i+1),4).eq.0) then; dd(i+1)=28

            else ; dd(i+1)=29

          endif

      End if

    else; dd(i+1)=dd(i+1)     

    end if

! print*, yy(i),mm(i),dd(i)

   day1(i)=yy(i)*10000+mm(i)*100+dd(i)

    write(day2(i),'(i8)') day1(i)

! write(*,*) day2(i)

  day(i)=day2(i)//'20'

! print *, day(i)

   enddo



istatus1=system("Md"//day(1))  !！！！！这里有一个问题 就是我的system 没有变颜色

   End Program