2 tarihin saat olarak farkı macro ile nasıl buluyoruz

[muzzymania]

İyi Günler;

elimde 2 tarih var ve ben bu iki tarih arasında geçen zamanı saat cinsinden yazdırmak istiyorum.

BAna yardımcı olabilirmisiniz

Şimdiden sağolun:yardim:

 

[geren36]

Sub diff()
Dim TheDate1 As Date
Dim TheDate2 As Date

TheDate1 = Range("b1").Value
TheDate2 = Range("a1").Value
a = DateDiff("h", TheDate2, TheDate1)
Range("c1").Value = a
End Sub

 

[muzzymania]

geren36 çok teşekkür ederim bunu for döngüsü içine yazmam gerekecek

geç cevap yazdığım için gerçekten özür dilerim,desteğinede ayrıca teşekkür,iş yerinde baya lazım olacak bi bilgi verdin.For döngüsünde bi sorun çıkarsa tekrar yardımlarını isteyebilirim umarım

 

[geren36]

bilebildiğim bir şey olursa paylaşmaktan memnun olurum.
"bilgi paylaştıkça çoğalır"

iyi geceler..

 

[muzzymania]

21.01.2008 22:25 - 23.01.2008 19:50 farkı

her bir satır için 21.01.2008 22:25 - 23.01.2008 19:50 gibi iki tarih arasındaki farkın macro ile nasıl buluncacağı hakkında yardımlarınıza ihtiyacım var;yol gösterir misiniz?

 

[Korhan Ayhan]

Selamlar,

A sütununda ilk saat B sütununda son saat verilerinizin olduğunu varsayarsak. C sütununda saat farkını görmek için aşağıdaki kodu kullanabilirsiniz.

Sub SAAT_HESAPLA()
    For X = 2 To [A65536].End(3).Row
    Cells(X, 3) = DateDiff("h", Cells(X, 1), Cells(X, 2))
    Next
End Sub