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.