Faltou um if no final:
Media :=0;if (campo1 > 0) then media := Media+1;if (campo2 > 0) then media :=
Media+1;if (campo3 > 0) then media := Media+1;
if( Media > 0) then Resultado := ((campo1+campo2+campo3)/media)
else Resultado := 0;
Se não puser esse if no final vai dar uma exceção se todos os campos estiverem
vazios (divisão por zero).
Abraço
Perrotti
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 25 Jul 2007 13:11:36
-0300Subject: Re: Res: [delphi-br] Função para calcular média de campos
preenchidos
Valeu pela dica ....Robson escreveu:>> Jader,> a forma mais pratica ja q são
tres campos apenas é o teste basico, se > tiver valor negativo troque o > por
=> Media :=0;> if (campo1 > 0) then media := Media+1;> if (campo2 > 0) then
media := Media+1;> if (campo3 > 0) then media := Media+1;> Resultado :=
((campo1+campo2+campo3)/media);>>> Kaputz, Robson> Skype: kaputz_gri>>
_________________________________________________________________
Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger!
http://spaces.live.com/signup.aspx
[As partes desta mensagem que não continham texto foram removidas]
