InitDateCodeEx
procedure InitDateCodeEx (const Key : TKey; StartDate, EndDate, Expires : TDateTime; var Code : TCode);
|
InitDateCodeEx procedure InitDateCodeEx (const Key : TKey; StartDate, EndDate, Expires : TDateTime; var Code : TCode); |
  
|
InitDateCodeEx creates and initializes a date code using Key, StartDate, EndDate, and Expires.
The resulting code is valid for dates between StartDate and EndDate inclusive.
The difference between this function and InitDateCode is the addition of an expiration date.
This routine is defined in the OgUtil unit.
Added in version 1.15.
An exception is generated if the StartDate is less than or equal to the BaseDate or if it is greater than 2175-Jun-6.
An exception is generated if Expires is less than or equal to the BaseDate or if it is less than or equal to the StartDate.