'-----------------------------------------------------
'得到每个月的天数
'-----------------------------------------------------
Public Function GetDays(ByVal DTM As Date) As Long
Dim lYear As Long, lMonth As Long
lYear = Year(DTM)
lMonth = Month(DTM)
Select Case lMonth
Case 1, 3, 5, 7, 8, 10, 12
GetDays = 31
Case 2
If (lYear Mod 4) = 0 Then
GetDays = 29
Else
GetDays = 28
End If
Case 4, 6, 9, 11
GetDays = 30
End Select
Dim Days As Long
Days = g_Sys.GetDays(你的日期)
Format(你的日期,"yyyyMM00") + 1 '开始日期
Format(你的日期,"yyyyMM00") + Days '结束日期