LibreOffice/OpenOffice.org Way in Japan

foral.exblog.jp
ブログトップ

Basicの速度

Basicの速度を測る。

■適当なサンプル
---------------------------------------
Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub Main()
Dim temp
tstart = GetTickCount
For i = 0 To 10000
temp = (i - 1) * (i + 1) / (i + 1)
Next
temp = 0
tend = GetTickCount
MsgBox tend - tstart

End Sub
---------------------------------------
OOo 3.2.1 : 78-94
Excel 2007 : 0-15
[PR]
by foral | 2010-05-22 22:45