Язык ISBL

 

Примеры вычислений на ISBL

 

Пример использования оператора условного ветвления

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

 

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

  InputValues = InputDialog("*Дата 1|*Дата 2|Подробное описание результата";"|05.2008|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, на экране появится окно для ввода значений:

Если в поле *Дата 1 ввести значение «03.2008», установить флажок «Подробное описание результата» и  нажать на кнопку ОК, то на экране появится сообщение:

Если нажать на кнопку , то отобразится более подробное описание результата:

Если флажок не установлен, то сообщение о результате будет кратким:

 

 

См. также:

·         Общие сведения о примерах использования выражений и операторов ISBL;

·         Пример использования оператора цикла по условию;

·         Пример использования оператора цикла по значениям.