Я думаю, что наиболее удобный ответ представил Джон Скит. Ниже то же самое, но преобразовано в Visual Basic. Мне нравится, когда все очень просто. Мне потребовалось несколько, чтобы понять преобразование C # в Visual Basic. Я также включил некоторые «дополнительные» вещи. Надеюсь, это сэкономит кому-то еще время.
Visual Basic
(((DateTime.Now().Hour + 11) Mod 12) + 1)
Extra
Dim stringDate = DateTime.Now().Year &
DateTime.Now().Month.ToString("00") &
DateTime.Now().Day.ToString("00") & "_" &
(((DateTime.Now().Hour + 11) Mod 12) + 1).ToString("00") &
DateTime.Now().Minute.ToString("00")
ToString("00")
заставляет каждый месяц / день / час / минуту всегда быть представленными двумя цифрами.
Год = 2019
Месяц: 4 апреля = 04
День: 3 = 03
час: 10 = 10
5 минут = 05
stringDate = 201904031005