发个官方判断星期几的脚本

suqunmu

汗这么贵啊

suqunmu

太黑了把,太黑了把

805333

没办法啊，缺钱花啊

qq3475534

这么贵啊。。。。

peckpock

路过帮顶...没铜板...

zhjchina

1. # Calculates day of the week for a givien date
   
2. # Month: jan,feb ... nov,dec   (must be lower-case)
   
3. # Day: 1 - 31
   
4. # Year: 1900 - 2999
   
5. # mmm/dd/yyyy   same format as [/system clock get date]
   
6. # (ex. jul/22/2009)
   
7. 
   
8. :local date [/system clock get date]
   
9. 
   
10. 
    
11. 
    
12. # Math Calculation here
    
13. :local result ""
    
14. :local months [:toarray "jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec"]
    
15. :local monthtbl [:toarray "0,3,3,6,1,4,6,2,5,0,3,5"]
    
16. :local daytbl [:toarray "sun,mon,tue,wed,thu,fri,sat"]
    
17. 
    
18. :local month [:pick $date 0 3]
    
19. :local day [:pick $date 4 6]
    
20. :local dayc [:pick $date 5 6]
    
21. :local century [:pick $date 7 9]
    
22. :local year [:pick $date 9 11]
    
23. :local yearc [:pick $date 10 11]
    
24. 
    
25. # if the first char is a 0 (zero) only read last char, else script fails
    
26. :if ([:pick $date 4 5] = 0) do={ :set day ($dayc)}
    
27. :if ([:pick $date 9 10] = 0) do=[:set year ($yearc)]
    
28. 
    
29. :local sum 0
    
30. :set sum ($sum + (2 * (3 - ($century - (($century / 4) * 4)))))
    
31. :set sum ($sum + ($year / 4))
    
32. :set sum ($sum + $year + $day)
    
33. :for mindex from=0 to=[:len $months] do={
    
34.   :if ([:pick $months $mindex] = $month) do={:set sum ($sum + [:pick $monthtbl $mindex]) }
    
35. }
    
36. :set sum ($sum - (($sum / 7) * 7))
    
37. :set result [:pick $daytbl $sum]
    
38. 
    
39. # END Math Calculation
    
40. 
    
41. :put ([:pick $date 0 3] . "/" . [:pick $date 4 6] . "/" . [:pick $date 7 9] . [:pick $date 9 11] . " is on a " . $result)
    

复制代码

不知道是不是这个脚本

kyer2012

不知道这个脚本有什么作用的呢！

qbs315

真够黑的。

zsq2329

感谢7楼。
不是不想买，实在是穷……

huigezi'

蔡勒公式换算而已 这也收铜板