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