Video: Crie uma aplicação PAF-ECF do inicio ao fim usando o Delphi e Dlls dos fabricantes-Parte 5-Implementando rotinas para comparação de Data e Hora do ECF com o sistema

Ola Godinho.
*Na VerificacoesPAFECF, mesmo dando erro de comunicação com ECF é preciso mostrar a mensagem 'Serial do ECF não confere. O Aplicativo será encerrado!'?.
* Para conferir a hora fiz assim:
if Abs(MinutesBetween(aHora,aHoraECF)) > 15 then
e nos meus testes não deu erro.
Valeu.

Olá Godinho.

Primeiramente gostaria de agradecer por estar disponibilizando essas video aulas.

Na função VerificacoesPAFECF achei estranho a parte do código em que você faz a verificação da hora, pois é utilizado a váriavel que a Data está armazenada. O correto não seria usar as variáveis aHoraECF e aHora?

aDataECF := StrToDateTime(Copy(auxData,1,2)+'/'+Copy(auxData,3,2)+'/'+Copy(auxData,5,2));
aHoraECF := StrToDateTime(Copy(auxHora,1,2)+':'+Copy(auxHora,3,2)+':'+Copy(auxHora,5,2));
aData := Date;
aHora := Time;
if aData <> aDataECF then
begin
Mensagem := 'A Data ECF não confere!';
Result := false;
end
else
begin
if Abs(aData - aDataECF) > 15 then
begin
Mensagem := 'A hora do ECF não confere!';
Result := false;
end;
end;