GetSolarVersion Function
рд╣рд╛рд▓рдХреЛ LibreOffice рд╕рдВрд╕реНрдХрд░рдгрдХреЛ рдЖрдиреНрддрд░рд┐рдХ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
s = GetSolarVersion
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рд╕реНрдЯреНрд░рд┐рдЩ
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleGetSolarVersion
Dim sSep As String
sSep = GetSolarVersion
MsgBox sSep,ремрек,"рд╕реМрд░реНрдп рдкреНрд░рд╡реАрдзреАрдХреЛ рд╕рдВрд╕реНрдХрд░рдг рдирдореНрдмрд░"
End Sub