Olá pessoal, sempre que fiquei preso em algum código encontrei a solução por aqui, mas eis meu primeiro tópico estou tendo problema com o VB para verificar se o número é múltiplo mas a função não está funcionando como deveria. Trabalho com Access 2003 o sistema roda em windows server 2008 mas acredito que não é o SO pois estou programando num windows 10. No código abaixo eu já coloquei os valores fixos para melhor entendimento essa função deveria cair na 1ª condição do "IF" e a função retornar "false". Mas o VB tá doido diz que 7 não é igual a 7, e o resto da divisão de 14,7 por 2,1 não é 0.
Help-me?
Public Function VerificaMultiplo()
Dim X As Double
Dim Y As Double
Dim Z As Double
X = CDbl((14.7 / 2.1))
Y = CDbl(CInt(14.7 / 2.1))
Z = 14.7 Mod 2.1
If Z = 0 Or (X = Y) = True Then
VerificaMultiplo = False
Else
VerificaMultiplo = True
End If
End Function
Help-me?
Public Function VerificaMultiplo()
Dim X As Double
Dim Y As Double
Dim Z As Double
X = CDbl((14.7 / 2.1))
Y = CDbl(CInt(14.7 / 2.1))
Z = 14.7 Mod 2.1
If Z = 0 Or (X = Y) = True Then
VerificaMultiplo = False
Else
VerificaMultiplo = True
End If
End Function