返回列表 上一主題 發帖

每年的第一個工作與最後一個工作天

[版主管理留言]
  • Hsieh(2010-8-23 22:19): 歡迎貴客光臨

各位你好, 初到貴境

最後一個工作天
  1. Function LastFridayInMonth(lngYear As Long, lngMonth As Long) As Date
  2.     Dim lngLastDay As Long
  3.     'define last day of the month of interest:
  4.     lngLastDay = DateSerial(lngYear, lngMonth + 1, 0)
  5.     'use to get last friday:
  6.     LastFridayInMonth = lngLastDay - WeekDay(lngLastDay, vbFriday) + 1
  7. End Function

  8. Sub Check_Last_WorkDay()

  9. MsgBox LastFridayInMonth(2011, 12)

  10. End Sub
複製代碼

TOP

本帖最後由 Hsieh 於 2010-8-23 19:40 編輯

回復 9# GBKEE
2007也可使用Evaluate

    firstworkday = CDate(Evaluate("WORKDAY(DATE(YEAR(TODAY()),1,0),1)"))
學海無涯_不恥下問

TOP

        靜思自在 : 手心向下是助人,手心向上是求人;助人快樂,求人痛苦。
返回列表 上一主題