Jump to content

calculo de valores confuso


Recommended Posts

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

Link to comment
Share on other sites

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

A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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.

O caminho mais curto para conseguir fazer muitas coisas é fazer uma de cada vez. Samuel Smiles

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.