Skip to main content

#EvdeKal


Tekne Seyir Bilgileri Ve Yakıt Takip

yücel üzülmez
yücel üzülmez
4
647

Tekne Seyir Bilgileri Ve Yakıt Takip

Çözüldü #1
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.
.rar SEYBİLDENEME.rar (Dosya Boyutu: 37,86 KB | İndirme Sayısı: 3)
Cevapla
#2
aşağıdaki kod dener misiniz?
seyir süresi için "[b]sey_sur[/b]" alanını kullanıyorsunuz yanılmıyorsam  ama "[b]sey_sur[/b]" alanının türü kısa saat olarak ayarlanmış yani en fazla 23:59 gösterir, 24 saatten uzun sürelerde hata verir

Visual Basic Code
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

Cevapla
#3
(22/04/2019 22:26)haliliyas Adlı Kullanıcıdan Alıntı: 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
Cevapla
#4
ö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

Visual Basic Code
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

.rar SEYBİLDENEME_hy.rar (Dosya Boyutu: 27,21 KB | İndirme Sayısı: 10)
Cevapla
#5
Hocam teşekkür ederim, düzenlemen ekstra bir iyilik olmuş, ben yapamazdım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da