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