Function sonuc(Trh As Date) As String
X = CStr(Trh)
BasX = InStr(X, " ") + 1
y = TimeValue(CStr(Mid(X, BasX)))
If y >= TimeValue("16:00:00") Then sonuc = "16/00 var...." Else sonuc = "8/16 vardiyasi"
If y <= TimeValue("08:00:00") Then sonuc = "00:00/08:00 vardiyasi"
If err.number<>0 then sonuc ="vardiya girilmemis"
End Function
fonksiyon, tarih ve saat arsında sadece boşluk olduğu varsayımına dayanarak tarih ve saat diye 2ye ayırıp işlem yapmaktadır
Çalışmanızı maalesef inceleme imkanim olmadi ama aşağıdaki kod işinize yarayabilir