• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tính số ngày trong tháng

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • Tính số ngày trong tháng
• Tính số ngày trong tháng

• Tính số ngày trong tháng

  Noname > 03-09-10, 06:34 PM

  Hỏi: Tôi muốn biết trong tháng có bao nhiêu ngày thì làm thế nào
  
  Đá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
• Bài trước Bài tiếp