• Trang chủ click to expand contents 

  • 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