Xuân Thanh > 19-03-15, 04:49 PM
Function Ngaycuathang(ByVal bDate As Date) As Byte
Dim Namnhuan As Boolean
Dim NGAY As Byte, Thang As Byte
Namnhuan = ((Year(bDate) / 4 - Int(Year(bDate) / 4)) = 0)
Thang = Month(bDate)
If Thang = 4 Or Thang = 6 Or Thang = 9 Or Thang = 11 Then
NGAY = 30
ElseIf Thang = 2 Then
If Namnhuan Then
NGAY = 29
Else
NGAY = 28
End If
Else
NGAY = 31
End If
Ngaycuathang = NGAY
End Function
Function NgayCuoiThang(ByVal bDate As Date) As Date
Dim NGAY As Byte
NGAY = Day(bDate)
NgayCuoiThang = bDate + (Ngaycuathang(bDate) - NGAY)
NgayCuoiThang = Format(NgayCuoiThang, "dd/mm/yyyy")
End Function