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:
- Giúp đở về listbox và textbox . help !
- Access xem giúp mình bài tính đơn giá này,tạo bảng table lấy dữ liệu từ table khác
- Vấn đề ngày tháng trong Access
- Lập trình VBA trên Access - hình như ít người để ý
- Print data từ Access vào form Word
- Giúp đỡ về việc nhập dữ liệu trên Access chép từ VB
- Giúp lệnh RecordsGoToNew
- Cần Giúp đỡ về giải thuật Xuất-Nhập-Tồn từ ngày này đến ngày kia
- Giúp đỡ về vòng lặp để Append dòng vào Table Access
- Em không biết lấy giá trị lớn nhất
-
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
Sự ra đời của các thiết bị công nghệ – khoa học tiền tiến đã tạo tiền đề thúc đẩy nền kinh tế, từng lớp phát triển hơn. Những thiết bị, ứng dụng này tương trợ con người giải quyết công việc mau...
Bàn luận nhiều tác động tích cực của công nghệ thông tin cho con người