Extract Thread Digit Maturity

Question

I have the following digitized line of a billet, I need a function to extract the expiration date from it, and then use in other.

Type line: 74893.12004.21627.007186.37931.981056 1 59490000041480

I know that the 5949 is the billet’s maturity, but I can’t convert to a Date. I mounted the following function but it didn’t work:

function ExtrairDataVencimento(const CodigoBarras: String): TDateTime;
begin
Result := StrToDate('07/10/1997') + StrToInt(Copy(CodigoBarras, 34, 4));
WriteLn(Result);
end;

Any suggestions?

Answer 1

See if that’s what you’re looking for:

const
CodigoDeBarras: string = '74893.12004.21627.007186.37931.981056 1 59490000041480';

function ExtrairDataVencimento(const CodigoBarras: String): TDateTime;
begin
Result := StrToDate('07/10/1997') + StrToInt(Copy(CodigoBarras, 41, 4)); // 5949
ShowMessage(DateToStr(Result));
end;

If you’re building a console app:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  SysUtils;

const
CodigoDeBarras: string = '74893.12004.21627.007186.37931.981056 1 59490000041480';

function ExtrairDataVencimento(const CodigoBarras: String): TDateTime;
begin
Result := StrToDate('07/10/1997') + StrToInt(Copy(CodigoBarras, 41, 4));
Writeln(DateToStr(Result));
end;

begin
ExtrairDataVencimento(CodigoDeBarras);
Readln;
end.

The function DateToStr() converts a value of typeDatatime in a formatted string.