Makro başlangıç ve bitiş saati arasındaki fark

[kan-nas]

Makrıyu çalıştırdığım saatle makronun bittiği saatin arasındaki farkı saniye olarak nasıl alabilirim.

Makro başlangıcına

a=now()

sonuna

b=now()

yazdım.

Msgbox b-a

deyince aradaki farkı sıfır olarak gösteriyor.

 

[Trilenium]

datediff fonksiyonu ile yapabilirsiniz..forumda cok örnegi var

 

[Merhum İdris SERDAR]

Makrıyu çalıştırdığım saatle makronun bittiği saatin arasındaki farkı saniye olarak nasıl alabilirim.

Makro başlangıcına

a=now()

sonuna

b=now()

yazdım.

Msgbox b-a

deyince aradaki farkı sıfır olarak gösteriyor.

.

Birkaç örnek:

Sub Test1()

Dim bas As Double
Dim bit As Double

bas = Timer


' Kodlarınız '
bit = Timer - bas
[A1] = Format(bit, "hh:mm:ss")

End Sub

Sub Test2()
Dim t As Date
t = Now()
' Kodlarınız '
MsgBox Format(Now() - t, "hh:mm:ss")

End Sub

Sub Test3()

Dim bas, bit
bas = Now()

' Kodlarınız '

bit = Now()
MsgBox Format(DateDiff("s", bas, bit), "hh:mm:ss")
End Sub

Sub Test4()

a = Now()

' Kodlarınız '

b = Now()

MsgBox Format(b - a, "hh:mm:ss")

End Sub

.

 

[kan-nas]

Üstadım yurttaş çok teşekkür ederim.Sn Trilenium Datediff forumda var ama bunu excelde =datediff(..... şeklinde bir fonksiyonu yok mu.?

 

[Trilenium]

Fonksiyon olsa sizin işinizi nasıl görücek ki? Siz bir butona basacaksınız bu butona bastıgınızı fonksiyon anlamaz ki

 

[kan-nas]

Üstad makro olarak fonksiyon değil. Normal excel önyüzde bir fonksiyon değil mi.?

 

[Trilenium]

Tamam bende bunu söylüyorum zaten,

Siz bir makroyu çalıştırdıgınız başlangıç süresi ile makroyu durdurdugunuz sürenin farkini istiyorsunuz. Fonksiyon(Formül) sizin macroyu çalıştırıp çalıştırmadıgınız bilemez. Hadi çalıştırdıgınızı bildi diyelim, bitirdiginizi bilemez.. E ne yapmak gerekecek bu sefer makroda degerleri yazmanız lazım olacak, yani başladıgınız süreyi yazacaksınız bir hücreye sonrada kapattıgınız süreyi yazacaksınız. Eger bu sayilari makro ile basarsaniz kalan süreyi şöyle yapmanız gerekli olur ;

A1 Başlangıç saati olsun
B1 Bitiş Saati olsun
C1 e yazacagınız formül =(B1-A1)*1440*60 kaç saniye süre harcandıgını gösterir

 

[Merhum İdris SERDAR]

Üstad makro olarak fonksiyon değil. Normal excel önyüzde bir fonksiyon değil mi.?

Sayın Trilenium'umn dediği, VBA'daki DateDiff fonksiyonunu kullanabilirsiniz. Bu Fonksiyon makroda kullanılır.

Yukarıda Test3 makrosunda:

MsgBox Format([COLOR="Red"]DateDiff[/COLOR]("s", bas, bit), "hh:mm:ss")

kullandığım gibi...

.

 

[kan-nas]

Sn.yurttas Sn.Trilenium teşekkür ederim.