Как инициировать глобальную переменную

[Борис_С]

Всем доброго дня.
Подскажите, пожалуйста, можно ли инициировать глобальную переменную в LibreOffice Basic?
Мне нужно войти в процедуру с заданным значением переменной.

[bigor]

войти в процедуру с заданным значением переменной

Код Выделить Развернуть

global var1

sub init_
var1 = 10
ваша процедура
end sub

[sokol92]

Уточните, пожалуйста, вопрос.
Обычная для LO Basic и VBA схема:

Код Выделить Развернуть

Option Explicit

Global myVar as Long   ' значение по умолчанию равно 0

Sub MyProc()
  If myVar = 0 Then   ' первый вход в процедуру
    '  ---
    '  действия при первом входе
    '  ---
    myVar = 1
  End If  
 End Sub

[Борис_С]

Спасибо. Это хороший вариант.