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:
- Em không biết lấy giá trị lớn nhất
- làm cách nào để đưa nhiều file excel vào cùng 1 table
- Giao trình hệ quản trị CSDL MS.Acess
- Giúp đỡ về vòng lặp để Append dòng vào Table Access
- Tắt mục
- Sửa dùm mình đoạn Code VB này với !
- Cho mình hỏi một số hàm Visual Basic dùng trong Access:
- Giúp em về phần đặt thuộc tính cho trường với
- Mong các bác giúp đỡ
- 1 bài tập cơ bản của Access mà mình ko hiểu...
-
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
- Xuất tinh sớm: Bệnh này ảnh hưởng lớn đến hạnh phúc lứa đôi. Xuất tinh sớm khiến nam giới tự ti, ngần ngại khi quan hệ, bạn tình khó thỏa mãn khi quan hệ. bộc lộ là nam giới thường khó kiểm soát...
Các bệnh về chức năng sinh dục ở quý ông