Đếm ngày trong một Tháng/Năm

[dtngoc]

Thưa anh/chị và toàn thể diễn đàn, vướng mắc của em là tháng 7 năm 2010 được nhập vào txt1: 07/2010

Vậy, làm thế nào để em biết được:

1. Tháng 07/2010 có bao nhiêu ngày (28, 29, 30 hay là 31 ngày)

2. Cố mấy ngày là ngày Chủ nhật

Em rất mong nhận được những lời chỉ bảo của anh/chị!

Em cảm ơn nhiều ạ!

 

[LoveBlue]

Ðề: Đếm ngày trong một Tháng/Năm

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

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!

demo: download

Hàm đếm ngày, bạn xem thêm : http://thuthuataccess.blogspot.com/2010/06/xac-inh-so-thu-trong-mot-khoang-thoi.html