Office中国论坛/Access中国论坛

标题: 怎样求出当月的总天数 [打印本页]

作者: wang1999 时间: 2004-6-26 01:16
标题: 怎样求出当月的总天数
怎样求出当月的总天数，当然要考虑到闰年（闰月即2月份）的问题

搞了半天没有搞定。

[em09]

作者: hi-wzj 时间: 2004-6-26 01:21
常用的日期函数。希望对大家有帮助http://www.accessoft.com/Article_Show.asp?ArticleID=54

作者: wang1999 时间: 2004-6-26 02:13
'(闰年判断方法：闰年是能被4整除而不能被100整除的年份，或者是能被400整除的年份。闰年的2月份是29天)。

Function EndOfMonth(CurrentDate As Date)

Dim lngYear As Long

lngYear = Year(CurrentDate)

Select Case Month(CurrentDate)

Case 1

      EndOfMonth = 31

Case 2

      EndOfMonth = 28

      If (lngYear / 4) - (lngYear \ 4) = 0 And (lngYear / 100) - (lngYear \ 100) <> 0 Then

         EndOfMonth = 29

      ElseIf (lngYear / 400) - (lngYear \ 400) = 0 Then

         EndOfMonth = 29

      End If



Case 3

      EndOfMonth = 31

Case 4

      EndOfMonth = 30

Case 5

      EndOfMonth = 31

Case 6

      EndOfMonth = 30

Case 7

      EndOfMonth = 31

Case 8

      EndOfMonth = 31

Case 9

      EndOfMonth = 30

Case 10

      EndOfMonth = 31

Case 11

      EndOfMonth = 30

Case 12

      EndOfMonth = 31

End Select

End Function

看看这是我代码，垃圾一大堆。

原来只要将下月第一天减掉一天就是当月天数，自己忘记还有DateSerial这个函数

谢谢hi-wzj

'求月末日期

Function 月末(日期 As Date) As Date

月末 = DateSerial(Year(日期), Month(日期) + 1, 0)

End Function

[em01]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)