GetExpirationDate
function GetExpirationDate (const Key : TKey; const Code : TCode) : TDateTime;

GetExpirationDate returns the date that the code passed as the Code parameter expires.

If the code has no expiration date or is invalid, 1 January 9999 is returned.Key must be the same key that was used to create the code or the code is considered invalid.

This routine is defined in the OnGuard unit. (as of 1.15 this routine has been moved to the OgUtil unit)

As of version 1.15 this function checks the expiration field for date codes.  If the expiration field is not zero then return it otherwise return the EndDate field like previous versions did.