- 帖子
- 7
- 主題
- 1
- 精華
- 0
- 積分
- 11
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2021
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2010-8-22
- 最後登錄
- 2025-6-5
|
各位你好, 初到貴境
最後一個工作天- Function LastFridayInMonth(lngYear As Long, lngMonth As Long) As Date
- Dim lngLastDay As Long
- 'define last day of the month of interest:
- lngLastDay = DateSerial(lngYear, lngMonth + 1, 0)
- 'use to get last friday:
- LastFridayInMonth = lngLastDay - WeekDay(lngLastDay, vbFriday) + 1
- End Function
- Sub Check_Last_WorkDay()
- MsgBox LastFridayInMonth(2011, 12)
- End Sub
複製代碼 |
|