function EncodeDate(Year: Integer; Month: Integer; Day: Integer; UTC: Boolean=False): Integer
X := DateToStr(EncodeDate(2012,2,13)); // X is '2/13/2012'