Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
dlemos

Calcular o tempo de execução de um programa

Recommended Posts

dlemos

Boas

Estou a trabalhar em VB6.5, em conjunto com o Microsoft Excel, e precisava de saber o tempo de execução do meu programa, com a maior precisão possível..

Já pesquisei na net e em livros mas não encontro nada..Alguém tem alguma ideia?Obrigado,cumps!

Share this post


Link to post
Share on other sites
programadorvb6

Olá boa tarde.

Com Excel, não sei fazer ; mas com BD usando (ADO ... ) no VB6 tenho uma rotina

Share this post


Link to post
Share on other sites
dlemos

Boas

O código é enorme :P

Mas de qualquer forma o que eu tenho é uma função MAIN que recorre a uma outra série de funções:

Sub MAIN()

MsgBox "Em execução - Clique OK para continuar.", , "CALCULADORv1.0"

LER
MATRIZ_BIN
TABELAS
CALCULO_LOLP
ESCREVER

msg = "Cálculo completo:" & vbCrLf & vbCrLf
msg = msg & "LOLP = " & lolp & vbCrLf
msg = msg & "LOLE = " & lole & " dias/ano" & vbCrLf
msg = msg & "ENF = " & enf & " MW.h"

MsgBox msg, , "CALCULADORv1.0"

End Sub

Eu queria saber o tempo total de execução da função MAIN...É necessário colocar o resto do código?Eu posso pôr mas é enorme, cumps

Share this post


Link to post
Share on other sites
FreiNando

Se o que pretendes é saber o tempo de execução do procedimento, basta criar uma variável Date, e no inicio do procedimento atribuir-lhe o valor de Now() e no fim do procedimento calcular a diferença entre Now() e o valor inicial.

Por exemplo:

Sub MAIN()
   Dim D as Date

   D=Now()


   .........



   D=Now()-D
   MsgBox D

End Sub


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

Share this post


Link to post
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
Sign in to follow this  

×

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.