[resolvido] VBA Maluco?

Moderador: Avelino Sampaio

Avatar do usuário
Damasceno Jr.
Mensagens: 452
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

[resolvido] VBA Maluco?

Mensagempor Damasceno Jr. » 07 Jan 2016, 20:16

Um assunto que li em outro site e me deixou "encucado".

Código:
x = 6.3
y = 5.9

If x - y = 0.4 Then
MsgBox "Ok."
Else
MsgBox "Ops!"
End If


Por que o VBA só retorna "Ops!"?
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1901
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: VBA Maluco?

Mensagempor Avelino Sampaio » 08 Jan 2016, 06:26

Damasceno,

neste código não vejo vc especificar os tipos de dados das variáveis. Acrescentes os tipos e veja o resultado

Dim x As Currency, y As Currency

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
Damasceno Jr.
Mensagens: 452
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: VBA Maluco?

Mensagempor Damasceno Jr. » 08 Jan 2016, 14:28

Código:
Dim x As Double, y As Double

x = 6.3
y = 5.9

If x - y = 0.4 Then
MsgBox "Ok."
Else
MsgBox "Ops!"
End If
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Avatar do usuário
Avelino Sampaio
Mensagens: 1901
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: VBA Maluco?

Mensagempor Avelino Sampaio » 08 Jan 2016, 16:50

O tipo Currency é o correto, devido a precisão. Experimente.

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 452
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: VBA Maluco?

Mensagempor Damasceno Jr. » 09 Jan 2016, 16:20

Com o Currency funciona direitinho, mestre. Mas e quando eu precisar trabalhar com notações científicas?
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Avatar do usuário
Damasceno Jr.
Mensagens: 452
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: VBA Maluco?

Mensagempor Damasceno Jr. » 09 Jan 2016, 16:31

com a função CDec o resultado é o esperado.

Código:
x = CDec(6.3)
y = CDec(5.9)

If x - y = 0.4 Then
MsgBox "OK"
Else
MsgBox "Ops!"
End If
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Avatar do usuário
Avelino Sampaio
Mensagens: 1901
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: VBA Maluco?

Mensagempor Avelino Sampaio » 10 Jan 2016, 08:20

Valeu Damasceno !
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Off- Assuntos variados”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes