1

Тема: Как воспользоваться календарем в скриптах для выбора даты

Подскажите пожалуйста как воспользоваться календарем в скриптах для выбора даты?
Спасибо

Re: Как воспользоваться календарем в скриптах для выбора даты

если справочник календари TechnologiCS - то что-то типа такого примера ICalendar.SetCurrentDate.
Если имеется ввиду формы ввода, то можно использовать например вот такой пример

'<doc Выбор даты
'<par %1 As String Первоначальная дата>
'<par %2 As String Заголовок>
'>
Function SelectDate( StartDate, Caption )
   SelectDate = Null
   Set Form = TCSApp.TCSForm( "", False )
   If Caption="" Then Caption = "Задайте дату:"
   Form.Caption = Caption
   Call Form.CreateControl( "TVBDateEdit", "FDate", "" )
   Set C = Form.Controls( "FDate" )
   C.Left = 5
   C.Top = 5
   C.Width = 400
   If Not IsNull(StartDate) Then C.Date = StartDate

   Call Form.CreateControl( "TVBBitBtn", "OkBtn", "" )
   Set B = Form.Controls( "OkBtn" )
   B.Caption = "Выбрать"
   B.Width = 120
   B.Left =  C.Left + C.Width - B.Width
   B.Top = C.Top + C.Height + 10
   B.ModalResult = 1

   Form.Width = 400 + 15
   Form.Height = B.Top + B.Height + 40
   Form.ShowModal
   If Form.ModalResult=1 Then SelectDate = C.Date
End Function


Sub Test1
  D1 = SelectDate( Date, "" )
  MsgBox "Select date:" & D1
End Sub

3

Re: Как воспользоваться календарем в скриптах для выбора даты

У нас версия 4,7,1 - похоже там нет еще TCSApp.TCSForm, а календарь ТКС пробовала использовать для выбора даты - она не сохраняется, установить какую-то конкретную в календаре- да -все нормально, а вот выбор - все время стоит на последнем дне года.

Re: Как воспользоваться календарем в скриптах для выбора даты

Про версии 4.7.1 не подскажу.