VBA - Bir alt sürenin ne kadar sürdüğü gösteriliyor

Question

Bir dizi komutun ne kadar sürdüğünü görüntülemek için aşağıdaki kodu kullanmaya çalışıyorum. Bu örnekte, "10" ya da benzer bir şeyle geri dönmesini bekledim.

Bunun yerine geri birlikte gelir:

neler oluyor ve nasıl bunu doğru biçimlendirmek?

Sub timeyWimey() 

    Dim t1 As Date 
    Dim t2 As Date 
    Dim timeTaken As Date 

     t1 = Now() 
     Application.Wait (Now + TimeValue("0:00:10")) 
     t2 = Now() 

     timeTaken = t2 - t1 

     MsgBox timeTaken 

End Sub 

Düzenleme: bazı büyük Yanıtlar sonra

Final Kodu: in

Sub timeyWimey() 

    'Dim t1 As Double 
    'Dim t2 As Double 


     t1 = Now() 
     Application.Wait (Now + TimeValue("0:00:10")) 
     t2 = Now() 

     timeTaken = t2 - t1 

     MsgBox Format(timeTaken, "nn:ss.000") 

End Sub 

Sonuçlar:

BAM! Sorun çözüldü! Yardımınız için herkese teşekkürler!

Answer 1

Tarihler MS Access ve MS Excel içinde sayısal değer olarak saklanır. Hemen pencerenizde (Ctrl + G) ?Cdbl(now()) yazıyorsanız, böyle bir sayı alırsınız: 42195.5204050926.

Tam sayılar, 1899 Aralık 30'dan bu yana kaç gün geçtiğini gösterir ve ondalık, o günün ne kadarının geçtiğini gösterir.

timeTaken = 42195.5222337963 - 42195.5204050926 

Sadece birkaç dakika sonra bir kez daha ve sonra Now() kontrol Bu örnekte:

Yani kodunuzda temelde böyle bir şey söylüyor. Bu yüzden, 0.0018287037 ile bitti.

Şimdi bir Date değişken kullanılarak bu sizin örnekte olduğu gibi, temelde 30 Aralık 1899, 12:02:38 olup 0.0018287037 adresten ne zaman söylüyorum olduğunu göstermek için giderseniz.

görsel olarak hemen pencereye geri dönüyor ve ?cdate(0.0018287037) yazarak bu görebilir ve böyle bir sonuç elde edecektir: 12:02:38 AM. Sonra ?cdate(1.0018287037) yazabilirsiniz bir adım daha ileri götürmek için ve şöyle bir sonuç elde edecektir: 1899-12-31 12:02:38 AM

Yani durum basitçe sadece değiştirebilirsiniz:

MsgBox timeTaken 

için:

MsgBox Format(timeTaken, "nn:ss") 

Not: Bu cevap hala geçerli olsa da, ekran görüntüsünde "Excel" yazdığını fark etmemiştim.

Answer 2

Normalde, iki tarih arasındaki farkı hesaplamak için DateDiff function'u kullanırsınız; ancak, DateDiff'in size milisaniye vermeyeceği için, başka bir şey isteyeceğinizi düşünüyorum.Bunun yerine, aramayı sadece bir kaç saniye olan Timer() numaralı "Now" işlevine değiştirin (dikkatli olun, sadece gece yarısından bu yana geçen süreyi size verir, bu nedenle t2 - t1 negatif olabilir ve komutlarınız birkaç tane son bulursa) günler anlamlı bir sonuç almayacaksınız).

Answer 3

Zamanlayıcı işlevini deneyebilirsiniz. Diğer cevapların da belirttiği gibi, bazı uyarılar olabilir.

Dim startTime As Double, endTime As Double 
startTime = Timer 

Application.Wait (Now + TimeValue("0:00:10")) 

endTime = Timer 
msgBox endTime - startTime