Str2CutOffDate Function |
Unit
QESBPCSDateTime
Declaration
Function Str2CutOffDate(const DateStr: string; const CutOff: Word): 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 CutOff is used to decide which century the date lies in. If 1900 + Yr less than CutOff then it is assumed that 2000 + Yr is wanted, otherwise 1900 + Yr is used.
Parameters |
DateStr | The String to convert. |
Category
Date/Time Conversion RoutinesImplementation
function Str2CutoffDate (const DateStr: string; const CutOff: Word): TDateTime; var Hold1: TESB2DigitYr; Hold2: Word; begin Hold1 := ESB2DigitYr; Hold2 := ESB2DigitCutOff; ESB2DigitYr := edyCutOff; ESB2DigitCutOff := CutOff; try Result := Str2Date (DateStr); finally ESB2DigitYr := Hold1; ESB2DigitCutOff := Hold2; end; End; |
|