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