Saatte Göre Metin Tanımlama

1 2
17/12/2019, 15:16

yorum70

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.
17/12/2019, 15:45

berduş

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
1 2