Source position: ibase40.pp line 1669
procedure isc_encode_date(
tm_date: PCTimeStructure;
ib_date: PISC_QUAD
);