DBDATEREC

type DBDATEREC = packed record

  case Boolean of

    False: (

        oldyear: INT;

        oldmonth: INT;

        oldday: INT;

        olddayofyear: INT;

        oldweekday: INT;

        oldhour: INT;

        oldminute: INT;

        oldsecond: INT;

        oldmillisecond: INT;

        oldtzone: INT;

      );

    True: (

        year: INT;

        quarter: INT;

        month: INT;

        day: INT;

        dayofyear: INT;

        week: INT;

        weekday: INT;

        hour: INT;

        minute: INT;

        second: INT;

        millisecond: INT;

        tzone: INT;

      );

end;