| Str2HistoricDate Function | 
Unit
QESBPCSDateTime
Declaration
Function Str2HistoricDate(const DateStr: string): TDateTime;
Description
If the Item has no month and/or year then the current month and year will be assumed.
If a 2 Digit Year is used then it is assumted that it is this year or earlier.
| Parameters | 
| DateStr | The String to convert. | 
Category
Date/Time Conversion RoutinesImplementation
 
| function Str2HistoricDate (const DateStr: string): TDateTime;
var
     Hold: TESB2DigitYr;
begin
     Hold := ESB2DigitYr;
     ESB2DigitYr := edyHistoric;
     try
          Result := Str2Date (DateStr);
     finally
          ESB2DigitYr := Hold;
     end;
End; | 
|  |