Chủ đề: Đếm ngày trong một Tháng/Năm
-
07-10-2010, 06:11 AM #1
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Đếm ngày trong một Tháng/Năm
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 ạ!View more random threads:
- Xin giúp em về listview
- Lập trình VBA trên Access - hình như ít người để ý
- Đóng gói access
- Xin giúp đỡ về cách tính tiền lương
- Giải pháp nào cho compact CSDL lớn !
- Giúp mình sort tren listbox vớii
- Bấm nút ESC tự đóng Forms
- A/c giúp e hàm Do while với.
- Sửa nội dung trong khi 2 bảng ko có quan hệ
- Không Cho Hiện Bản Ghi Đầu Tiên Trên Form
-
07-10-2010, 07:52 PM #2
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Đếm ngày trong một Tháng/Năm
Hàm đếm số ngày trong tháng:
Mã:Function totalDayOfMonth(m As Integer, y As Integer) As Integer totalDayOfMonth = Day(DateSerial(y, m + 1, 0)) End Function
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
Kể với bác sĩ, anh M. cho biết bữa qua là sinh nhật của mình nên có đi ăn tối, rồi trở về nhà quan hệ tình dục với vợ. Trong quá trình quan hệ , vợ anh dùng miệng "tác động" nhiều vào vùng tinh hoàn....
Hy hữu. Anh chàng suýt mất tinh hoàn vì chơi bằng miệng với vợ