Enviado em 09/07/2019 - 13:01h
Olá,
Option Explicit
Sub TimeTest()
Dim x As Long, y as Long
Dim A As Double, B As Double, C As Double
Dim i As Long, j As Long
Dim StartTime As Date, EndTime As Date
'Armazena tempo de inicio do programa
StartTime = Timer
'Calculos do programa
x = 0
y = 0
For i = 1 To 10000
x = x + i
y = x + i
For j = 1 To 10000
A = x + y + i
B = y - x - i
C = x / y * i
Next j
Next i
' Armazena o tempo do fim de execução do programa
EndTime = Timer
'exibe mensagem com o tempo de execução do programa
MsgBox Format(EndTime - StartTime, "0.0")
End Sub
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
iso de sistema 32 bit em atividade (6)
erro ao clonar repo github (9)
ASRock H310CM-HG4 vs Linux (14)