(Resolvido) Soma com arredondamento

[Carlos A.Pontes]

Boa Noite a todos....esse é meu primeiro Post no forum que após dar uma vasculhada achei o pessoal prestativo e sempre com disposição em ajudar e não achei resposta a uma dúvida que me persegue.Tenho um simples BD de escola com notas e faltas dos alunos nas diferentes disciplinas do ensino fund. e médio ao longo dos 4 bimestres e precisava que num campo do meu frm ele me calculasse a média dos 4 bimestres.. (até aí td bem) só que gostaria que nessa caixa de texto "média" me aparecesse a media sempre para maior e com incremento de 1 (números inteiros).. ex... 7 + 7 + 5+ 6 =2 5 média=6,25 ..gostaria que me retornasse 7... é possível??? alguém pode me ajudar? desde já.grato a todos..

[Alexandre Neves]

Boa tarde, Carlos

E se for 7 + 7 + 5+ 5 =24 média de 7 (incremento de 1, conforme pediu) ou média de 6 (média normal)?

[MrMALJ]

Faça um procedimento de evento e coloque um codigo assim:

if int(me.suaMedia)<me.suaMedia then
me.suaMedia.value=int(suaMedia)+1
end if

[Carlos A.Pontes]

Obrigado pessoal, mas até agora não deu não..

quanto ao código do Mr.MALJ coloquei no evento antes de atualizar e após atualizar da minha caixa de texto que já calcula a média e infelizmente não me retornou o valor desejado (estou fazendo algo de errado?)..quanto ao alexandre Neves tentarei ser mais preciso ,mas no caso que você mencionou o valor da média no seu exemplo já retorna um número inteiro.. então está correto.. Esse arredondamento é somente quando os números não derem inteiros, então gostaria como resposta o próximo inteiro sempre maior..

[MrMALJ]

Esse código deve ser colocado por exemplo num campo onde você irá lançar a nota, lembrando que para isso o campo de média terá que estar preenchido com o calculo, pois o mesmo faz comparações e atualiza o mesmo com base no que for encontrado no proprio objeto.

[Alexandre Neves]

Boa noite, Carlos

Utilize

Function ArredondaMedia(Valor1 As Double, Valor2 As Double, Valor3 As Double, Valor4 As Double) As Integer
    'criada por Alexandre Neves
    'em 2009-07-28
    'para Carlos Pontes
    'do fórum ScriptBrasil
    If (Valor1 + Valor2 + Valor3 + Valor4) / 4 = CInt((Valor1 + Valor2 + Valor3 + Valor4) / 4) Then
        ArredondaMedia = (Valor1 + Valor2 + Valor3 + Valor4) / 4
    Else
        ArredondaMedia = CInt((Valor1 + Valor2 + Valor3 + Valor4) / 4) + 1
    End If
End Function

[Carlos A.Pontes]

Fico muito grato a todos que tentaraam me ajudar, mas enfelizmente não consegui.. tentei de várias formas. Guardei aqui a função do Alexandre Neves e o proced. do MrMALJ para tentar usar num futuro bem próximo..assim que adquirir mais conhecimentos em vba.... valeu galera.

[Alexandre Neves]

Bom dia, Carlos

Não conseguiu? O que está a fazer? uma consulta? Se for, indique "SELECT ... ArredondaMedia(SeuValor1,SeuValor2,SeuValor3,SeuValor4) as Media, ... FROM ...;"

[Carlos A.Pontes]

Muito obrigado Caro Alexandre Neves, estava tentando chamar a função no meu frm através de caixa de texto, pois já tenho 4 caixas com as médias e numa 5ª para chamar a função para arredondar por ex.. P1C, P2C, P3C, P4C que são as médias de português. alterei tudo e mesmo assim não canta. no meu frm tenho tenho essas médias para várias disciplinas (port. mat. hist. geog. filos. física. quím etc) tentei apenas para port e não deu.. com a sua dica e a dica do MrMALJ.. horas e mais horas fazendo adaptações e testes e nada...Agradeço muito a ajuda de vocês, mas entendo que falta-me conhecimento e quanto a essa consulta irei tentar agora.. Valeu..

[Alexandre Neves]

Boa noite, Carlos

Não dá elementos para saber o que pretende.

Suponhamos que tem uma caixa de texto (TxtMedia) para mostrar a média de 4 disciplinas (TxtDisciplina1, TxtDisciplina2,TxtDisciplina3 e TxtDisciplina4).

Coloque num módulo a função que lhe forneci guarde o módulo

Na caixa de texto TxtMedia, no acontecimento Ao Sair, coloque o seguinte código:

TxtMedia=ArredondaMedia(TxtDisciplina1,TxtDisciplina2,Disciplina3,Disciplina4)

Se não isto, dê elementos

[MrMALJ]

Melhor seria se você postasse seu projeto para que pudessemos analisar e ajuda-lo.

[Carlos A.Pontes]

Melhor seria se você postasse seu projeto para que pudessemos analisar e ajuda-lo.

Está Aqui meus simples bd para análise dos feras .

http://www.esnips.com/doc/e178ad14-3dc5-49...a-de-notas-2009

[Alexandre Neves]

Novamente,

Veja se é isto

bd

[Carlos A.Pontes]

Novamente,

Veja se é isto

bd

Exatamente...Perfeitamente isso ... Caro Alexandre Neves meus agradecimentos a você que elaborou a função e viu meu simples BD e ao MrMALJ .. Parabéns a vocês e ao forum. E a propósito, e sem abusar da sua boa vontade me indique um ou alguns "bons livros" para aprender a fazer essas adaptações nas funções.. porque leio apostilas de vba da net e isso que você fez (pelo menos eu) não achei em lugar algum.....

Editado Julho 31, 2009 por Carlos A.Pontes

[Alexandre Neves]

Bom dia,

Não conheço nenhum livro sobre esta mecânica. Exige muito raciocínio lógico e imaginação.