SetDay is a procedure used to update the
Day property for the Indy timestamp. ANumber is the day of year to be assigned to the Indy timestamp. SetDay changes the
Day property to 0 (zero) and calls
AddDays using the value in ANumber to adjust the Indy timestamp.