
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
Cirurgia para acelerar o openSUSE em HD externo via USB
Void Server como Domain Control
Modo Simples de Baixar e Usar o bash-completion
Monitorando o Preço do Bitcoin ou sua Cripto Favorita em Tempo Real com um Widget Flutuante
Como fazer a conversão binária e aplicar as restrições no Linux
Como quebrar a senha de um servidor Linux Debian
Como bloquear pendrive em uma rede Linux
Um autoinstall.yaml para Ubuntu com foco em quem vai fazer máquina virtual
Instalar GRUB sem archinstall no Arch Linux em UEFI Problemático









