时间 日期 自定义函数

时　间:2012-06-25 09:05:55
作　者:欢乐小爪   ID：20149  城市：杭州
摘　要:时间 日期 自定义函数
正　文:

计算天数及月初月末日期
 
Function 本月天数(日期As Date) As Byte
本月天数= DateSerial(Year(日期), Month(日期) + 1, Day(日期)) - 日期
 End Function

Function 月末(日期As Date) As Date
月末 = DateSerial(Year(日期), Month(日期) + 1, 1) - 1
End Function

 
 
Function 月初(日期As Date) As Date
月初 = 日期 - Day(日期) + 1
End Function

今天是第几周
  
 
MsgBox "今天是第" & Format(Now(), "ww") & "周"
 
本月最后一日是周几
 
SELECT
 
Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))AS 本月最后一日是周几,
 
下月最后一日是周几
 
SELECT
 
Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))AS 下月最后一日是周几,
 
本月最后一个周5到月底的天数
 
SELECT
 
(Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))+1)Mod 7 AS 本月最后一个周5到月底的天数;
 
下月最后一个周5到月底的天数
 
SELECT
 
(Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))+1)Mod 7 AS 下月最后一个周5到月底的天数;
 
本月最后一个周5的日期
 
SELECT
 
DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1))-1-(Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))+1)Mod 7 AS 本月最后一个周5的日期;
 
下月最后一个周5的日期
 
SELECT
 
DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1))-1-(Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))+1)Mod 7 AS 下月最后一个周5的日期;
 
自定义两个日期中大的日期
 
Public Function Zudrq(rqa As Date, rqb As Date) As Date
 
Zudrq = rqa
 
If rqb > rqa Then
 
Zudrq = rqb
 
End If
 
End Function
 
 
 
算出每个月的天数
 
一法：
 
Dim a, b, c
 
a =Year(Now())
 
b =Month(Now())
 
c =Format((a & "/" & b + 1 & "/1"),"######") - Format((a & "/" & b &"/1"), "######")
 
二法：
 
DateDiff("d", Format(Date,"yyyy-mm-01"), Format(DateAdd("m", -1, Date),"yyyy-mm-01"))
 
DateDiff可以算出两个日期之间相差几天！
 
三法：
 
Day(DateAdd("d",-1, Format(Date, "yyyy-mm-01")))
 
day函数可以知道某个日期是这个月的第几天，我们把这个月的最后一天拿出来DAY一下！
 
应该还有更好的方法！
 
比如说可以定义一个数组，把每个月的日子放进去，或者说写一个函数算每一个月的天数
 
只要考虑一下闺年的问题就可以了！