Source position: ibase40.pp line 1651
procedure isc_decode_date(
ib_date: PISC_QUAD;
tm_date: PCTimeStructure
);