İşlem süresi mesajı

[ASLAN7410]

Merhaba hayırlı akşamlar.

Aşağıdaki koda salise eklemek istiyorum. Ama bir türlü başaramadım.
Yani istediğim şey mesajda İşlem süresi: 00:04:03:75 bu şekilde görünmesini istiyorum.

Sub AliVeli()
zaman = TimeValue(Now)

'.kodlarınız

MsgBox "İşlem Süresi  : " & CDate(TimeValue(Now) - zaman)
End Sub

 

[Zeki Gürsoy]

Zaman farkında salise yoktur. Bu duyarlılığı "timer" fonksiyonu ile alabilirsiniz.

Aşağıdaki zaman farkı fikir verecektir.

t1 = time

kodlar...

t2 = time
msgbox "işlem süresi : " & format(t2 - t1, "hh:mm:ss")

 

[ASLAN7410]

Sayın Zeki Bey ilginiz için çok teşekkür ediyorum, ancak makro'dan fazla anlamadığım için sormuştum bu soruyu.

Timer fonksiyonu ile alabilirsiniz demişsiniz nasıl yani?

 

[Zeki Gürsoy]

Mantık aynı. Aşağıdaki gibi mesela. Sonuç saniye cinsinden gelir. Örneğin; 3,2654 gibi bir değer.

[SIZE=2]t1 = timer 

 kodlar... 
t2 = timer 

msgbox "işlem süresi : " & t2 - t1 & " saniye"[/SIZE]

 

[ASLAN7410]

Sayın Zeki Bey, forumda bir kaç tane kronometre şeklinde uygulama buldum, kronometre gibi uygulansa, benim istediğim mesaja gelir mi?

 

[Zeki Gürsoy]

Nasıl yani? Eş zamanlı mı göstermeli?

Bu biraz da kodlamaya bağlı hazırlanacak birşey...

 

[ASLAN7410]

Kronometre makrosunu çalıştırdığımda saat-dakika-saniye-salise uygulaması vardı.

Bende bu kronometre makrosundaki gibi çalıştırdığımda işlem bittiğinde ekrana gelen uyarı mesajında İşlem süresi : 00:10:15:75 gibi olmasını istemiştim.

 

[ASLAN7410]

Sayın Zeki Bey uyarı mesajına 00:10:15:75 bu şekilde bir bilgi getirilemez mi?

 

[Zeki Gürsoy]

Bahsettiğiniz kroneometre örneği muhtemelen Timer API örneğidir. Buradaki kullanım prensibi farklı.

Timer fonksiyonu sonucu gelen saniye cinsinden değeri istediğiniz 00:00:00,00 formatına çevirebilirsiniz.

 

[ASLAN7410]

Timer fonksiyonu sonucu gelen saniye cinsinden değeri istediğiniz 00:00:00,00 formatına çevirebilirsiniz.

Maalesef makrodan fazla anlamıyorum, size zahmet olmazsa küçük bir örnek hazırlar mısınız?

 

[ASLAN7410]

Forumda aşağıdaki linki buldum ancak istediğimi elde edemedim.

http://www.excel.web.tr/f48/makro-caly-ma-suresi-t148478.html

 

[Zeki Gürsoy]

Saniyeyi kronometre formatına çeviren özel bir fonksiyon yazdım.

Aşağıdaki kodu deneyin. (3 -4 sn. bekleyin.)

Sub test()
    t1 = Timer
    
    For i = 1 To 100000
        DoEvents
    Next
    
    t2 = Timer
    
    MsgBox t2 - t1 & " - " & SaniyedenSaat(t2 - t1)
End Sub

Function SaniyedenSaat(ByVal zaman As Double) As String
    h = zaman \ 3600        ' saat
    m = (zaman - h * 3600) \ 60 ' dakika
    s = Fix((zaman - (h * 3600) - (m * 60)))
    ss = (zaman - (h * 3600) - (m * 60) - s) * 100
    
    h = Format(h, "00") & ":"
    m = Format(m, "00") & ":"
    s = Format(s, "00") & ":"
    ss = Format(ss, "00")
    
    SaniyedenSaat = h & m & s & ss
End Function

 

[ASLAN7410]

Zeki Bey ellerinize sağlık süper oldu kod gayet güzel çalışıyor, işlem yaptırdığım makromun işlemi ne kadar sürede yaptığını mesajda yazmasını istiyorum.

Bu kodu işlem yaptırdığım makroma nasıl uygulamam gerekiyor.

Örneğin.

Sub AliVeli()

test

. kendi makro kodlarım

MsgBox t2 - t1 & " - " & SaniyedenSaat(t2 - t1)

End Sub

Bu şekilde mi yazmam gerekir.

 

[Zeki Gürsoy]

Aşağıdaki gibi. "Test" isimli prosedur olmayacak; adı üstünde "test".

Sub AliVeli()

    t1 = Timer
    
    . kendi makro kodlarım
    
    t2 = Timer
    
    MsgBox  SaniyedenSaat(t2 - t1)

End Sub

 

[ASLAN7410]

Zeki Bey kusura bakmayın sizi uğraştırıyorum, gerçekten sizin dediğiniz gibi kendi kodlarımın arasına bu kodu uyguladım, -22:-23:-17:-91 şeklinde bir sonuç üretti.

Sizin aşağıda yazmış olduğunuz kodlar arasında siyahla belirmiş olduğum yeri kendi kodlarımın neresine yerleştirmem gerekiyor.

Sub test()
t1 = Timer

For i = 1 To 100000
DoEvents
Next

t2 = Timer

MsgBox t2 - t1 & " - " & SaniyedenSaat(t2 - t1)
End Sub

 

[ASLAN7410]

Sayın Zeki Bey aşağıdaki gibi de uyguladım, yine olmadı?

Sub AliVeli()

t1 = Timer
For i = 1 To 100000
DoEvents
Next

. kendi makro kodlarım

t2 = Timer

MsgBox t2 - t1 & " - " & SaniyedenSaat(t2 - t1)

End Sub

 

[Zeki Gürsoy]

Bu, beklenmeyen bir durum. "t2 - t1" farkı kaç saniye çıktı?

Ya da gerçek proseduru buraya ekler misiniz?

Bu arada "14" nolu mesaja dikkat edin.

.

 

[ASLAN7410]

-81079,1 şeklinde çıktı.

 

[ASLAN7410]

Kod arasındaki

For i = 1 To 100000
DoEvents
Next

bu kodu aşağıdaki gibi yaptım yine olmadı.

Sub AliVeli()

t1 = Timer
For i = 1 To 100000
DoEvents
Next

. kendi makro kodlarım

t2 = Timer

MsgBox t2 - t1 & " - " & SaniyedenSaat(t2 - t1)

End Sub

 

[ASLAN7410]

Sayın Zeki Bey kusura bakmayın Timer yazısını kendi makroma yanlış aktarmışım, tam istediğim gibi oldu şimdi düzeldi.

Ellerinize sağlık çok teşekkür ediyorum, hayırlı geceler diliyorum.