Chủ đề: Đếm ngày trong một Tháng/Năm
-
07-10-2010, 06:11 AM #1Junior 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:
- Menu trong Access 2007
- ACCESS: tìm kiếm và xóa file bằng VBA!
- giúp tắt chế độ báo của access!
- Cần Giúp đỡ về giải thuật Tính Toán " Giá Trị Hàng Tồn Kho "
- Không đánh biến vào các Qerry nữa
- Tính tổng tiền kiểu gì bây giờ?
- Compact and repair Database bị lỗi
- Đếm ngày trong một Tháng/Năm
- Quản lý mua bán hàng - Phần 4: Thiết kế form
- Giúp em về phần đặt thuộc tính cho trường với
-
07-10-2010, 07:52 PM #2Junior 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
Bao cao su đôn dên là sản phẩm tương trợ dục tình được người dùng tại Việt Nam ưa chuộng. Hiện tại trên thị trường sản phẩm này có rất nhiều dòng với mẫu mã đa dạng. Dưới đây là Top 5 bao cao su đôn...
Bao cao su đôn dên X78PM gai toàn thân để làm mới cuộc vui