Components for Delphi and C++ Builder.

function DBCtrlsEh.DateTimeStampToVarValue(DateTimeStamp: TDateTimeStampEh;
....
  if DoEncodeDateTime(dts, ADateTime) then
  begin
    if not VarIsNull(DateTimeVal) then
      DecodeDateTime(DateTimeVal, Y, M, D, H, N, S, MS);
    if dtmp.Year.Present and (dts.Year > 0) then
      Y := dts.Year;
    if dtmp.Month.Present and (dts.Month > 0) then
      M := dts.Month;
    if dtmp.Day.Present and (dts.Day > 0) then
      D := dts.Day;
    if dtmp.Hour.Present and (dts.Hour >= 0) then
      H := dts.Hour;
    if dtmp.Min.Present and (dts.Minute >= 0) then
      N := dts.Minute;
    if dtmp.Sec.Present and (dts.Second >= 0) then
      S := dts.Second;
    // //New Code
    if AutoCorrect then
    begin
      CorrectDate(Y, M, D); //Create CorrectDate for Word type
      CorrectTime(H, N, S);
    end;
    // \\New Code
    DateTimeVal := EncodeDateTimeEh(Y, M, D, H, N, S, MS);
    Result := True;
  end else
...