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:
- keycode phím # là thế nào vậy ạ?
- Chương trình quản lý dự án
- Chuyên đề ứng dụng : Thiết kế chương trình Sổ Quỹ Tiền Mặt(Phần 3 - File đ1nh kèm)
- Form Status làm như thế nào anh chị ơi...?
- Làm sao để tắt chế độ Read Only khi mở file Access qua mạng Lan ?
- Convert font VNI sang UNI trong ACCESS!
- Điều chỉnh thông tin thông qua Query
- Câu lệnh SQL
- Lập trình bảo mật cơ sở dữ liệu Access
- Xuất Nhập Tồn Kho Đông Lạnh
-
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
Mọi người chỉ biết rằng trong tinh lực mới chứa tinh trùng. Còn dịch nhờn của đàn ông có tinh trùng không vẫn còn là câu hỏi lớn. Trên thực tế, nam giới khi được tác động, kích thích sẽ sản sinh...
Dịch nhờn của đàn ông có tinh trùng không?