SetCurrentDate(NewDate As Date)

SetCurrentDate(NewDate As Date) ( Function )

Установить текущую дату

Синтаксис:

objectvariable.SetCurrentDate( NewDate )

objectvariable - ICalendar

NewDate - устанавливаемая дата

Пример на VB Script:

Sub Test()       
 Set CalendarType = TCSApp.Manufacturing.CalendarType
 
 If CalendarType.ShowModal( "Выберите календарь" )>0 Then
    Set Calendar = CalendarType.Properties("Calendar").AsIDispatch
    i = Calendar.ShowModal( "Смотрим какая текущая дата" )
     
    Call Calendar.SetCurrentDate(CDate("01.01.2004"))
    i = Calendar.ShowModal( "Текущая дата должна измениться" )
    
    If Calendar.Locate("Date", CDate("30.12.2004"), 0) Then
        msgbox "Нашли!"
    End If
    'Calendar.First
    Do While Not Calendar.EOF
        msgbox "Date := " + Calendar.Properties("Date").DisplayText + chr(10) + "WorkTime := " + Calendar.Properties("WorkTime").DisplayText
        Calendar.Next
    Loop
   
 End If
 
End Sub