返回列表 上一主題 發帖

每年的第一個星期六

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] =每年的第一個星期六請問程式為何?
              請知道的前輩,不吝賜教謝謝再三!!
收藏 分享

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2012-7-1 18:42 | 只看該作者
回復 1# myleoyes

比較長,試試看
  1. DateAdd("d", 7 - WeekDay(DateSerial(Year(date), 1, 1)) + IIf(7 - WeekDay(DateSerial(Year(Now()), 1, 1)) >= 0, 0, 7), DateSerial(Year(date), 1, 1))
複製代碼
7 - WeekDay... 的7的意思為星期6
6 - WeekDay... 的話是星期5, 如此類推
5 為星期4
4 為星期3
3 為星期2
2 為星期1
1 為星期日
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
3#
發表於 2012-7-1 21:11 | 只看該作者
CDate(Application.Ceiling((DateSerial(Year(Date), 1, 1) - 7) / 7, 1) * 7 + 7)

TOP

myleoyes

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

myleoyes

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

論壇贊助勳章論壇榮譽勳章
5#
發表於 2012-7-1 21:28 | 只看該作者
回復 3# oobird
超級版主果然超級哈哈!謝謝再三!!

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題