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