Str2HistoricDate Function
Converts a string containing a Date into a DateTime.

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 Routines

Implementation

function Str2HistoricDate (const DateStr: string): TDateTime;
var
     Hold: TESB2DigitYr;
begin
     Hold := ESB2DigitYr;
     ESB2DigitYr := edyHistoric;
     try
          Result := Str2Date (DateStr);
     finally
          ESB2DigitYr := Hold;
     end;
End;


HTML generated by Time2HELP
http://www.time2help.com