SOMA APENAS NUMERO INTEIRO

JUNHO 08/08/2012 23:32:14
#407544
Pessoal qual é a linha de comando onde calcula apenas numero inteiro.

Ex:

Tenho um placar ai adiciono dois pontos com este comando abaixo:

Private Sub Command5_Click()
Dim vCon As Integer
If Text5 = Empty Then
Text5 = 0
Else
vCon = Text5 + 2
Text5 = vCon
End If
Text2 = Val(Text3) + Val(Text4) + Val(Text5) + (Val(Label28) / 2)
End Sub

Porem tenho uma outra lacuna que é das vantagem e das punições .
a cada 2 vantagem adiciona 1 ponto no placar e a cada 2 punição retiro 1 ponto do placar.

o caso é o seguinte. se coloco 1 vantagem e depois adiciono 2 pontos. ele acaba adicionando no total 2,5
tem como eu tirar isso somente somar quando tiver multiplos de dois e subitrair com multiplos de 2

Acho que consegui explicar heim
NILSONTRES 09/08/2012 00:10:36
#407545 Resposta escolhida
Text2 = cint(Val(Text3) + Val(Text4) + Val(Text5) + (Val(Label28) / 2))
ou
Text2 = int(Val(Text3) + Val(Text4) + Val(Text5) + (Val(Label28) / 2))
JUNHO 09/08/2012 00:30:22
#407547
Nossa NILSONTRES como tava demorando para ter a reposta achei um jeito aqui eu adicionei

Text2 = Val(Text3) + Val(Text4) + Val(Text5) + (Val(Label28) / 2)
Valor() = Split(Text2.Text, [Ô],[Ô])
Text2 = Valor(0)

porem testei o seu

Text2 = cint(Val(Text3) + Val(Text4) + Val(Text5) + (Val(Label28) / 2))

E chegou no resultado que eu queria tb. E levando em conta. a sua solução ficou bem mais limpa que a minha .
Muito obrigado pela ajuda. graças a pessoas como vc esse portal evolui.

Abraço
Tópico encerrado , respostas não são mais permitidas
Voltar