Сложность следующая:
На форме расположен MonthCalender и три TextBox, в которые выводятся значения:
- длинная нотация даты( день недели, число, месяц год)
- день года
- номер недели.
из ходя из выделенной даты на календаре.
Первые два параметра вычисляются без проблем , а вот номер недели - никак.
Подскажите плиз ...
- Код: Выделить всё
Public Class clsDatum
Private mDatum As DateTime
Private mDatumlang, DayOfWeek, mUSdatum, WeekOfYear As String
Public Property Datum()
Get
Return mDatum
End Get
Set(ByVal Value)
mDatum = Value
End Set
End Property
Public ReadOnly Property Datumlang()
Get
mDatumlang = mDatum.ToLongDateString()
DayOfWeek = mDatum.DayOfWeek.ToString
Return DayOfWeek & " " & mDatumlang
End Get
End Property
Public ReadOnly Property Weeknummer()
Get
WeekOfYear = mDatum.DayOfYear \ 7 + 1
Return WeekOfYear '// но так номер отображается не корректно
End Get
End Property
Public ReadOnly Property USdatum()
Get
mUSdatum = Format(mDatum, "MM/dd/yyyy")
Return mUSdatum
End Get
End Property
End Class
'// код формы
Dim datum As New clsDatum
Private Sub calManden_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles calManden.DateChanged
datum.Datum = calManden.SelectionStart '//задаем дату на календаре
txtLd.Text = datum.Datumlang '// пишем длинную нотацию
txtWnr.Text = datum.Weeknummer '// пишем номер недели
txtUSd.Text = datum.USdatum '// пишем американскую нотацию даты
End Sub
Заранее спасибо.
ЗЫ По сайту и в MSDN искал, но не нашел.
