Все компоненты с иконками кка у таймера )))))
кто знает как лечиться?
Dim dat1 As Date = New Date(2008, 1, 1)
MsgBox(DatePart(DateInterval.WeekOfYear, dat1, FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays))
Dim dat2 As Date = New Date(2007, 12, 31)
MsgBox(DatePart(DateInterval.WeekOfYear, dat2, FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays))
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 38