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:
- Print data từ Access vào form Word
- Về các bài hướng dẫn tạo một phần mềm quản lý bán hàng bằng Access
- Xóa các record trong table access
- Thêm item mới vào combobox Access
- làm cách nào để đưa nhiều file excel vào cùng 1 table
- Xin hỏi cách tạo combobox lồng nhau
- Kiểm tra dùm mình hàm DLookup() nhe
- Xin các Thầy và các bạn giúp mình chỉnh sửa file đính kèm
- Thí nghiệm làm Msgbox bằng TV
- Thêm dòng trắng cho Report đẹp hơn
-
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
Lễ cúng mưa đầu mùa (Bư brah mih rah bôk năm) là một trong những nghi lễ nông nghiệp quan trọng, thể hiện tín ngưỡng phồn thực mà đồng bào M’nông vẫn còn lưu giữ. Theo quan niệm của đồng bào, mưa...
Lễ cúng mưa đầu mùa của đồng bào M’nông