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
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Olha que Conky "bunitinhu" pra usar no seu sistema
Git config não aplica configurações
O que você quer para sua vida ao usar o Linux?
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Aprendendo mais sobre Linux com livro (4)
warsaw parou de funcionar após atualização do sistema (solução) (9)
eu estou tendo um problema no ChimeraOS e no Bazzite (0)
samba4 versao 4.22.3 usuario nao consegue trocar a senha (4)