HELP required urgently

[sinha]

Please help..is there any way of getting last date and the first date of a specified month.

In fact i choose the digit from a combo box i.e 1,2 so on...Now i have to get the first date and the last date of the choosen mont.
h.

if i choose 1 that is the first month..if i choose 2 i.e the second month and so on.

can anyone help.

thanks

[Beacon]

Posted bu Nucleus some time ago:

Private Function DaysInMonth(ByVal TheMonth As Long, ByVal TheYear As Long) As Long
    DaysInMonth = Day(DateSerial(TheYear, TheMonth+1, 0))
End Function

[Ecniv]

You could add one to the month (allowing for year changes) and go to the 1st of that month then minus 1 (day) which gives you the date of the last day of the month.

A lot more code than beacons reply tho


Do you mean the day or the date ?

Public Function LastDateInMonth(ByVal bytMonth As Byte, ByVal lngYear As Long) As Date
    On Error Resume Next
    
    If bytMonth > 12 Or bytMonth = 0 Then
        LastDateInMonth = vbNull
        Exit Function
    End If
    
    
    bytMonth = bytMonth + 1
    If bytMonth > 12 Then
        lngYear = lngYear + 1
        bytMonth = bytMonth - 12
    End If
    LastDateInMonth = CDate("01/" & bytMonth & "/" & lngYear) - 1
End Function

Vince

[sinha]

Thank u very much. It served my purpose.

sid.