Public Sub SetDate(ByVal iYear As Long, ByVal iMonth As Byte, ByVal iDay As Byte)
  Property Description  
    Argument iYear sets the Year part of the date. (Valid Range -9999 to 9999)  
    Argument iMonth sets the Month part of the date. Jan = 1, Feb = 2 etc. (Valid Range = 1 to 12)  
    Argument iDay sets the Day part of the date. (Valid Range = 1 to days in month)  
    Description Populates this DateTime as type date.  
    Remarks NOTE: DateTime uses the XML Schema formula for proleptic Gregorian calendar where year 0 is illegal and -4 (4BC) as a leap year.
Throws: on parsing invalid values.
Throws: if this DateTimes current type is not either zeroYear or date.