LOTUSSCRIPT 言語

例:Timer 関数
' Calculate how long it takes the following loop to iterate
' 1000 times.
Dim startTime As Single
Dim elapsedTime As Single

startTime!= Timer()
For counter% = 1 To 1000
Next counter%
elapsedTime!= Timer() - startTime!

Print "10000 iterations in "; elapsedTime; " seconds"

関連項目