Function sonuc(Trh As String) As String
On Error Resume Next
X = CStr(Trh)
ZamanX = Right(X, 4)
y = TimeValue(CStr(Left(ZamanX, 2) & ":" & Right(ZamanX, 2) & ":00"))
If y >= TimeValue("16:00:00") Then sonuc = "16-24" Else sonuc = "8-16"
If y <= TimeValue("08:00:00") Then sonuc = "24-8"
If Err.Number <> 0 Then sonuc = "vardiya girilmemis"
End Function
sonrada fonksiyonu ihtiyaç duyduğunuz yerden çağıracaksınız ister form ister sorguben forma eklediğim metin kutusundan çağırdım ama siz isterseniz formda kullandığın kayıt kaynağına da ekleyebilirsiniz
iyi çalışmalar