QtdDom

@ Não deixa alterar a quantidade de domingos. @

 

vdomatu = 0;
vpos = 1;

 

@ Conta os domingos atuais. @

enquanto (vpos <= 31)
inicio
  vhoralt = HorAlt[vpos];
  se (vhoralt = 9999)
    vdomatu = vdomatu + 1;
  vpos = vpos + 1;
fim;

se (vdomatu <> QtdDom)
  Mensagem(Erro, "Não Pode Alterar a quantidade de Domingos.");