calculo de valores confuso

[Read_Mynd]

boas, mais uma pergunta para uma ajuda, esta e apenas por a cabeça não conseguir encontrar resposta, tenho um prog assim:

InputBox hora("insira a hora do dia")

    If hora = 12 Then

   

        h = 0

   

        ElseIf hora <= 12 Then

       

        If hora = 11 Then

       

            h = -15

           

        Else

       

        .....

mas preciso de um calculo, que me faça a k cada hora k eu meta me adicione ou tira 15, se por exemplo forem 11 horas o h é -15, mas se forem 10 horas o h ja é -30 , e as 9 o h e -45, preciso de algo k me faça isso facilmente e não estou a ver como.

cumps

[Andrepereira9]

Boas

Utiliza um Select Case

Select Case hora
     Case 12 : hora = 0
     Case 11 : hora = -15
     ....
     Case Else ' Se nenhuma das condições corresponder. Opcional
     MsgBox("Nenhuma Hipotese Anterior")
End Select

[FreiNando]

E que tal,  h = -15 * (12 - hora)

ou tudo completo

    hora = InputBox("insira a hora do dia")
    If hora <= 12 Then h = -15 * (12 - hora)

[Read_Mynd]

tipo isto:?

Dim hora As Integer, h As Double

InputBox hora("insira a hora do dia")

        Select Case hora

       

        Case 12: h = 0

       

       

End Sub

da erro, diz compyle error, espected array

Boas

Utiliza um Select Case

Select Case hora
     Case 12 : hora = 0
     Case 11 : hora = -15
     ....
     Case Else ' Se nenhuma das condições corresponder. Opcional
     MsgBox("Nenhuma Hipotese Anterior")
End Select

[Read_Mynd]

E que tal,  h = -15 * (12 - hora)

ou tudo completo

    hora = InputBox("insira a hora do dia")
    If hora <= 12 Then h = -15 * (12 - hora)

assim funciona obrigado, mas da-me erro diz expected array

[FreiNando]

Como é que declaraste as variáveis?

[Read_Mynd]

declarei hora como integer, e h como double,

e a seguir precisava de chamar o resultado deste calculo para o adicionar a outro modulo, axam que da?

[FreiNando]

E o erro dá em que linha do código?

As variaveis declaradas assim não deveria dar esse erro.

Se criares um função publica podes chama-la em outros modulos.

[Read_Mynd]

E o erro dá em que linha do código?

As variaveis declaradas assim não deveria dar esse erro.

Se criares um função publica podes chama-la em outros modulos.

da erro logo no inputbox.

e a função publica é como??

e so escrever sub?

[Read_Mynd]

puz o inputbox como tens com o hora = inputbox não da erro, mas da esse erro na msg,

tenho msgbox h ("angulo")

e a função publica é como??

e so escrever sub?

[FreiNando]

Estás a fazer confusão nas declarações.

De inicio escreveste InputBox hora("insira a hora do dia")

Mas em VB declara-se assim: hora=InputBox ("insira a hora do dia")

Na MessageBox é igual:  Msgbox "angulo: " & h

Assim  msgbox h ("angulo")   estás a dizer que h é um Array.

Sub é uma rotina.  Function é uma função.

Public Function ... é a declaração de uma função pública.

No editor de VBA seleciona a palavra Function e prime F1. Irá aprecer a janela da ajuda com muita informação como criar funções.

O mesmo acontece com muitas outras palavras e expressões.

[Read_Mynd]

ok, obrigado.

não tenho o atalho ajuda a funcionar, se tive-se tentava não pedir muitas vezes ajuda, era mais facil, lol