Showing Leap Year VB6

[dglienna]

Try this code, it is similar to the last post:

Option Explicit
 
Private Sub Form_Load()
  Dim s As Date, m As Integer, x As Date, mm As String
  s = CDate("2/1/2004")
  mm = Format(s, "MMMM, yyyy")
  s = DateSerial(Year(s), Month(s) + 1, 1)
  x = DateAdd("d", -1, s)
  MsgBox Day(x) & " days in " & mm
End Sub