Đánh giá chủ đề:
  • 4 Votes - 1.5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tính số ngày trong tháng
#1
Hỏi: Tôi muốn biết trong tháng có bao nhiêu ngày thì làm thế nàohttp://3.bp.blogspot.com/_Lq9SpE8seTU/TD...gthang.png" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;">http://3.bp.blogspot.com/_Lq9SpE8seTU/TD...gthang.png" />

Đáp:
Hàm đếm số ngày trong tháng:

Code:

Mã:
Function totalDayOfMonth(m As Integer, y As Integer) As Integer

totalDayOfMonth = Day(DateSerial(y, m + 1, 0))
End Function
m: tháng cần theo dõi
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ụ:

Mã:
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!
Xem demo Download
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] giúp tạo form on top all windows của máy tính Hieu Ho 2 138 14-06-18, 10:38 PM
Bài mới nhất: paulsteigel
  [Thủ Thuật] [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar] maidinhdan 26 5,245 31-05-18, 05:15 PM
Bài mới nhất: maidinhdan
  [Hỏi] Câu lệnh đóng tất cả các tab đang mở trong access mrtoanbin 3 120 29-05-18, 06:20 PM
Bài mới nhất: ongke0711
  Lấy về số seri CPU, ổ cứng MainBoard trong Access Noname 35 16,710 16-05-18, 09:18 PM
Bài mới nhất: maidinhdan
Lightbulb [Hỏi] Ghi lại mọi thay đổi diễn ra trong access toidjtjmtoi 2 513 19-09-17, 11:06 AM
Bài mới nhất: toidjtjmtoi

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line