Tarih ve saati baz alarak geçen zamanı hesaplama

[aktarmamd]

Merhabalar ek teki tarih ve zaman sütünu farklı yerlerde olan verilerde alım tarihi ve saatinden ulaşma saatine kadar geçen süreyi hesaplatmak istiyorum. Birkaç formül denedim ama verile farklı sütunlarda olduğundan başaramadım.

Destek olana şimdiden teşekkürler.

 

[maliex]

Merhaba,
kontrol etmekte fayda var

Sub Hesapla()
    Dim alimTarihi As Date
    Dim alimSaati As Date
    Dim ulasmaTarihi As Date
    Dim ulasmaSaati As Date
    Dim fark As Double
    Dim s1 As Worksheet
   
    Set s1 = Worksheets("Sayfa6")
   
    SS1 = s1.Cells(s1.Rows.Count, 1).End(3).Row
   
    For x = 2 To SS1
   

    alimTarihi = Cells(x, "B").Value
    alimSaati = Cells(x, "C").Value
    ulasmaTarihi = Cells(x, "D").Value
    ulasmaSaati = Cells(x, "E").Value
   

    Dim alimDatetime As Date
    Dim ulasmaDatetime As Date
    alimDatetime = alimTarihi + alimSaati
    ulasmaDatetime = ulasmaTarihi + ulasmaSaati
   

    fark = (ulasmaDatetime - alimDatetime) * 24
   

    Dim saat As Integer
    Dim dakika As Integer
    saat = Int(fark)
    dakika = (fark - saat) * 60
   

    Cells(x, "F").Value = saat & " saat " & dakika & " dakika"
   
    Next x
   
   
   
End Sub

 

[aktarmamd]

Merhaba,
kontrol etmekte fayda var

Sub Hesapla()
    Dim alimTarihi As Date
    Dim alimSaati As Date
    Dim ulasmaTarihi As Date
    Dim ulasmaSaati As Date
    Dim fark As Double
    Dim s1 As Worksheet
  
    Set s1 = Worksheets("Sayfa6")
  
    SS1 = s1.Cells(s1.Rows.Count, 1).End(3).Row
  
    For x = 2 To SS1
  

    alimTarihi = Cells(x, "B").Value
    alimSaati = Cells(x, "C").Value
    ulasmaTarihi = Cells(x, "D").Value
    ulasmaSaati = Cells(x, "E").Value
  

    Dim alimDatetime As Date
    Dim ulasmaDatetime As Date
    alimDatetime = alimTarihi + alimSaati
    ulasmaDatetime = ulasmaTarihi + ulasmaSaati
  

    fark = (ulasmaDatetime - alimDatetime) * 24
  

    Dim saat As Integer
    Dim dakika As Integer
    saat = Int(fark)
    dakika = (fark - saat) * 60
  

    Cells(x, "F").Value = saat & " saat " & dakika & " dakika"
  
    Next x
  
  
  
End Sub

Dostum çok teşekkürler, makro ile işim çözüldü.. Bu durumu formülle nasıl çözeriz?

 

[Korhan Ayhan]

Eki inceleyiniz.

 

[mana97]

E Sütunu için formül =((C3+D3)-(A3+B3))*24

A	B	C	D	E
GİDİŞ TARİHİ	GİDİŞ SAATİ	DÖNÜŞ TARİHİ	DÖNÜŞ SAATİ	GEÇEN SÜRE
1.09.2023	08:00	30.09.2023	18:00	706