2 Textbox arasındaki zamanı hesaplama

[1ndependent]

Arkadaşlar merhaba.

Ekte göndermiş olduğum tablo access ile bağlantılı çalışıyor. Operasyon başlangıç ve bitiş saatlerine göre bu operasyonun ne kadar sürdüğünü "BİTİR" butonuna bastığım zaman bu textbox içinde görebilmek istiyorum.

Desteğiniz için teşekkür ederim.




Yabancı Kaynaklarda böyle bir kod buldum ama çalıştıramadım.

Public Function Time_Difference(startTime As String, endTime As String) As String
   
    'Note startTime and endTime parameters are strings in the format hh:mm
   
    Dim dStart As Date, dEnd As Date, dDiff As Date
   
    dStart = TimeValue(startTime & ":00")       'change time string to hh:mm:00
    dEnd = TimeValue(endTime & ":00")
    dDiff = dEnd - dStart
    If dDiff < 0 Then dDiff = dDiff + 1
    Time_Difference = Format(dDiff, "hh:mm")

End Function

 

[muratboz06]

Yurakıdaki fonksiyonu userformunuza veya herhangi bir module ekleyin.
Aşağıdaki kod ise TextBox3 e TextBox1 ile TextBox2 arasındaki farkı alarak yazar.

Private Sub CommandButton1_Click()
TextBox3 = Time_Difference(TextBox1.Value, TextBox2.Value)
End Sub

 

[1ndependent]

Murat bey merhaba,

Aşağıdaki gibi bir hata ile karşılaştım. Hatanın sebebi yukarıdaki paylaşmış olduğum kod ile ilgili olabilir mi ?
Zaten ben onu çalıştıramamıştım.

 

[Korhan Ayhan]

Fonksiyon kullanmanıza gerek var mı?

İki değeri birbirinden çıkarmanız yeterli olmadı mı?

 

[1ndependent]

Elbette iki değeri birbirinden çıkarmam benim için yeterlidir. Ancak başaramadım.

"Bitir" Butonuna bastığım da aynı zamanda o anki saati bitiş zamanına ekliyor. Bununla birlikte Operasyon süresinide otomatik olarak o textbox içine hesaplatmalıyım.

Umarım anlatabilmişimdir.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    TextBox7 = Format(CDate(TextBox6) - CDate(TextBox5), "hh:mm:ss")
End Sub

 

[1ndependent]

Çok teşekkür ederim Koray bey.

Daha önce bu kodu denemiştim ama çalıştıramamıştım. Hatam sonuna "hh:mm:ss") koymamakmış.