Saat farkını otomatik hesaplanması

Hocam galiba ölçütte bir eksiklik var sonucu alıyor ama xx:xx şeklinde saat olarak vermersi gerekirken 1,00694444444444 şeklinde veriyor. Öneriniz?

Tamam Volkan sırayla gideceğiz. Öyle olacağını bilyordum. Amacım birlikte yapmak. Bu neden oluyor? Oradaki sayı formatı daha farklı. Şimdi şöyle yapalım.
Tıklama yordamında 2 değişken tanımlayalım ve verilerimizi oraya formatlayarak aktaralım.

Dim ilktop As Integer

Dim sontop As Integer



ilktop = Dsum ("LEFT(sefer_suresı,2)", "[TBL_SEYIR_SURESI]")

sontop = Dsum ("mid(sefer_suresı,4,2)", "[TBL_SEYIR_SURESI]")

seftop = ilktop & ":" & sontop

kodumuzu bu hale getirelim ve gene çalıştıralım. (daha devam edeceğiz-bitmedi)

Bu sefer tabloda görünen saatlerin toplamını aldı ancak ay ayıracı yapmadı tüm seçili aylarda aynı toplamı veriyor.

Evet yapmadı. Çünkü daha kriter koymadık.
Şimdi onu da koyalım. Nasıl yapacağız? Kullanıcı senin formuna göre Acılan Kutu20 den seçecek, ona göre süzeceğiz.
Ama gel önce şu Açılan Kutu 'nun ismini değiştirelim. bunun adını aykutu yapalım.
Ondan sonra kodlarımızın Dsum bölümlerini şöyle dğiştirelim.

ilktop = Dsum ("LEFT(sefer_suresı,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [aykutu] & "'")

sontop = Dsum ("mid(sefer_suresı,4,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [aykutu] & "'")

Hocam galiba bu sefer oldu. tabloda o ayiçin değer girildiyse toplamını verioyr. eğer o ay için değer yoksaki kullanımda olucak Invalid use of Null uyarısı veriyor.

Bu saatte benimle bir öğrenci gibi ilgilendiğiz için çok teşekkürler. Sizden ders almak çok keyifliydi.

O zaman şöyle yapacağız. NZ fonksiyonunu kullanacağız.

ilktop = Nz(DSum("LEFT(sefer_suresı,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [aykutu] & "'"), 0)

sontop = Nz(DSum("mid(sefer_suresı,4,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [aykutu] & "'"), 0)

Şimdi sonucu bildirebilir misin?