TDateTimeRec = record
  case TFieldType of
    ftDate: (Date: Longint;);
    ftDateTime: (DateTime: TDateTimeAlias;);
    ftTime: (Time: Longint;);
end;

struct TDateTimeRec {
  Longint Date;
  Longint Time;
  TDateTimeAlias DateTime;
};