Tekne Seyir Bilgileri Ve Yakıt Takip

Tekne Seyir Bilgileri Ve Yakıt Takip - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tekne Seyir Bilgileri Ve Yakıt Takip (/konu-tekne-seyir-bilgileri-ve-yakit-takip.html)

Tekne Seyir Bilgileri Ve Yakıt Takip - yücel üzülmez - 22/04/2019

Arkadaşlar kolay gelsin. Birkaç gündür uğraşıyorum ama excel de basit bir şekilde takip ettiğimiz verileri bir program haline getiremedim. Access ile ilgili ders videolarını izleyerek belli bir yere getirdim ama ana problemim TimeDiff fonksiyonunu kullanamıyorum. Şöyle ki sefer başlangıcı için tarih seçici yaptım. Tarih ve saatleri niye ayrı ayrı yaptım, görünmesi ve girilmesi kolay olsun diye. Sıkıntı şu aradaki zaman farkını bana saat olarak göstermesi lazım, yani iki gün arasındaki sefer süresini 36 saat yada 54 saat Sonra bunların toplamı ve yıl içerisinde toplam seferde geçen süre saat cinsinden lazım. Örneği ekledim. Sanırım basit bir çözümü vardır ama çok acemiyim, yardımcı olacak arkadaşlara şimdiden teşekkürler.

Cvp: Tekne Seyir Bilgileri Ve Yakıt Takip - berduş - 22/04/2019

aşağıdaki kod dener misiniz?
seyir süresi için "sey_sur" alanını kullanıyorsunuz yanılmıyorsam ama "sey_sur" alanının türü kısa saat olarak ayarlanmış yani en fazla 23:59 gösterir, 24 saatten uzun sürelerde hata verir

ZmnSaat = DateDiff("h", Me.gor_bas_tarihi + Me.gor_bas_saat, Me.gor_bit_tarihi + Me.gor_bit_saat)

Zmndk = DateDiff("n", Me.gor_bas_tarihi + Me.gor_bas_saat, Me.gor_bit_tarihi + Me.gor_bit_saat) - 60 * ZmnSaat

Me.sey_sur = ZmnSaat & ":" & Zmndk

Cvp: Tekne Seyir Bilgileri Ve Yakıt Takip - yücel üzülmez - 22/04/2019

(22/04/2019, 22:26)haliliyas yazdı: ZmnSaat = DateDiff("h", Me.gor_bas_tarihi + Me.gor_bas_saat, Me.gor_bit_tarihi + Me.gor_bit_saat)Zmndk = DateDiff("n", Me.gor_bas_tarihi + Me.gor_bas_saat, Me.gor_bit_tarihi + Me.gor_bit_saat) - 60 * ZmnSaatMe.sey_sur = ZmnSaat & ":" & Zmndk

hocam teşekkürler aynen dediğin gibi 23:59 problemi yaşıyorum, ama bunu nasıl kullanacağımı da basit bir şekilde anlatabilir misin ? Aceminin dibiyim Fur

Cvp: Tekne Seyir Bilgileri Ve Yakıt Takip - berduş - 23/04/2019

öncelikle "sey_sur" alanının türünü kısa metin yaptım
sonra da saati ve dakikayı hesaplayan bir fonksiyon tanımladım
ve başlangıç ve bitiş tarih/saat kutularının odağı kaybettiğinde olayına ekledim
dilerim işinize yarar

Public Function SureHesapla()



If IsDate(Me.gor_bas_tarihi) And IsDate(Me.gor_bit_tarihi) And IsDate(Me.gor_bas_saat) And IsDate(Me.gor_bit_saat) Then

ZmnSaat = DateDiff("n", Me.gor_bas_tarihi + Me.gor_bas_saat, Me.gor_bit_tarihi + Me.gor_bit_saat) \ 60 'saati bulmak için, "\" bölme işlemini aşağı yuvarlar

Zmndk = DateDiff("n", Me.gor_bas_tarihi + Me.gor_bas_saat, Me.gor_bit_tarihi + Me.gor_bit_saat) Mod 60 ' 60'a bölümden kalanı verir

Me.sey_sur = ZmnSaat & ":" & Zmndk

End If



End Function

Cvp: Tekne Seyir Bilgileri Ve Yakıt Takip - yücel üzülmez - 23/04/2019

Hocam teşekkür ederim, düzenlemen ekstra bir iyilik olmuş, ben yapamazdım.