作者comg (虫)
看板Fortran
标题Re: [问题] 倒数计时
时间Fri Oct 29 16:38:57 2010
我把我写的结果PO上来好了
测试很多次的结果,到百分秒这个位数上没有差距
但我不会呼叫更写小位数所以不知道千分秒的差距如何
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
PROGRAM EE
INTEGER IHR,IMIN,ISEC,IPSEC
INTEGER RUSEC
RUSEC=1*100 !倒数1秒
CALL GETTIM(IHR,IMIN,ISEC,IPSEC)
write(*,*) IHR,IMIN,ISEC,IPSEC
CALL CountDownTime(RUSEC)
CALL GETTIM(IHR,IMIN,ISEC,IPSEC)
write(*,*) IHR,IMIN,ISEC,IPSEC
END
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
SUBROUTINE CountDownTime(RUSEC)
INTEGER RUSEC
integer BE_time,AF_time
INTEGER DPSEC
INTEGER IHR,IMIN,ISEC,IPSEC
INTEGER DAY,CHECK
DAY=0
!---------------------------------------------
CALL GETTIM(IHR,IMIN,ISEC,IPSEC)
BE_time=360000*IHR+6000*IMIN+100*ISEC+IPSEC
DO WHILE (.TRUE.)
CALL GETTIM(IHR,IMIN,ISEC,IPSEC)
AF_time=360000*IHR+6000*IMIN+100*ISEC+IPSEC
IF (AF_time.GE.BE_time) CHECK=1
if (AF_time.LT.BE_time.AND.CHECK.NE.0) THEN
CHECK=0
DAY=DAY+1
END IF
AF_time=AF_time+DAY*8640000
DPSEC=AF_time-BE_time
IF (DPSEC.GE.RUSEC) EXIT
END DO
END
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.190.92
1F:→ comg:有没有人要测试一下千分秒差距如何?但我想大概要看硬体的能力 10/29 16:42
2F:→ comg:我现在有个问要怎麽去呼叫千分秒以上的位数?? 10/29 16:46
3F:推 Semisphere:API 10/29 19:16
5F:→ latinboy: 以前有写过 差点忘了.... 你可以参考一下 10/29 21:23