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