Saatte Göre Metin Tanımlama

Sn, okumus sizin ki daha güzel ve verimli olmuş. Ekrana gelen mesaj bölümü ise ayrı bir güzel.

Emeklerinize sağlık.

aşağıdaki kodu dener misiniz?

If IsDate(Me.islemtarihi) Then

Me.Vardiyası = IIf(Me.islemtarihi >= TimeValue("08:00:00") And Me.islemtarihi < TimeValue("16:00:00"), "V1", _

                IIf(Me.islemtarihi >= TimeValue("16:00:00") And Me.islemtarihi <= TimeValue("23:59:59"), "V2", "V3"))

Else

Me.Vardiyası = ""

End If