[Resolvido]Retirando a v;irgula de uma função que retorna um numero decimal

Amigos tenho uma função que me retorna em decimais
Ex:
1,2
10,2
21,2 etc...

Preciso pegar apenas os digítos antes da vírgula...

consegui de uma maneira utilizando o left.. o que ocore é que quando o número vai de 0 a 9 ela retorna assim

1, e 0,

Preciso que retorne nesse caso quando o valor começa com 1, ou 0, me de o valor 1 ou 0



Me.txtLeftAgeMonn = Left(Age(Me.txtDateMoon), 2)
If Me.txtLeftAgeMonn = "1," Or "0," Then
Me.txtLeftAgeMonn = Left(Me.txtAgemonn, Len(Me.txtAgemonn.Value) - 1)'tentei assim mas não deu certo
End If

se puderem ajuda fico grato

Ops.. estava errado o nome caixa de onde se ia retirar a ,


Me.txtLeftAgeMonn = Left(Age(Me.txtDateMoon), 2)
If Me.txtLeftAgeMonn = "1," Or "0," Then
Me.txtLeftAgeMonn = Left(Me.txtLeftAgeMonn, Len(Me.txtLeftAgeMonn) - 1)
End If

Se vai ser sempre 1 ou dois dígitos antes da vírgula, talvez funcione assim:

Me.txtLeftAgeMonn = Left(Age(Me.txtDateMoon), 2)
Me.txtLeftAgeMonn = Replace(Me.txtLeftAgeMonn, ",", "")
If Me.txtLeftAgeMonn = "1," Or "0," Then
Me.txtLeftAgeMonn = Left(Me.txtAgemonn, Len(Me.txtAgemonn.Value) - 1)'tentei assim mas não deu certo
End If

Hary,

Só agora vê o tema. Se ainda não resolveu, coloque Int(CaixaTexto). Se não percebi bem o problema, explique melhor.

Boa tarde alexandre.. em realidade eu ia utilizar o valor desta caixa para soncronizar a imagem da lua (Fase) com este valor...

Mas mudei a estratégia para outra caixa....

Se eu encontrar dificuldades novamente posto aqui.

Grato