[RESOLVED] Calendar issues

[krtxmrtz]

I need a function that takes a month and year as input and returns the number of days for that month. Or preferably, a function that takes a year as input and tells whether it's a leap year or not.

[sansknowledge]

if you are asking for an inbuilt function to find leap year in vb6 then it is not available you have to write your own , same to do with the number of days

[MarkT]

For a leap year function, this should work

Private Sub Form_Load()
    MsgBox "2008 = " & IsLeapYear(2008)
    MsgBox "2009 = " & IsLeapYear(2009)
End Sub

Private Function IsLeapYear(ByVal iYear As Integer) As Boolean
Dim strDate As String

    strDate = "February 29, " & iYear
    IsLeapYear = IsDate(strDate)
End Function

[krtxmrtz]

if you are asking for an inbuilt function to find leap year in vb6 then it is not available you have to write your own , same to do with the number of days

Yes I know how to calculate it, just wanted to avoid all those formulas. I thought since there's a calendar control there could be something similar in terms of a function.

[krtxmrtz]

For a leap year function, this should work...

Yes it works, only I had to make minor changes to adapt it to the Spanish date format:

Private Function IsLeapYear(ByVal iYear As Integer) As Boolean
    Dim strDate As String
 
    strDate = "29-2-" & CStr(iYear)
    IsLeapYear = IsDate(strDate)
    
End Function