¦p¦ó ´ú¸Õ Excel VBA ­pºâ®É¶¡¶¡¹jªº ºë½T«×¡H

sjgau

¥ý¥á¥X ¤@­Ó°ÝÃD¡A¦AºCºC ¸Ñµª
§Æ±æ¤j®a¦³¿³½ì

sjgau

1. Sub main()
   
2.    Dim no, i, t1, t2 As Long
   
3.    Dim sum, dt As Double
   
4.    
   
5.    no = 100000000
   
6.    ct = 0
   
7.    
   
8.    While (no > 1)
   
9.       ct = ct + 1
   
10.       
    
11.       t1 = time1()
    
12.       sum = 0#
    
13.       For i = 1 To no
    
14.          sum = sum + i
    
15.       Next i
    
16.       dt = time2(t1)
    
17.       
    
18.       Cells(ct, 1) = no
    
19.       Cells(ct, 2) = dt
    
20.       
    
21.       no = no / 3
    
22.    Wend
    
23. End Sub
    
24. 
    
25. Function time1() As Long
    
26.    Dim a As Double
    
27. 
    
28.    a = Timer * 1000
    
29.    time1 = Int(a + 0.5)
    
30. End Function
    
31. 
    
32. Function time2(ByVal t1 As Long) As Double
    
33.    Dim t2 As Long
    
34.    Dim dt As Double
    
35.    t2 = time1()
    
36.    dt = (t2 - t1) / 1000#
    
37.    
    
38.    ' dt must >- 0.0
    
39.    If (dt < 0#) Then
    
40.       dt = dt + 86400#
    
41.    End If
    
42.    
    
43.    time2 = dt
    
44. End Function

½Æ»s¥N½X

¦^´_ 1# sjgau

sjgau

¦^´_ 3# stillfish00


    ¦P·N ±zªº¬Ýªk¡A
SINGLE ªº ºë½T«×¡A¥u¦³ 6 - 7¦ì¼Æ¡A
©Ò¥H¡A¥H¤Wªº´ú¸Õ ½T¹ê¤£¤Ó ¬ì¾Ç

sjgau

¦^´_ 3# stillfish00

Timer ¨ç¼Æ
½Ð°Ñ¾\     ½d¨Ò     ¯S©Ê

¶Ç¦^¤@ Single¡A¨ä¤º®e¬°±q«e¤@­Ó¤È©]ºâ°_¨ì²{¦b©Ò¸g¹Lªº¬í¼Æ¡C

»yªk

Timer

½Ðª`·N

¦b Microsoft Windows¤¤¡A Timer¨ç¼Æ¶Ç¦^¤@¬íªº¤p¼Æ³¡¤À¡C