Source position: ibase60.inc line 2337
var isc_encode_date: procedure(
_para1: pointer;
_para2: PISC_QUAD
);