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; |
|