Skip to main content

AccessTr.neT


İki Saat Arası Zaman İçin Tanımlama Yapma

İki Saat Arası Zaman İçin Tanımlama Yapma

Çözüldü #1
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.
.rar personel2003k_sld.rar (Dosya Boyutu: 85,44 KB | İndirme Sayısı: 4)
Cevapla
#2
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.


[Resim: do.php?img=9274]
Cevapla
#3
Merhaba, hangi saate göre işlem yapılacak? Tablorda giriş saati ve çıkış saati ayrı. İstediğiniz sonucu Excel olarak ekleyebilir misiniz?
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#4
Sayın Hocam kısaca yapmak istediğimi anlatan Excel örnek ektedir.
.rar saat vardiya.rar (Dosya Boyutu: 7 KB | İndirme Sayısı: 2)
Cevapla
#5
Modüldeki kodu aşağıdaki ile değiştir,

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


Sorgudaki ilgili alanı da aşağıdaki ile değiştir.

Visual Basic Code
Msg: ssaat([giris_saati])
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#6
Sayın Hocam teşekkür ederim evet istediğim sonucu verdi, emekleriniz için teşekkür ederim.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da