Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
Alexandre Neves 4/9/2017, 09:07
Bom dia
Respeite o título na sua função, não use para mensagem
Utilize esta função que lhe criei
- Código:
Function Media2DifZero(Optional Valor1 = 0, Optional Valor2 = 0) As Single
'calcula média de 2 valores diferentes de zero (se forem ambos zero, resulta zero)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' código criado por Alexandre Neves, do Fórum MaximoAccess '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If IsNull(Valor1) = True Then Valor1 = 0
If IsNull(Valor2) = True Then Valor2 = 0
If Valor1 = 0 Then
Media2DifZero = Valor2
ElseIf Valor2 = 0 Then
Media2DifZero = Valor1
Else
Media2DifZero = (Valor1 + Valor2) / 2
End If
End Function
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo