RecodeDateTime

function RecodeDateTime(

  const AValue: TDateTime;

  const AYear: Word;

  const AMonth: Word;

  const ADay: Word;

  const AHour: Word;

  const AMinute: Word;

  const ASecond: Word;

  const AMilliSecond: Word

):TDateTime;