作者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
→ comg:有沒有人要測試一下千分秒差距如何?但我想大概要看硬體的能力 10/29 16:42
→ comg:我現在有個問要怎麼去呼叫千分秒以上的位數?? 10/29 16:46
推 Semisphere:API 10/29 19:16
→ latinboy: 以前有寫過 差點忘了.... 你可以參考一下 10/29 21:23