返回列表下一主題上一主題發帖

每年的第一個星期六

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-7-1 15:49 | 只看該作者

每年的第一個星期六

各位前輩你們好!
      前輩!!
      [B1] = CDate(Application.WorkDay(DateSerial(Year(Date) - 1, 12, 31), 1)) '第一個工作天
      [C1] =每年的第一個星期六請問程式為何?
            請知道的前輩,不吝賜教謝謝再三!!

樓主熱帖

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2012-7-1 21:28 | 只看該作者

回復 3# oobird
超級版主果然超級哈哈!謝謝再三!!

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

4^#

發表於 2012-7-1 21:13 | 只看該作者

回復 2# kimbal
      前輩!!謝謝!!再請教這公式
         D1=DATE(E3,E4,1)+E5-WEEKDAY(DATE(E3,E4,1))+(E6-(E5>=WEEKDAY(DATE(E3,E4,1)))*7)
         D3=年          E3=2004
         D4=月          E4=7
         D5=星期代碼    E5=7
         D6=第4個星期六 E6=4
         為何求出D1=2004/6/30,而非2004/7/24
         請不吝再賜教謝謝再三!!

TOP

oobird