上期下期の存在確認について

本日の日付でチェック内容が変わるのであれば

Now.Month>=4 AndAlso Now.Month<=9

で場合分けすれば良いかと思います。