Tính số ngày trong tháng

Hỏi: Tôi muốn biết trong tháng có bao nhiêu ngày thì làm thế nào
Đáp: 

Hàm đếm số ngày trong tháng:

Code:

Function totalDayOfMonth(m As Integer, y As Integer) As Integer

totalDayOfMonth = Day(DateSerial(y, m + 1, 0))
End Function

m: tháng cần theo dõi
y: năm cần theo dõi
Kết quả trả về số ngày trong tháng cần theo dõi

Ví dụ:

Private Sub Command0_Click()
Dim m As Integer, y As Integer
m = 2
y = 2010
MsgBox "thang " & m & " nam " & y & " co " & totalDayOfMonth(m, y) & " ngay "
End Sub

kết quả là 28 ngày!
Xem demo Download

____________________________________________________________________________________
Thảo luận thêm: http://thuthuataccess.co.cc/forum