[SORGU] Negatif Değerli Saat
#1
Merhabalar forumda aradım fakat tam olarak kurgulayamadım;

1.Aracın Çıkması gereken saat: 11.12.2014 10:30

2.Aracın Çıkması gereken saat: 11.12.2014 16:00...

Yukarıdaki saatlerim var ve şu anki saat ile farkını alabiliyorum fakat benim yapmaya çalıştığım, araçların çıkması gereken saat geçtiyse saati -01:00 olarak, eğer zamanı varsa 05:00 gibi vermesi
Yani kısacası negatif zamanı eksi ile normal zamanı normal olarak göstersin

Yaptığım işlemlerde ya hepsini pozitif veriyor ya da datediff te örneğin sadece sayı alabiliyorum



  Alıntı
Bu mesajı beğenenler:
#2
sn ersoyyuksel, bunun için küçük bir fonksiyon yazmak işimizi görecektir,Boş bir modül açın ve aşağıdaki fonksiyon kodlarını ekleyin.
Visual Basic
  1. Function GecenSure(BaslamaSaati As Date, BitisSaati As Date) As String
  2. Dim GecenDakika As Long
  3. Dim GecenSaat As Long
  4. GecenDakika = DateDiff("n", BaslamaSaati, BitisSaati)
  5. GecenSaat = Int(GecenDakika / 60)
  6. GecenDakika = GecenDakika - GecenSaat * 60
  7. GecenSure = GecenSaat & " : " & GecenDakika
  8. End Function


bu modülü kaydedip kapatalım. daha sonra formumuzu tasarım modunda açalım, Nerede Hesaplanmasını istiyorsanız o olayın arkasınada şu kodu ekleyin. Ben Hesapla adında bir buton oluşturup click olayına yazdım, siz de Formun Current olayına yada Arac Çıkış saatinin Exit veya AfterUpdate olayına ekleyebilirsiniz.
Visual Basic
  1. Private Sub cmdHesapla_Click()
  2. If Me.cikissaati < Time() Then
  3. Me.txtSure = "-" & GecenSure(Me.cikissaati, Time())
  4. Else
  5. Me.txtSure = GecenSure(Time(), Me.cikissaati)
  6. End If
  7. End Sub



kolay gelsin...



  Alıntı
Bu mesajı beğenenler:
#3
Merhabalar çok teşekkürler kodları uyarladım yanlış anlamadıysam ve yanlış da uygulamadıysam saat "1007615 : 31" şeklinde geliyor.

Yanlış anlaşılmamak adına ufak bir hatırlatma yapayım;

Bu sorguda henüz yüklenen araçlar var yani araçlar fiili olarak henüz çıkış yapmamışlar, planlı bir çıkış saati var ama tabi bu saati aşabiliyor ben şu anda yüklenmekte olan araçların ne kadar geç kaldığını ya da çıkmasına ne kadar kaldığını bilmeliyim ki hızlandırayım

Ben sorgumda aşağıdaki gibi formül kullandım fakat bu sayısal değer veriyor (Form görüntüsünde grafikte görüldüğü üzere

"Kalan Zaman: Round(24*(Now()-[Planlanan Çıkış]);2)"


Eklenti Dosyaları
.jpg   form_goruntusu.jpg (Boyut: 360,29 KB / İndirilme: 62)



  Alıntı
Bu mesajı beğenenler:
#4
Sn ersoyyuksel;
Soruya Zaman: IIf([Saat]<Now();"-";Null) & Format([Saat]-Now();"Short Time") ile yapilabilir.



  Alıntı
Bu mesajı beğenenler:
#5
(11-12-2014, 15:41)dsezgin83260 demiş ki: Sn ersoyyuksel;
Soruya Zaman: IIf([Saat]<Now();"-";Null) & Format([Saat]-Now();"Short Time") ile yapilabilir.

Çok teşekkürler nokta atışı...



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Access Sorguda Toplam Saat Formatı MERAK 3 264 07-12-2025, 16:15
Son Mesaj: dsezgin
  [FORM] Aktif Saati Tablodaki Saat Arasına Göre Bulup Forma Yazdırma yahyamacit 5 557 14-03-2024, 11:07
Son Mesaj: yahyamacit
  12 Saatlik (am-pm) Metin Olarak Girilmiş Saat Verisini 24 Saatlik Olarak Gösterme Hk. adnnfrm 2 538 05-10-2023, 03:16
Son Mesaj: adnnfrm
  Ekleme Sorgusunda Ay/yıl Metin Değeri Tarih/saat Alanına Doğru Aktarma Hk. adnnfrm 2 547 14-08-2023, 00:12
Son Mesaj: adnnfrm
  Tabloda 0'ın Altındaki Negatif Değerleri 0 Olarak Yazmak Yada Boş Bos Göstermek ofbayoglu61 4 574 15-07-2023, 13:16
Son Mesaj: ofbayoglu61
  Formda Saat Widget BeyTor 18 1.322 28-01-2023, 00:02
Son Mesaj: Zeki Gürsoy
  Saat-dakika Değerini Iki Karakter Olarak Almak husem 3 477 27-05-2022, 08:45
Son Mesaj: husem
  Sorgu Toplamlarında çıkan Negatif Sonucu Göstermemek ofbayoglu61 2 406 25-10-2021, 21:58
Son Mesaj: ofbayoglu61

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):