https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=10610#CommentId22273
投稿者 shu  (社会人) 投稿日時 2011/12/6 17:21:20
        Dim StartTime = Date.Today.AddHours(10).AddMinutes(10)
        Dim EndTime = Date.Today.AddHours(15).AddMinutes(3)
        Dim NowTime = Date.Now

        If NowTime >= StartTime AndAlso NowTime <= EndTime Then
            TextBox1.Text = "1"
        Else
            TextBox1.Text = "2"
        End If

こんな感じでどうでしょう？
0