var
  vSomaMediaVariavel :Currency;
  vAvosVariavel :Integer;
  vMes :Integer;
  vLicMaternidadeNoAno :Boolean;
  vLicMaternidadeNoMes :Boolean;
begin
  if avos_decimo <= 0 then begin
    result := 0;
    exit;
  end;

  //Teve licença maternidade no ano. Limita ao sexo feminino pra ficar mais rápido
  vLicMaternidadeNoAno := (FUN.OP_SEXO = 'F') and (Soma_Verba_Anual('LICENCA_MATERNIDADE') > 0);

  vAvosVariavel := 12;
  vSomaMediaVariavel := 0;

  for vMes := 1 to 12 do begin
    vLicMaternidadeNoMes := (vLicMaternidadeNoAno and (Valor_Verba_Mes_Ano('LICENCA_MATERNIDADE', vMes, FOL.ANO, 1, 1) > 0));
    //Na soma para média variável não contar os meses de lic maternidade ou férias
    //No avos variável não contar os meses de lic maternidade ou férias
    if (vLicMaternidadeNoMes) or
       (Valor_Verba_Mes_Ano('FERIAS', vMes, FOL.ANO, 1, 1) > 0) or
       (Valor_Verba_Mes_Ano('FERIAS', vMes, FOL.ANO, 8, 1) > 0) then
      vAvosVariavel := vAvosVariavel -1
    else
      vSomaMediaVariavel := vSomaMediaVariavel + Soma_Base_Mes_Ano('MEDIA_13_VARIAVEL', vMes, FOL.ANO);
  end;

  result := (vSomaMediaVariavel / vAvosVariavel);
end;