date

[abdellahmehdi 0]

How do I get the last two digits of a date ( 22) ?

2022 => 22

 

[corneliusdavid 220]

You didn't mention whether this is a date, string, or integer value, so I'm just going to assume using the Date function:

FormatDateTime('yy', Date)

 

[Mike Torrettinni 198]

I have a few overloads for YY conversion, mostly used to convert from imported text files:

 

function GetYYFromDate(const aDate: TDate): integer; overload;
begin
  // 01/01/2019 -> 19
  Result := FormatDateTime('yy', aDate).ToInteger;
end;

function GetYYFromDate(const aDate: TDateTime): integer; overload;
begin
  // 01/01/2019 01:01:01 -> 19
  Result := FormatDateTime('yy', aDate).ToInteger;
end;

function GetYYFromDate(const aDate: string): integer; overload;
begin
  // '01/01/2019' -> 19
  Result := Copy(aDate, Length(aDate) - 2, Length(aDate)).ToInteger;
end;

function GetYYFromYear(const aYear: string): integer; overload;
begin
  // '2019' -> 19
  Result := Copy(aYear, Length(aYear) - 2, Length(aYear)).ToInteger;
end;

function GetYYFromYear(const aYear: integer): integer; overload;
begin
  // 2019 -> 19
  Result := aYear mod 100;
end;

 

Edited June 3, 2022 by Mike Torrettinni
typo

[Fr0sT.Brutal 900]

43 minutes ago, Mike Torrettinni said:

Result := FormatDateTime('yy', aDate).ToInteger;

YearOf(aDate) mod 100

[Mike Torrettinni 198]

31 minutes ago, Fr0sT.Brutal said:

YearOf(aDate) mod 100

Nice, thanks!

[abdellahmehdi 0]

 

thank you all 😘