function IsDay(Month: Integer; Value: Integer; LeapYear: Boolean=False): Boolean
X := IsDay(3,31); // X is True