質問: "Q5" End If End If End Sub ``` すみません、以下の部分はいったん削除します。 ここから、 エラーメッセージは、「BC30311」で、「型’MaskedTextBox’の値を’String'に変換できません。」というものでした。 「伝票日付」はTextBoxではなく、MaskedTextBoxでした。「Date.Parse(伝票日付)」ではDate型に変換できないということでしょうか。 ここまで。
回答: Date.Parseの使い方を理解されていないようです。 Date.Parseは引数に指定した文字列をDate型に変換するためのものです。 ``` Dim abc As Date abc = Date.Parse(abc) ``` Date.Parseは引数に初期化していないDate型変数(値はDate.MinValue)を引数とすると当日の0:0:0を返します。 この為、比較は必ず当日で行われることになります。 Date.Parseの引数には`伝票日付`のテキストを渡してやる必要があります。