Public Function ssaat(bsl As Variant)
If bsl > "00:00" And bsl < "08:00" Then ssaat = "2"
If bsl >= "08:00" And bsl < "15:00" Then ssaat = "1"
If bsl >= "15:00" And bsl < "20:00" Then ssaat = "1"
If bsl >= "20:00" And bsl < "23:59" Then ssaat = "2"
End Function
Sorgudaki ilgili alanı da aşağıdaki ile değiştir.
Msg: ssaat([giris_saati])