Userformda saat aralığına göre işlem yapma

[muratcx]

Merhaba arkadaşlar userformda listboxdaki kayıt üzerine tıkladığımda textbox2 nesnesine kayıt tarihi yazılıyor (tarih formatı 13.01.2011 23:11:54 şeklinde gösteriliyor)
isteğim ise tarihin saat kısmı baz alınarak saat aralığı 08:00-16:00 arasında ise Label1 e "A", 16:01-23:59 arasında ise "B" yazılması mümkün müdür ? İlginize teşekkür ederim.

 

[Husgvarna]

Merhaba

Merhaba arkadaşlar userformda listboxdaki kayıt üzerine tıkladığımda textbox2 nesnesine kayıt tarihi yazılıyor (tarih formatı 13.01.2011 23:11:54 şeklinde gösteriliyor)
isteğim ise tarihin saat kısmı baz alınarak saat aralığı 08:00-16:00 arasında ise Label1 e "A", 16:01-23:59 arasında ise "B" yazılması mümkün müdür ? İlginize teşekkür ederim.

Eğer "Textbox2" deki tarihe göre olması gerekiyorsa; aşağıdaki kodlardan birini
"Listbox.. Click" de bulunan kodların altına ekleyerek deneyin.

Label1.Caption = ""
s = CDate(Format(TextBox2, "dd.mm.yyyy"))
st = CDate(TextBox2)
Select Case st
Case CDate(s & " 08:00") To CDate(s & " 16:00")
Label1.Caption = "A"
Case CDate(s & " 16:01") To CDate(s & " 23:59")
Label1.Caption = "B"
End Select

veya

 Label1.Caption = ""
st = CDbl(CDate(TextBox2))
Select Case st
Case CDbl(CDate(Format(TextBox2, "dd.mm.yyyy")) + "08:00") To CDbl(CDate(Format(TextBox2, "dd.mm.yyyy")) + "16:00")
Label1.Caption = "A"
Case CDbl(CDate(Format(TextBox2, "dd.mm.yyyy")) + "16:01") To CDbl(CDate(Format(TextBox2, "dd.mm.yyyy")) + "23:59")
Label1.Caption = "B"
End Select