请教！如何判断每月最后一个周五是几号？

sxgaobo

同题！
望高手指点

周义坤

1. SELECT DATEADD("ww",DATEDIFF("ww",iif(weekday('2016-4-30')<5,1,0),'2016-4-30')-1,1)+5

复制代码

tmtony

简单写了一个，应该还可以优化，大家跟贴其它方法。

''======================================================
''函数名称： GetLastFriday  (获取指定日期所在月的最后星期几是哪一天)  版本：1.01
''调用示例： gf_MsgBox(#2016/10/01#,5)
''           获取 2016年10月 这月最后一个星期五 是几号
''
''输入参数： (必需)datDate    Date      指定日期
''           (必需)lngWeekday   Long    星期几，1代表星期一，2代表星期二.... 7代表星期天

''返    回： Date  获得需要的日期
''适应版本： 97,2000,XP,2003,2007,2010,2013,2016 compatible
''作    者： 王宇虹   整理：王宇虹-Office中国
''关 键 字： 最后  月  星期几
''推荐指数： 3
''难度等级： 3
''适应场合： 根据星期取日期
''说    明： 还需测试不同的电脑日期格式对函数结果有否影响
''===================================================
''GUID： 72179DB9-4BBD-.... 编码：023458 创建：2016/09/29 更新：2016/09/29
''===================================================
Public Function GetLastFriday(datDate As Date, lngWeekday As Long) As Date

On Error GoTo Err_Handler
  Dim datLastDate As Date
  Dim lngLastDateWeekDay As Long
  Dim lngDiff As Long
  datLastDate = CDate(Year(datDate) & "/" & Month(datDate) & "/01")
  datLastDate = DateAdd("m", 1, datLastDate) - 1
  lngLastDateWeekDay = Weekday(datLastDate, vbMonday)
  If lngLastDateWeekDay >= lngWeekday Then
     lngDiff = lngLastDateWeekDay - lngWeekday
  Else
      lngDiff = lngLastDateWeekDay + 7 - lngWeekday
  End If
  
  GetLastFriday = DateAdd("d", -lngDiff, datLastDate)
  Exit Function
Err_Handler:
  MsgBox "GetLastFriday Error:" & Err.Description

End Function

Henry D. Sy

1. Public Function GD(mDate As Date, W As Integer) As Date
   
2.     Dim LastDateOfMonth As Date
   
3.     Dim i As Integer
   
4.     LastDateOfMonth = DateAdd("m", 1, DateSerial(Year(mDate), Month(mDate), 1)) - 1
   
5.     For i = 0 To 6
   
6.         If Weekday(LastDateOfMonth - i, vbMonday) = W Then
   
7.             GD = LastDateOfMonth - i
   
8.             Exit For
   
9.         End If
   
10.     Next
    
11. End Function
    

复制代码

Henry D. Sy

测试结果

tmtony

Henry D. Sy 发表于 2016-9-30 00:11
测试结果

Good!

sxgaobo

谢谢各位高手的关注！！！
如果想知道每月最后一个工作日，如何做啊？

Henry D. Sy

sxgaobo 发表于 2016-9-30 16:16
谢谢各位高手的关注！！！
如果想知道每月最后一个工作日，如何做啊？

节日放假你想如何计算,跟国家一样吗?
国家可是随机拼成长短假期的.

sxgaobo

Henry D. Sy 发表于 2016-9-30 17:11
节日放假你想如何计算,跟国家一样吗?
国家可是随机拼成长短假期的.

节假日人工干预，其他由电脑判断！

Henry D. Sy

sxgaobo 发表于 2016-9-30 20:52
节假日人工干预，其他由电脑判断！

不考虑节日,那就简单了.

1. Public Function GetWorkDay(mDate As Date) As Date
   
2.     Dim LastDateOfMonth As Date
   
3.     LastDateOfMonth = DateAdd("m", 1, DateSerial(Year(mDate), Month(mDate), 1)) - 1
   
4.     Select Case Weekday(LastDateOfMonth, vbMonday)
   
5.     Case 7
   
6.         GetWorkDay = LastDateOfMonth - 2
   
7.     Case 6
   
8.         GetWorkDay = LastDateOfMonth - 1
   
9.     Case Else
   
10.         GetWorkDay = LastDateOfMonth
    
11.     End Select
    
12. End Function
    

复制代码