返回列表 上一主題 發帖

每年的第一個星期六

myleoyes

帖子
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

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

論壇贊助勳章論壇榮譽勳章
2#
發表於 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

myleoyes

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

論壇贊助勳章論壇榮譽勳章
3#
發表於 2012-7-1 21:28 | 顯示全部帖子
回復 3# oobird
超級版主果然超級哈哈!謝謝再三!!

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題