[绘图界面库] 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