Копировать ссылку на страницу Перейти в предыдущий раздел Перейти в следующий раздел

В примере у пользователя запрашиваются два значения типа «Дата» формата «м.гг», оба поля обязательны для ввода, второе поле имеет значение по умолчанию «09.05.2013». Также запрашивается признак подробного описания результата. На экран выводится количество месяцев между ними.

 

// Запросим у пользователя два значения типа "Дата" и одно значение типа признак

  InputValues = InputDialog("*Дата 1|*Дата 2|Подробное описание результата";"|09.05.2013|False";"Дата:К|Дата:К|Признак:True,False:Ч";"Ввод значения")

  // Присвоим введенные значения переменным

  Date1 = SubString(InputValues;"|";1)

  Date2 = SubString(InputValues;"|";2)

  ExtendedResult = SubString(InputValues;"|";3)

// Определим сколько месяцев между датами

  MonthCount = Abs(DateDiff("М";Date1;Date2))

// Если даты не совпадают, то выведем на экран разницу между ними

 if MonthCount <> 0

   if ExtendedResult == "True"

      MessageBoxEx("Результат";;" " & MonthCount & " месяца.";;;"Между датами '" & Date1 & "' и '" & Date2 & "' " & MonthCount & " месяца.")

   else

      ShowMessage(" " & MonthCount & " месяца.")

   endif     

  else

    // Иначе сообщим, что они совпадают

    ShowMessage("Введенные даты совпадают.")

 endif

При выполнении этого текста, например, в сценарии системы DIRECTUM, на экране появится окно для ввода значений:

Флажок Подробное описание результата. Используется для выбора вида описания результата. Если флажок установлен, то на экране появится сообщение с результатом. Если нажать на кнопку в окне сообщения, то отобразится более подробное описание результата. Если флажок не установлен, то сообщение о результате будет кратким и подробное описание результата нельзя будет посмотреть.

© Компания DIRECTUM, 2018 Сообщество пользователей DIRECTUM
.navbar > a:hover { background: #FFD73B; }