>>DateTime.Parse(Format(CInt("2020"), "00:00"))で試みたんですが > > この場合、今日の時刻になってしまいますね。Date 型の値として得るなら、 > Dim dt As Date = Date.FromOADate(0.0).Add(New TimeSpan(20, 20, 0)) > とか > Dim dt As Date = Date.FromOADate(0.0).AddHours(20.0).AddMinutes(20.0) > とか、 > Dim d As Double = Date.ParseExact("2020", "HHmm", Nothing).ToOADate() > Dim dt As Date = Date.FromOADate(d - Fix(d)) > とか。