Calculates a date.
DateSerial( YY, MM, DD )
Date value
DateSerial(2001, 15, 06) -> 15.06.2001
DateSerial(2001, 1, 166) -> 15.06.2001