Cálculo de la constante ACD

La Constante ACD es usada para calcular la constante a0 de la fórmula de Haigis.

La Fórmula es:   ACD    =  (A * 0.62467) - 68.747

Delphi:

/////////////////////////////////////////////////////////////////
//////    BIOMETRIA CALCULO ACD a partir de Constante A de la LIO
//        NECESITA    A (Constante LIO) (SINGLE)
//        DEVUELVE    Devuelve SF (SINGLE)
/////////////////////////////////////////////////////////////////
FUNCTION  FN_REFRACCION_BIOMETRIA_ACD(VAR_A_Cte: single): single;
var
  ACD:    single;
  A:      single;
begin
  A      := VAR_A_Cte;
  ACD    := (A * 0.62467) - 68.747;
  result := ACD;
end;