
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
A produção de áudio e vídeo no Linux e as distribuições dedicadas a esse fim
Criptografando sua Home com Gocryptfs para tristeza do meliante
A Involução do Linux e as Lambanças Desnecessárias desde o seu Lançamento
O Journal no Linux para a guarda e consulta de logs do sistema
A evolução do Linux e as mudanças que se fazem necessárias desde o seu lançamento
Instalar Ubuntu com Btrfs + LUKS de forma fácil
Habilitando "hotcorner" no Ubuntu
Zen Kernel no Arch Linux (instalar e remover)
Como instalar e remover o kernel Liquorix
Fazendo o controle de Xbox 360 USB funcionar no One Piece Pirate Warriors 4 (Arch Linux/Steam)
Executar um programa em Rust (2)
Não consigo publicar screenshots no Viva o Linux [RESOLVIDO] (5)









