VB.NET で一ヶ月後の最終日付を取得するには[ﾌﾟﾛｸﾞﾗﾐﾝｸﾞ]
(2020-10-12 13:09:14) by shinoda
まあ､DateTime 型のｵﾌﾞｼﾞｪｸﾄには AddMonths ﾒｿｯﾄﾞがあるので､
Dim hoge_today As DateTime = "2020/03/23"
Dim hoge_addmon As DateTime = hoge_today.AddMonths(1)
とすれば､hoge_addmon には 2020/04/23 がｾｯﾄされる｡
一応､自動で月の最終日の判断はするので､
Dim hoge_today As DateTime = "2020/03/31"
Dim hoge_addmon As DateTime = hoge_today.AddMonths(1)
であれば､hoge_addmon には 2020/04/30 がｾｯﾄされる｡
決して､2020/05/01 であったり､ましてや 2020/04/31 になってしまうわけではない｡
なんか､ﾈｯﾄ上の情報を見ていると､｢.NET って､ちゃんと最終日の判断してるやん!!｣｢3/31の一ヶ月後が 4/30 になってて感動!｣みたいな記事が多い｡
いや､それは当たり前なんちゃう?(^^; そんな感動することか!?と思うのだが､VB.NET なんかは､何もﾌﾟﾛｸﾞﾗﾐﾝｸﾞのことを知らずに入社したﾌﾟﾛｸﾞﾗﾏが最初に使う言語ということも多いだろうから､こういう感動をする人も多いのかなあ･･･とか思ったり｡
ただこの｢自動で最終日をｾｯﾄしてくれて素敵｣は､基準となる年月日が｢31日まである月｣のみの話である｡
Dim hoge_today As DateTime = "2020/02/29"
Dim hoge_addmon As DateTime = hoge_today.AddMonths(1)
の場合､hoge_addmon には 2020/03/29 がｾｯﾄされる｡最終日でもなんでもない｡
Dim hoge_today As DateTime = "2020/02/29"
Dim hoge_addmon As DateTime = hoge_today.AddMonths(-1)
なら､2020/01/29 がｾｯﾄされる｡やはり 1月の最終日ではない｡
結局､翌月の最終日を求めようと思えば､単純に AddMonths を使うのではなく､
Dim old_mm As String = hoge_today.ToString("MM")
If hoge_today.AddDays(1).ToString("MM") <> old_mm Then
saisyu_flg = 1
End If
みたいに最終日かどうかをﾁｪｯｸして､最終日だったときは､
Dim days As Integer = DateTime.DaysInMonth(hoge_today.AddMonths(1).Year, theDay.AddMonths(1).Month)
Dim hoge_addmon As DateTime = New DateTime(hoge_today.AddMonths(1).Year, hoge_today.AddMonths(1).Month, days)
みたいにしないとﾀﾞﾒ?
すんまへん｡VB.NET とかそんなに詳しいわけじゃないんで､もっとこんな簡単な方法が･･･みたいなものがあればご教示ください｡＞識者の方
ｺﾒﾝﾄ投稿
次の記事へ >
< 前の記事へ
TOPへ戻る
Powered by
MT4i 3.0.8