try this:


vb Code:
  1. MsgBox(Date.IsLeapYear(1582))