microsoft calendar control как?

[skulida]

помогите кому не жалко, как пользоваться этим контролом? или ему подобным (какие еще есть?/где взять?)

т.е. есть етот контрол, размещенный на форме, есть два текстбокса,
как кликая на датах вставлять в поля выбранные даты??
cgfcb,j

[SSSerj]

Очень просто.

Обрабатываеш событие AfterUpdate (например).

Private Sub Calendar_AfterUpdate()

Text1.Text="День-"+Calendar.Day+"/ Месяц-"+Calendar.Month+"/ Год-"+Calendar.Year

End Sub

[skulida]

SSSerj

пробовал код, пишет ошибка 13 Type mismatch

Кстати, а как привести дату к формату dd.mm.yy

[SSSerj]

Очень сори.
забыл про преобразование типов.


Private Sub Calendar_AfterUpdate()

Text1.Text="День-"+str(Calendar.Day)+"/ Месяц-"+Calendar.Month+"/ Год-"+str(Calendar.Year )

End Sub

[Boris_BGB]

Ну, если такая ошибка, то ты скорее всего не правильный тип данных поставил. Ты же наверняка через переменную в текстбокс вводишь. Если так, то переставь её в String.

[Boris_BGB]

Ну, если такая ошибка, то ты скорее всего не правильный тип данных поставил. Ты же наверняка через переменную в текстбокс вводишь. Если так, то переставь её в String.

[Boris_BGB]

Ну, если такая ошибка, то ты скорее всего не правильный тип данных поставил. Ты же наверняка через переменную в текстбокс вводишь. Если так, то переставь её в String.

[SSSerj]

Очень сори.
забыл про преобразование типов.


Private Sub Calendar_AfterUpdate()

Text1.Text="День-"+str(Calendar.Day)+"/ Месяц-"+str(Calendar.Month)+"/ Год-"+str(Calendar.Year )

End Sub

[Boris_BGB]

Ну, если такая ошибка, то ты скорее всего не правильный тип данных поставил. Ты же наверняка через переменную в текстбокс вводишь. Если так, то переставь её в String.

[skulida]

да переменная string
работает если вот так:

Calendar1.Day & "." & Calendar1.Month & "." & Calendar1.Year

а как привести его к указанному формату(dd.mm.yy), для SQL запроса???

[SSSerj]

>Кстати, а как привести дату к формату dd.mm.yy

переменная MyDate будет именно в таком формате

Dim MyDate As Date

MyDate = Str(Calendar1.Day) + "/" + Str(Calendar1.Month) + "/" + Str(Calendar1.Year)

[SSSerj]

А вот так её можно вывести в текст бокс

Text1.Text = Format(MyDate, "dd.mm.yy")

А вот разные варианты
Text1.Text = Format(MyDate, "dd.mm.yyyy")

А так мне кажется красивей всего
Text1.Text = Format(MyDate, "dddd dd mmm yyyy")