[ 小玩意 ] 新曆年 ( New Calendar )

grass0916

就一個小概念, 什麼閏年, 一年有 28 29 30 31 天, 這個就不管了,

還得查萬年曆公式。

1. moqidi,77,70,4        script        TimeTest        958,{
   
2.   set $Calendar$, "恰可波曆年" ;
   
3.   set $VisualToRealTime, 6 ;
   
4.   setarray $StartDate, 1999, 12, 25 ;
   
5.   setarray $StartTime, 00, 00, 00 ;
   
6.   setarray .@TimeVaule, 31557600, 2592000, 86400, 3600, 60, 1 ;
   
7. 
   
8.   npctalk "恰可波元年 與 現實時間差 : " + $VisualToRealTime + " 倍" ;
   
9. 
   
10.   npctalk "恰可波元年   " + $StartDate[0] + "/" + $StartDate[1] + "/" + $StartDate[2] + "  " + $StartTime[0] + ":" + $StartTime[1] + ":" + $StartTime[2] ;
    
11. 
    
12.   npctalk " 現實時間    " + gettime(7) + "/" + gettime(6) + "/" + gettime(5) + "  " + gettime(3) + ":" + gettime(2) + ":" + gettime(1) ;
    
13. 
    
14.   set .@pastSecond, ( gettime(7) - $StartDate[0] ) * .@TimeVaule[0] + ( gettime(6) - $StartDate[1] ) * .@TimeVaule[1] + ( gettime(5) - $StartDate[2] ) * .@TimeVaule[2] +
    
15.                     ( gettime(3) - $StartTime[0] ) * .@TimeVaule[3] + ( gettime(2) - $StartTime[1] ) * .@TimeVaule[4] + ( gettime(1) - $StartTime[2] ) * .@TimeVaule[5] ;
    
16. 
    
17.   set .@visualSecond, .@pastSecond * $VisualToRealTime ;
    
18. 
    
19.   for ( set .@i, 0 ; .@i < getarraysize( .@TimeVaule ) ; set .@i, .@i+1 ) {
    
20.     if ( .@visualSecond / .@TimeVaule[ .@i ] )
    
21.       setarray .@newCalendar[ .@i ], .@visualSecond / .@TimeVaule[ .@i ] ;
    
22.     setarray .@newCalendar[ .@i ], .@newCalendar[ .@i ] + 1 ;
    
23.     set .@visualSecond, .@visualSecond - ( .@visualSecond / .@TimeVaule[ .@i ] ) * .@TimeVaule[ .@i ] ;
    
24.   }
    
25. 
    
26.   npctalk $Calendar$ + " " + .@newCalendar[0] + " 年 " + .@newCalendar[1] + " 月 " + .@newCalendar[2] + " 日 " ;
    
27. }

複製代碼