pCloud Partner Program

13號星期五的機率

程式技術 2009/02/13 17:04
views: 65226 times
今天是 2009/2/13 的 13號星期五, 13號星期五, 也是黑色星期五, 印象中, 應該一年平均會有兩次, 不過為了驗證這件事, 我們利用 vbs 寫個小程式來驗證一下就知道了..

這裡會用到的重要 vbs 函數有兩個 DateSerial 及 WeekDay 這兩個, 程式碼如下:



計算西元1年至2000年的13號星期五有幾次, 來平均一下應該就很公平了吧.. 這樣計算出來的結果是 3439 次, 平均下來就是 1.7195 次 (3439 / 2000) 這樣就和印象中的 13號星期五的機會很接近了. (若用 3000年來算是 1.7196 次 (5159 / 3000), 9000年來算是 1.7198 (15479 / 9000))

再來列出最近10年的 13號星期五:
2001/4/13 2001/7/13
2002/9/13 2002/12/13 2003/6/13
2004/2/13 2004/8/13
2005/5/13 2006/1/13
2006/10/13 2007/4/13
2007/7/13
2008/6/13
2009/2/13 2009/3/13 2009/11/13
2010/8/13

很有趣的, 今年吃掉了2007, 2008, 2010 三年的 quota 耶, 哈哈..

相關討論:
一年中最多有幾個黑色星期五?最少有幾個黑色星期五?
上面文章內, 即使碰到閏年的 2月 29日, 算出的結果仍是介於1~3日之間, 所以也不會有超過3日或少於1日的沒有13號星期五的日子.

[2017/10/13 10:16]
補上 codepen 的 javascript 程式碼結果.

See the Pen BlackFriday by Timothy Huang (@timhuang) on CodePen.


top
TAG , ,

Trackback Address :: http://diary.tw/tim/trackback/726

  1. March 2009/02/13 18:07 MODIFY/DELETE REPLY

    「有沒有可能那年沒有 13 號星期五」這問題每次遇到 13 號星期五的時候, 我就會在腦子中自己想一次, 雖然每次在心中想的結果都是沒有。但是就是沒有實際去寫個程式實測一翻...呵呵

  2. Timothy 2016/05/13 10:29 MODIFY/DELETE REPLY

    補充一下2011~2030的 13號星期五:

    2011/5/13
    2012/1/13, 2012/4/13, 2012/7/13
    2013/9/13, 2013/12/13
    2014/6/13
    2015/2/13, 2015/3/13, 2015/11/13
    2016/5/13
    2017/1/13, 2017/10/13
    2018/4/13, 2018/7/13
    2019/9/13, 2019/12/13
    2020/3/13, 2020/11/13
    2021/8/13
    2022/5/13
    2023/1/13, 2023/10/13
    2024/9/13, 2024/12/13
    2025/6/13
    2026/2/13, 2026/3/13, 2026/11/13
    2027/8/13
    2028/10/13
    2029/4/13, 2029/7/13
    2030/9/13, 2030/12/13

Write a comment


PREV : [1] : ... [291] : [292] : [293] : [294] : [295] : [296] : [297] : [298] : [299] : ... [472] : NEXT



Nextbit Robin 5.2吋六核心智慧型手機 Microsoft Office 365 中文家用版PKC (無光碟)
ASUS華碩 AC1900 雙頻無線路由器 RT-AC68U 美國 VORNADO 533 渦流空氣循環機 (黑色)
御茶園 每朝健康綠茶(650mlx24入) 每朝健康 雙纖綠茶(650mlx24入)


 Waiting...