【分享】常用日期公式

andymark

1. Public Function FstDayOfMth(InDate As Date) As Date
   
2. FstDayOfMth = DateSerial(Year(InDate), Month(InDate), 1)
   
3. End Function
   
4. 
   
5. Public Function FstDayOfNextMnth(InDate As Date) As Date
   
6. FstDayOfNextMnth = DateSerial(Year(InDate), Month(InDate) + 1, 1)
   
7. End Function
   
8. 
   
9. Public Function LstDayMnth(InDate As Date) As Date
   
10. LstDayMnth = DateSerial(Year(InDate), Month(InDate) + 1, 0)
    
11. End Function
    
12. 
    
13. Public Function LstDayNextMnth(InDate As Date) As Date
    
14. LstDayNextMnth = DateSerial(Year(InDate), Month(InDate) + 2, 0)
    
15. End Function
    
16. 
    
17. Public Function FstDayPrevMnth(InDate As Date) As Date
    
18. FstDayPrevMnth = DateSerial(Year(InDate), Month(InDate) - 1, 1)
    
19. End Function
    
20. 
    
21. Public Function LstDayPrevMnth(InDate As Date) As Date
    
22. LstDayPrevMnth = DateSerial(Year(InDate), Month(InDate), 0)
    
23. End Function
    
24. 
    
25. Public Function FstDayCurQtr(InDate As Date) As Date
    
26. FstDayCurQtr = DateSerial(Year(InDate), Int((Month(InDate) - 1) / 3) * 3 + 1, 1)
    
27. End Function
    
28. 
    
29. Public Function LstDayCurQtr(InDate As Date) As Date
    
30. LstDayCurQtr = DateSerial(Year(InDate), Int((Month(InDate) - 1) / 3) * 3 + 4, 0)
    
31. End Function
    
32. 
    
33. Public Function FstDayCurWeek(InDate As Date) As Date
    
34. FstDayCurWeek = InDate - Weekday(InDate) + 1
    
35. End Function
    
36. 
    
37. Public Function LstDayCurWeek(InDate As Date) As Date
    
38. LstDayCurWeek = InDate - Weekday(InDate) + 7
    
39. End Function
    
40. 
    
41. Public Function FstDayCurWeek2(InDate As Date, InStartWeek As Integer) As Date
    
42. 'The first day of the current week (using settings in Options dialog box):
    
43. FstDayCurWeek2 = InDate - Weekday(InDate, InStartWeek) + 1
    
44. End Function
    
45. 
    
46. Public Function LstDayCurWeek2(InDate As Date, InStartWeek As Integer) As Date
    
47. 'The last day of the current week:
    
48. LstDayCurWeek2 = InDate - Weekday(InDate, 0) + 7
    
49. End Function
    
50. 
    
51. Public Function FstWeekDayOfMth(InDate As Date, DayNum As Integer) As Date
    
52. Dim FirstDay As Date
    
53. Dim FirstWeekDay As Integer
    
54. FirstDay = DateSerial(Year(InDate), Month(InDate), 1)
    
55. FirstWeekDay = Weekday(FirstDay)
    
56. Select Case FirstWeekDay
    
57.     Case Is < DayNum
    
58.         FstWeekDayOfMth = FirstDay + DayNum - FirstWeekDay
    
59.     Case Is = DayNum
    
60.         FstWeekDayOfMth = FirstDay
    
61.     Case Else
    
62.         FstWeekDayOfMth = FirstDay + DayNum - FirstWeekDay + 7
    
63. End Select
    
64. 
    
65. End Function
    
66. 
    

复制代码

ly

感谢楼主的无私奉献！

yanwei82123300

感谢楼主的无私奉献！

轻风

可惜没个说明

jinzhanxi

看不懂，能解释下不

changweiren

感谢楼主分享