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