
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
Maquina modesta - a vez dos navegadores ferrarem o usuario
Fscrypt: protegendo arquivos do seu usuário sem a lentidão padrão de criptograr o disco
Faça suas próprias atualizações de pacotes/programas no Void Linux e torne-se um Contribuidor
Como rodar o Folding@home no Linux
Criando um painel de controle (Dashboard) para seu servidor com o Homepage
Utilizando a Ferramenta xcheckrestart no Void Linux
Pisando no acelerador do Linux Mint: Kernel XanMod, zRAM e Ajustes de Swap
Como compilar kernel no Linux Mint
O que significa essa expressão? (0)
o que é esta mensagem? relatorios do sistema (8)
como usar o caja como cliente FTP no linux mint? (2)
VMWare Player não conecta na rede nem consigo intercambiar arquivos (3)









