
  TYPE
    pmt$time_increment = record
      year: integer,
      month: integer,
      day: integer,
      hour: integer,
      minute: integer,
      second: integer,
      millisecond: integer,
    recend;

