前提・実現したいこと
Visual Basicで事務システムを作っています。
DateAdd関数を使ってDateInterval.Yearを使うと、うるう年も考慮されているのですが、
少し面倒な点があります。
例えば、
2023/02/29(A期間)≧2023/02/29(2020/02/29+3年応当日)の条件でエラーメッセージを流したいのですが、
実際にはA期間で2023/02/28と入力をすると、エラーメッセージが流れてしまいます。
本来であれば、2023/02/28と入力をすると、エラーメッセージが流れないようにしたいです。
どのようにコードを書き換えれば解決するのかが分からず質問させていただきました。
宜しくお願い致します。
発生している問題・エラーメッセージ
該当のソースコード
If CDate(AYmd.value)>=CDate(DateAdd(DateInterval.Year, 3, CDate(BYmd.Value))) Then MessageBox.Show("3年以内で入力してください")
試したこと
補足情報(FW/ツールのバージョンなど)
回答1件
あなたの回答
tips
プレビュー