+- 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ığı: İki Saat Arası Zaman İçin Tanımlama Yapma (/konu-iki-saat-arasi-zaman-icin-tanimlama-yapma.html)
İki Saat Arası Zaman İçin Tanımlama Yapma - murat dikme - 24/10/2019
Merhaba Sayın hocalarım.
Ekli çalışmamda Sayın @ozanakkaya hocamın desteği ile bir yere kadar geldim. Fakat bir yerde takıldım.
Şöyle' ki çalışmamın içinde bulunan "srg_vardiya" da çalışma saatleri mevcut. Bu saat dilimlerinde;
08:00 ile 20:00 saatleri arasına "1"
20:00 ile 08:00 saatleri arasına "2"
şeklinde görmek ve bunu "rapor1" de göstermek
forumda yaptığım aramalarda bazı konuları inceleyip uygulamaya çalıştım fakat sonuç alamadım.
İzlemem gereken yol hakkında bilgi verebilirseniz sevinirim saygılarımla.
Cvp: İki Saat Arası Zaman İçin Tanımlama Yapma - murat dikme - 24/10/2019
Modül1 içinde ki kodu aşağıdaki gibi yaptım.
Kod:
Dim Zaman As Variant, Msj As String
Zaman = Time()
If Zaman > "00:00:01" And Zaman < "08:00" Then Msj = "2"
If Zaman >= "08:01" And Zaman < "15:00" Then Msj = "1"
If Zaman >= "15:01" And Zaman < "20:00" Then Msj = "1"
If Zaman >= "20:01" And Zaman < "00:00" Then Msj = "2"srg_vardiya da alan da
Kod:
Msg: ([giris_saati] & [cikis_saati])olarak yazdım. aşağıdaki şekilde sonuç verdi. burada saat aralıklarını "1" "2" şeklinde yazdırmak için yapmam gereken hakkında bilgi verebilirseniz sevinirim.
Saygılarımla.
Cvp: İki Saat Arası Zaman İçin Tanımlama Yapma - ozanakkaya - 25/10/2019
Merhaba, hangi saate göre işlem yapılacak? Tablorda giriş saati ve çıkış saati ayrı. İstediğiniz sonucu Excel olarak ekleyebilir misiniz?
Cvp: İki Saat Arası Zaman İçin Tanımlama Yapma - murat dikme - 25/10/2019
Sayın Hocam kısaca yapmak istediğimi anlatan Excel örnek ektedir.
Cvp: İki Saat Arası Zaman İçin Tanımlama Yapma - ozanakkaya - 25/10/2019
Modüldeki kodu aşağıdaki ile değiştir,
Public Function ssaat(bsl As Variant)
If bsl > "00:00" And bsl < "08:00" Then ssaat = "2"
If bsl >= "08:00" And bsl < "15:00" Then ssaat = "1"
If bsl >= "15:00" And bsl < "20:00" Then ssaat = "1"
If bsl >= "20:00" And bsl < "23:59" Then ssaat = "2"
End FunctionSorgudaki ilgili alanı da aşağıdaki ile değiştir.
Msg: ssaat([giris_saati])Cvp: İki Saat Arası Zaman İçin Tanımlama Yapma - murat dikme - 25/10/2019
Sayın Hocam teşekkür ederim evet istediğim sonucu verdi, emekleriniz için teşekkür ederim.