Saat Aralığı İle İlgili

1.saat : 22:00:00 olsun (metin2)
2.saat :22:40:00 olsun. (Metin4)
Aktif saat 22:10:00 (metin0) ise metin kutusuna 1 yazsın. Bu saatler dışındaysa 0 yazsın.
Kodu şöyle yazdım ama olmadı:
İf metin0>metin2 and metin0<metin4 then
Metin6=1
Else
Metin6=0
End if

Kodunuzda kullanacağınız veri türünü tanımlamazsanız bu tip işlemlerde istediğiniz sonucu alamazsınız. Aşağıdaki kodu deneyin.

Dim aktifsaat As Date, saat1 As Date, saat2 As Date

aktifsaat = Me.Metin0.Value

saat1 = Me.Metin2.Value

saat2 = Me.Metin4.Value



If aktifsaat > saat1 And aktifsaat < saat2 Then

    Me.Metin6 = 1

Else

    Me.Metin6 = 0

End If

Çok teşekkür ederim. Harika olmuş.

Rica ederim, iyi çalışmalar.

Hocam aktif saatin saatler tablosundaki hangi aralığa düştüğünü bulabilen kod nasıl olmalı. Burada "not " alanını forma yazsın.

Örneğinizi ekleyin bakalım, tablonuzu, verilerinizi, kurgunuzu vs. görmeden nasıl cevap verelim?