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

sxgaobo

同题！
望高手指点

sxgaobo

Henry D. Sy 发表于 2016-9-30 21:37
不考虑节日,那就简单了.

谢谢版主！

Henry D. Sy

如果要考虑假日也不是很难,只要你给出假日的起算点和终止点.就行,
主要是农历假日,
公历假日跟你这个主题视乎没有什么关系!

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
    

复制代码

sxgaobo

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

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

Henry D. Sy

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

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

sxgaobo

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

tmtony

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

Good!

Henry D. Sy

测试结果

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
    

复制代码