A cada 30 ou mais somar?

Question

Por exemplo

Dim numero1 as integer <= 30

Dim numero 2 as integer

Se esse numero1 for 30 o numero1 é = 1, se for 60 é = 2

Ou seja, separar os numeros a cada 30. Como faço isso?

Answer 1

Bom dia!

Tenta assim:

If Numero1 <= "30" then
Numero1 = "1"
elseif Numero2 <= "60" then
Numero2 = "2"
elseif Numero3 <= "90" then
Numero3 = "3"
'E assim por diante..
end if

Coloca dentro dos IF, END IF..

Answer 2

Poderia até funcionar, mas é uma diferença de datas, teria que fazer 12 vezes isso kk, mas responde, obrigado! Marcado como resposta!