Tenho a seguinte linha digitável de um boleto, preciso de uma função para extrair a data de vencimento dela, e posteriormente usar em outras.
Linha Digitável: 74893.12004.21627.007186.37931.981056 1 59490000041480
Sei que o 5949
é o vencimento do boleto, mas não consigo converter para uma Data. Montei a seguinte função mais não funcionou:
function ExtrairDataVencimento(const CodigoBarras: String): TDateTime;
begin
Result := StrToDate('07/10/1997') + StrToInt(Copy(CodigoBarras, 34, 4));
WriteLn(Result);
end;
Alguma sugestão?
bbbmL.LLLLLd LLLLL.LLLLLd LLLLL.LLLLLd D FFFFVVVVVVVVVV
, sendob
=banco /m
=moeda (9=real) /L
="Campo livre" /d
=Dígito verificador do bloco /D
=Dígito verificador da linha /F
= Fator de Vencimento (dias com base em 7 de Outubro de 1997) /V
= Valor * 100. - O "Campo livre" possui dados como número de convênio, agência, ou outros parâmetros, e varia de banco pra banco.