| StrFormat2Date Function | 
Unit
QESBPCSDateTime
Declaration
Function StrFormat2Date(const DateStr: string; const Format: string): TDateTime;
Description
Uses supplied Format instead of ShortDateFormat for the String. If the Item has no month and/or year then the current month and year will be assumed.
ESB2DigitYr contols the different ways in which 2 Digit Years are handled in Str2Date.
edyNone - Nothing is done, left to Delphi to handle.
edyCutOff - the ESB2DigitCutOff is used to decide which century the date lies in. If 1900 + Yr less than ESB2DigitCutOff then it is assumed that 2000 + Yr is wanted, otherwise 1900 + Yr is used.
edyHistoric - asssumes that the yr is this year or earlier.
| Parameters | 
| DateStr | The String to convert. | 
| Format | that the Date is assumed to be in, eg 'DD/MM/YY'. | 
Category
Date/Time Conversion RoutinesImplementation
 
| function StrFormat2Date (const DateStr: string; const Format: string): TDateTime;
var
     Hold: string;
begin
     Hold := ShortDateFormat;
     ShortDateFormat := Format;
     try
          Result := Str2Date (DateStr);
     finally
          ShortDateFormat := Hold;
     end;
End; | 
|  |