#2 erro linha digitável banco 399 HSBC

[Anonymous]

o Cálculo da linha digitável está com um erro ao calcular
o ano no formato juliano. Ao invés de pegar o último
dígito do ano está pegando o primeiro no formato YY
retornando sempre zero.
Resolvi da seguinte forma: em gbCom399.pas após a
linha:
> AUltimoDigitoDoAno :=
FormatDateTime('y',DataVencimento);

coloquei a linha seguinte:

> AUltimoDigitoDoAno :=
Copy( AUltimoDigitoDoAno,
Length(AUltimoDigitoDoAno),
1) ;

jcvinces@yahoo.com